Skip to content
Snippets Groups Projects
Commit c747494c authored by Philippe Dosch's avatar Philippe Dosch
Browse files

Fix functions comments

parent ea963c0e
Branches
No related tags found
No related merge requests found
......@@ -1079,7 +1079,7 @@
(defvar scissors ">8 --------------------------------------------------------------- 8<"
"String to insert in \\[scissors].")
(defun scissors()
"Insert a line of SCISSORS in the buffer"
"Insert a line of SCISSORS in the buffer."
(interactive)
(insert scissors)
(forward-line 1))
......@@ -1087,8 +1087,9 @@
(defun snip-lines-mail ()
"Delete all lines except the first three in the current buffer selection.
For the first and last remaining lines, remove all characters after the prefix composed of spaces and '>'.
For the middle line, remove all characters after the prefix and insert '[snip]' after the remaining prefix."
For the first and last remaining lines, remove all characters after the prefix
composed of spaces and '>'. For the middle line, remove all characters after
the prefix and insert '[snip]' after the remaining prefix."
(interactive)
(save-excursion
(let ((begin (region-beginning))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment