Mercurial > emacs

changeset 49312:ebc6f47b202e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(yank-pop): Always call yank-undo-function with start <= end.
author Kim F. Storm <storm@cua.dk>
date Sat, 18 Jan 2003 23:59:12 +0000
parents bbfe231902a8
children e86ea32498df
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Sat Jan 18 23:36:33 2003 +0000
+++ b/lisp/simple.el	Sat Jan 18 23:59:12 2003 +0000
@@ -1986,7 +1986,9 @@
   (setq this-command 'yank)
   (let ((inhibit-read-only t)
 	(before (< (point) (mark t))))
-    (funcall (or yank-undo-function 'delete-region) (point) (mark t))
+    (if before
+	(funcall (or yank-undo-function 'delete-region) (point) (mark t))
+      (funcall (or yank-undo-function 'delete-region) (mark t) (point)))
     (setq yank-undo-function nil)
     (set-marker (mark-marker) (point) (current-buffer))
     (insert-for-yank (current-kill arg))