# HG changeset patch # User Brian Preble # Date 671301714 0 # Node ID 75cec14894db5d96bca7162edb6707a95451aece # Parent 25644943fb13393bf3fb19c107dd0ad9f41a147b *** empty log message *** diff -r 25644943fb13 -r 75cec14894db lisp/textmodes/paragraphs.el --- a/lisp/textmodes/paragraphs.el Wed Apr 10 16:36:47 1991 +0000 +++ b/lisp/textmodes/paragraphs.el Wed Apr 10 16:41:54 1991 +0000 @@ -19,7 +19,7 @@ (defvar paragraph-ignore-fill-prefix nil - "Non-nil means the paragraph commands are not affected by fill-prefix. + "Non-nil means the paragraph commands are not affected by `fill-prefix'. This is desirable in modes where blank lines are the paragraph delimiters.") (defun forward-paragraph (&optional arg) @@ -89,11 +89,13 @@ "Move backward to start of paragraph. With arg N, do it N times; negative arg -N means move forward N paragraphs. -A paragraph start is the beginning of a line which is a first-line-of-paragraph -or which is ordinary text and follows a paragraph-separating line; except: -if the first real line of a paragraph is preceded by a blank line, -the paragraph starts at that blank line. -See forward-paragraph for more information." +A paragraph start is the beginning of a line which is a +`first-line-of-paragraph' or which is ordinary text and follows a +paragraph-separating line; except: if the first real line of a +paragraph is preceded by a blank line, the paragraph starts at that +blank line. + +See `forward-paragraph' for more information." (interactive "p") (or arg (setq arg 1)) (forward-paragraph (- arg))) @@ -110,14 +112,14 @@ "Kill forward to end of paragraph. With arg N, kill forward to Nth end of paragraph; negative arg -N means kill backward to Nth start of paragraph." - (interactive "*p") + (interactive "p") (kill-region (point) (progn (forward-paragraph arg) (point)))) (defun backward-kill-paragraph (arg) "Kill back to start of paragraph. With arg N, kill back to Nth start of paragraph; negative arg -N means kill forward to Nth end of paragraph." - (interactive "*p") + (interactive "p") (kill-region (point) (progn (backward-paragraph arg) (point)))) (defun transpose-paragraphs (arg) @@ -151,12 +153,11 @@ (end-of-paragraph-text)))))) (defun forward-sentence (&optional arg) - "Move forward to next sentence-end. With argument, repeat. -With negative argument, move backward repeatedly to sentence-beginning. + "Move forward to next`sentence-end'. With argument, repeat. +With negative argument, move backward repeatedly to `sentence-beginning'. -The variable `sentence-end' is a regular expression that matches ends -of sentences. Also, every paragraph boundary terminates sentences as -well." +The variable `sentence-end' is a regular expression that matches ends of +sentences. Also, every paragraph boundary terminates sentences as well." (interactive "p") (or arg (setq arg 1)) (while (< arg 0) @@ -174,7 +175,7 @@ (defun backward-sentence (&optional arg) "Move backward to start of sentence. With arg, do it arg times. -See forward-sentence for more information." +See `forward-sentence' for more information." (interactive "p") (or arg (setq arg 1)) (forward-sentence (- arg))) @@ -196,7 +197,7 @@ (kill-region beg (point)))) (defun mark-end-of-sentence (arg) - "Put mark at end of sentence. Arg works as in forward-sentence." + "Put mark at end of sentence. Arg works as in `forward-sentence'." (interactive "p") (push-mark (save-excursion