andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mark-paragraph): New arg ALLOW-EXTEND

Browse source 
enables the feature to extend the existing region.
This commit is contained in:
Richard M. Stallman 2004-12-29 01:35:21 +00:00
parent a1a801de6a
commit 94ed093133
2 changed files with 22 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/ChangeLog
View file

@ -4,6 +4,20 @@
2004-12-28 Richard M. Stallman <rms@gnu.org>
* simple.el (undo-extra-outer-limit): New variable.
(undo-outer-limit-truncate): Test and set it.
* emacs-lisp/lisp.el (mark-sexp, mark-defun): New arg ALLOW-EXTEND
enables the feature to extend the existing region.
* simple.el (mark-word): New arg ALLOW-EXTEND
enables the feature to extend the existing region.
* textmodes/paragraphs.el (mark-paragraph): New arg ALLOW-EXTEND
enables the feature to extend the existing region.
* startup.el (site-run-file): Don't allow setting it with Custom.
* simple.el (buffer-disable-undo): Fix previous change.
2004-12-27 Masatake YAMATO <jet@gyve.org>

15
lisp/textmodes/paragraphs.el
View file

@ -347,7 +347,7 @@ See `forward-paragraph' for more information."
(or arg (setq arg 1))
(forward-paragraph (- arg)))
(defun mark-paragraph (&optional arg)
(defun mark-paragraph (&optional arg allow-extend)
"Put point at beginning of this paragraph, mark at end.
The paragraph marked is the one that contains point or follows point.
@ -357,15 +357,16 @@ 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 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")
Interactively, if this command is repeated
or (in Transient Mark mode) if the mark is active,
it marks the next ARG paragraphs after the ones already marked."
(interactive "p\np")
(unless arg (setq arg 1))
(when (zerop arg)
(error "Cannot mark zero paragraphs"))
(cond ((or (and (eq last-command this-command) (mark t))
(and transient-mark-mode mark-active))
(cond ((and allow-extend
(or (and (eq last-command this-command) (mark t))
(and transient-mark-mode mark-active)))
(set-mark
(save-excursion
(goto-char (mark))