From bba4cda29284e84b3266b68c46d0dd4e06afa45f Mon Sep 17 00:00:00 2001 From: Dima Kogan Date: Tue, 6 Nov 2012 15:17:38 -0800 Subject: [PATCH] C-w/M-w after C-M-w now pre/ap-pend intelligently to preserve input ordering --- lisp/simple.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index aed945d..67577e0 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3358,7 +3358,7 @@ the text killed this time appends to the text killed last time to make one entry in the kill ring." ;; Pass point first, then mark, because the order matters ;; when calling kill-append. - (interactive (list (point) (mark))) + (interactive (list (mark) (point))) (unless (and beg end) (error "The mark is not set now, so there is no region")) (condition-case nil @@ -3399,7 +3399,7 @@ If `interprogram-cut-function' is non-nil, also save the text for a window system cut and paste. This command's old key binding has been given to `kill-ring-save'." - (interactive "r") + (interactive (list (mark) (point))) (if (eq last-command 'kill-region) (kill-append (filter-buffer-substring beg end) (< end beg)) (kill-new (filter-buffer-substring beg end))) @@ -3417,7 +3417,7 @@ use \\[append-next-kill] before \\[kill-ring-save]. 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") + (interactive (list (mark) (point))) (copy-region-as-kill beg end) ;; This use of called-interactively-p is correct because the code it ;; controls just gives the user visual feedback. -- 1.7.10.4