diff options
| author | Juri Linkov <juri@jurta.org> | 2004-12-13 03:11:09 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2004-12-13 03:11:09 +0000 |
| commit | d9954576c90ed13094c15819cea592cc6949297d (patch) | |
| tree | dd0c21f74cdaae5c685ce7762e2bd8a3726068f0 /lisp/textmodes/paragraphs.el | |
| parent | 967e1a52ad43c7f69a685ec880254d097e417918 (diff) | |
| download | emacs-d9954576c90ed13094c15819cea592cc6949297d.tar.gz | |
* textmodes/paragraphs.el (mark-paragraph):
Extend the region when mark is active in transient-mark-mode,
regardless of the last command. Doc fix.
Diffstat (limited to 'lisp/textmodes/paragraphs.el')
| -rw-r--r-- | lisp/textmodes/paragraphs.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index 206f7a42f78..353aa0ee8a2 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el @@ -357,13 +357,15 @@ the number of paragraphs marked equals ARG. 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)) |