diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/simple.el | 4 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2431a0954d8..bf6f64f9227 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. diff --git a/lisp/simple.el b/lisp/simple.el index 3efffbce416..cee04f4a961 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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 |