mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(kill-region): Interactively, pass point, then mark.

Browse Source
This commit is contained in:
Richard M. Stallman 2006-05-21 22:56:44 +00:00
parent 3fe358978b
commit 214a3db00c
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2006-05-21 Richard Stallman <rms@gnu.org>
* simple.el (kill-region): Interactively, pass point, then mark.
2006-05-22 Thien-Thi Nguyen <ttn@gnu.org>
* emacs-lisp/ewoc.el (ewoc-create): Add autoload cookie.

4
lisp/simple.el
View File

@ -2549,7 +2549,9 @@ to make one entry in the kill ring.
In Lisp code, optional third arg YANK-HANDLER, if non-nil,
specifies the yank-handler text property to be set on the killed
text. See `insert-for-yank'."
(interactive "r")
;; Pass point first, then mark, because the order matters
;; when calling kill-append.
(interactive (list (point) (mark)))
(condition-case nil
(let ((string (filter-buffer-substring beg end t)))
(when string ;STRING is nil if BEG = END