# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1102907469 0
# Node ID ee363a1523f316f5d468240ec50df28135483747
# Parent  2ee970dcd0722269bc32ab61dc13ed2518751c0f
* textmodes/paragraphs.el (mark-paragraph):
Extend the region when mark is active in transient-mark-mode,
regardless of the last command.  Doc fix.

diff -r 2ee970dcd072 -r ee363a1523f3 lisp/textmodes/paragraphs.el
--- 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))