[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r115566: * simple.el (kill-region): Pass mark first
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] trunk r115566: * simple.el (kill-region): Pass mark first then point, so kill-append works right. |
Date: |
Tue, 17 Dec 2013 15:48:31 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 115566
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/12819
author: Dima Kogan <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Tue 2013-12-17 23:48:26 +0800
message:
* simple.el (kill-region): Pass mark first then point, so kill-append works
right.
(copy-region-as-kill, kill-ring-save): Likewise.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/simple.el simple.el-20091113204419-o5vbwnq5f7feedwu-403
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-12-17 15:15:00 +0000
+++ b/lisp/ChangeLog 2013-12-17 15:48:26 +0000
@@ -1,3 +1,9 @@
+2013-12-17 Dima Kogan <address@hidden> (tiny change)
+
+ * simple.el (kill-region): Pass mark first, then point, so that
+ kill-append works right (Bug#12819).
+ (copy-region-as-kill, kill-ring-save): Likewise.
+
2013-12-17 Leo Liu <address@hidden>
* net/rcirc.el (rcirc-add-face):
=== modified file 'lisp/simple.el'
--- a/lisp/simple.el 2013-12-13 04:14:17 +0000
+++ b/lisp/simple.el 2013-12-17 15:48:26 +0000
@@ -3638,9 +3638,9 @@
The optional argument REGION if non-nil, indicates that we're not just killing
some text between BEG and END, but we're killing the region."
- ;; Pass point first, then mark, because the order matters
- ;; when calling kill-append.
- (interactive (list (point) (mark) 'region))
+ ;; Pass mark first, then point, because the order matters when
+ ;; calling `kill-append'.
+ (interactive (list (mark) (point) 'region))
(unless (and beg end)
(error "The mark is not set now, so there is no region"))
(condition-case nil
@@ -3686,7 +3686,10 @@
some text between BEG and END, but we're copying the region.
This command's old key binding has been given to `kill-ring-save'."
- (interactive "r\np")
+ ;; Pass mark first, then point, because the order matters when
+ ;; calling `kill-append'.
+ (interactive (list (mark) (point)
+ (prefix-numeric-value current-prefix-arg)))
(let ((str (if region
(funcall region-extract-function nil)
(filter-buffer-substring beg end))))
@@ -3710,7 +3713,10 @@
This command is similar to `copy-region-as-kill', except that it gives
visual feedback indicating the extent of the region being copied."
- (interactive "r\np")
+ ;; Pass mark first, then point, because the order matters when
+ ;; calling `kill-append'.
+ (interactive (list (mark) (point)
+ (prefix-numeric-value current-prefix-arg)))
(copy-region-as-kill beg end region)
;; This use of called-interactively-p is correct because the code it
;; controls just gives the user visual feedback.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r115566: * simple.el (kill-region): Pass mark first then point, so kill-append works right.,
Chong Yidong <=