changeset 58919:ee363a1523f3

* textmodes/paragraphs.el (mark-paragraph): Extend the region when mark is active in transient-mark-mode, regardless of the last command. Doc fix.
author Juri Linkov <juri@jurta.org>
date Mon, 13 Dec 2004 03:11:09 +0000
parents 2ee970dcd072
children 83b92481d956
files lisp/textmodes/paragraphs.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/paragraphs.el	Mon Dec 13 03:09:59 2004 +0000
+++ b/lisp/textmodes/paragraphs.el	Mon Dec 13 03:11:09 2004 +0000
@@ -357,13 +357,15 @@
 If ARG is negative, point is put at end of this paragraph, mark is put
 at beginning of this or a previous paragraph.
 
-If this command is repeated, it marks the next ARG paragraphs after (or
-before, if arg is negative) the ones already marked."
+If this command is repeated or mark is active in Transient Mark mode,
+it marks the next ARG paragraphs after (or before, if arg is negative)
+the ones already marked."
   (interactive "p")
   (unless arg (setq arg 1))
   (when (zerop arg)
     (error "Cannot mark zero paragraphs"))
-  (cond ((and (eq last-command this-command) (mark t))
+  (cond ((or (and (eq last-command this-command) (mark t))
+	     (and transient-mark-mode mark-active))
 	 (set-mark
 	  (save-excursion
 	    (goto-char (mark))