diff options
| author | Brian Preble | 1991-04-10 16:41:54 +0000 |
|---|---|---|
| committer | Brian Preble | 1991-04-10 16:41:54 +0000 |
| commit | 23b34992e1a96f71af357ec5140aed87627bc20c (patch) | |
| tree | 47017b55a1cbbee4f857fbfb77b07549cb12bfeb | |
| parent | fa8a7944be3a84d85f085ff4eedba8225c7ebbc8 (diff) | |
| download | emacs-23b34992e1a96f71af357ec5140aed87627bc20c.tar.gz emacs-23b34992e1a96f71af357ec5140aed87627bc20c.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/textmodes/paragraphs.el | 31 |
1 files changed, 16 insertions, 15 deletions
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index 87c14419b55..748a08e986a 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el | |||
| @@ -19,7 +19,7 @@ | |||
| 19 | 19 | ||
| 20 | 20 | ||
| 21 | (defvar paragraph-ignore-fill-prefix nil | 21 | (defvar paragraph-ignore-fill-prefix nil |
| 22 | "Non-nil means the paragraph commands are not affected by fill-prefix. | 22 | "Non-nil means the paragraph commands are not affected by `fill-prefix'. |
| 23 | This is desirable in modes where blank lines are the paragraph delimiters.") | 23 | This is desirable in modes where blank lines are the paragraph delimiters.") |
| 24 | 24 | ||
| 25 | (defun forward-paragraph (&optional arg) | 25 | (defun forward-paragraph (&optional arg) |
| @@ -89,11 +89,13 @@ to which the end of the previous line belongs, or the end of the buffer." | |||
| 89 | "Move backward to start of paragraph. | 89 | "Move backward to start of paragraph. |
| 90 | With arg N, do it N times; negative arg -N means move forward N paragraphs. | 90 | With arg N, do it N times; negative arg -N means move forward N paragraphs. |
| 91 | 91 | ||
| 92 | A paragraph start is the beginning of a line which is a first-line-of-paragraph | 92 | A paragraph start is the beginning of a line which is a |
| 93 | or which is ordinary text and follows a paragraph-separating line; except: | 93 | `first-line-of-paragraph' or which is ordinary text and follows a |
| 94 | if the first real line of a paragraph is preceded by a blank line, | 94 | paragraph-separating line; except: if the first real line of a |
| 95 | the paragraph starts at that blank line. | 95 | paragraph is preceded by a blank line, the paragraph starts at that |
| 96 | See forward-paragraph for more information." | 96 | blank line. |
| 97 | |||
| 98 | See `forward-paragraph' for more information." | ||
| 97 | (interactive "p") | 99 | (interactive "p") |
| 98 | (or arg (setq arg 1)) | 100 | (or arg (setq arg 1)) |
| 99 | (forward-paragraph (- arg))) | 101 | (forward-paragraph (- arg))) |
| @@ -110,14 +112,14 @@ The paragraph marked is the one that contains point or follows point." | |||
| 110 | "Kill forward to end of paragraph. | 112 | "Kill forward to end of paragraph. |
| 111 | With arg N, kill forward to Nth end of paragraph; | 113 | With arg N, kill forward to Nth end of paragraph; |
| 112 | negative arg -N means kill backward to Nth start of paragraph." | 114 | negative arg -N means kill backward to Nth start of paragraph." |
| 113 | (interactive "*p") | 115 | (interactive "p") |
| 114 | (kill-region (point) (progn (forward-paragraph arg) (point)))) | 116 | (kill-region (point) (progn (forward-paragraph arg) (point)))) |
| 115 | 117 | ||
| 116 | (defun backward-kill-paragraph (arg) | 118 | (defun backward-kill-paragraph (arg) |
| 117 | "Kill back to start of paragraph. | 119 | "Kill back to start of paragraph. |
| 118 | With arg N, kill back to Nth start of paragraph; | 120 | With arg N, kill back to Nth start of paragraph; |
| 119 | negative arg -N means kill forward to Nth end of paragraph." | 121 | negative arg -N means kill forward to Nth end of paragraph." |
| 120 | (interactive "*p") | 122 | (interactive "p") |
| 121 | (kill-region (point) (progn (backward-paragraph arg) (point)))) | 123 | (kill-region (point) (progn (backward-paragraph arg) (point)))) |
| 122 | 124 | ||
| 123 | (defun transpose-paragraphs (arg) | 125 | (defun transpose-paragraphs (arg) |
| @@ -151,12 +153,11 @@ negative arg -N means kill forward to Nth end of paragraph." | |||
| 151 | (end-of-paragraph-text)))))) | 153 | (end-of-paragraph-text)))))) |
| 152 | 154 | ||
| 153 | (defun forward-sentence (&optional arg) | 155 | (defun forward-sentence (&optional arg) |
| 154 | "Move forward to next sentence-end. With argument, repeat. | 156 | "Move forward to next`sentence-end'. With argument, repeat. |
| 155 | With negative argument, move backward repeatedly to sentence-beginning. | 157 | With negative argument, move backward repeatedly to `sentence-beginning'. |
| 156 | 158 | ||
| 157 | The variable `sentence-end' is a regular expression that matches ends | 159 | The variable `sentence-end' is a regular expression that matches ends of |
| 158 | of sentences. Also, every paragraph boundary terminates sentences as | 160 | sentences. Also, every paragraph boundary terminates sentences as well." |
| 159 | well." | ||
| 160 | (interactive "p") | 161 | (interactive "p") |
| 161 | (or arg (setq arg 1)) | 162 | (or arg (setq arg 1)) |
| 162 | (while (< arg 0) | 163 | (while (< arg 0) |
| @@ -174,7 +175,7 @@ well." | |||
| 174 | 175 | ||
| 175 | (defun backward-sentence (&optional arg) | 176 | (defun backward-sentence (&optional arg) |
| 176 | "Move backward to start of sentence. With arg, do it arg times. | 177 | "Move backward to start of sentence. With arg, do it arg times. |
| 177 | See forward-sentence for more information." | 178 | See `forward-sentence' for more information." |
| 178 | (interactive "p") | 179 | (interactive "p") |
| 179 | (or arg (setq arg 1)) | 180 | (or arg (setq arg 1)) |
| 180 | (forward-sentence (- arg))) | 181 | (forward-sentence (- arg))) |
| @@ -196,7 +197,7 @@ With arg, repeat, or kill forward to Nth end of sentence if negative arg -N." | |||
| 196 | (kill-region beg (point)))) | 197 | (kill-region beg (point)))) |
| 197 | 198 | ||
| 198 | (defun mark-end-of-sentence (arg) | 199 | (defun mark-end-of-sentence (arg) |
| 199 | "Put mark at end of sentence. Arg works as in forward-sentence." | 200 | "Put mark at end of sentence. Arg works as in `forward-sentence'." |
| 200 | (interactive "p") | 201 | (interactive "p") |
| 201 | (push-mark | 202 | (push-mark |
| 202 | (save-excursion | 203 | (save-excursion |