(yank-pop): Always call yank-undo-function with start <= end.

diff --git a/lisp/simple.el b/lisp/simple.el
index a35269c12041e5e505d1fdd56ee27992d2856418..39b2631d2b65fa29fa4289d97a5b00294aa901fd 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1986,7 +1986,9 @@ comes the newest one."
   (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))