# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1042934352 0
# Node ID ebc6f47b202e8405410eb7e04511b39a546f6428
# Parent  bbfe231902a8febab63d1827716f312ebd41d7f5
(yank-pop): Always call yank-undo-function with start <= end.

diff -r bbfe231902a8 -r ebc6f47b202e lisp/simple.el
--- 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))