aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrian Preble1991-04-10 16:41:54 +0000
committerBrian Preble1991-04-10 16:41:54 +0000
commit23b34992e1a96f71af357ec5140aed87627bc20c (patch)
tree47017b55a1cbbee4f857fbfb77b07549cb12bfeb
parentfa8a7944be3a84d85f085ff4eedba8225c7ebbc8 (diff)
downloademacs-23b34992e1a96f71af357ec5140aed87627bc20c.tar.gz
emacs-23b34992e1a96f71af357ec5140aed87627bc20c.zip
*** empty log message ***
-rw-r--r--lisp/textmodes/paragraphs.el31
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'.
23This is desirable in modes where blank lines are the paragraph delimiters.") 23This 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.
90With arg N, do it N times; negative arg -N means move forward N paragraphs. 90With arg N, do it N times; negative arg -N means move forward N paragraphs.
91 91
92A paragraph start is the beginning of a line which is a first-line-of-paragraph 92A paragraph start is the beginning of a line which is a
93or which is ordinary text and follows a paragraph-separating line; except: 93`first-line-of-paragraph' or which is ordinary text and follows a
94if the first real line of a paragraph is preceded by a blank line, 94paragraph-separating line; except: if the first real line of a
95the paragraph starts at that blank line. 95paragraph is preceded by a blank line, the paragraph starts at that
96See forward-paragraph for more information." 96blank line.
97
98See `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.
111With arg N, kill forward to Nth end of paragraph; 113With arg N, kill forward to Nth end of paragraph;
112negative arg -N means kill backward to Nth start of paragraph." 114negative 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.
118With arg N, kill back to Nth start of paragraph; 120With arg N, kill back to Nth start of paragraph;
119negative arg -N means kill forward to Nth end of paragraph." 121negative 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.
155With negative argument, move backward repeatedly to sentence-beginning. 157With negative argument, move backward repeatedly to `sentence-beginning'.
156 158
157The variable `sentence-end' is a regular expression that matches ends 159The variable `sentence-end' is a regular expression that matches ends of
158of sentences. Also, every paragraph boundary terminates sentences as 160sentences. Also, every paragraph boundary terminates sentences as well."
159well."
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.
177See forward-sentence for more information." 178See `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