[Emacs-diffs] Changes to emacs/lisp/simple.el

[Kim F. Storm]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.586 emacs/lisp/simple.el:1.587
*** emacs/lisp/simple.el:1.586  Sat Jan 18 18:34:14 2003
--- emacs/lisp/simple.el        Sat Jan 18 18:59:12 2003
***************
*** 1986,1992 ****
    (setq this-command 'yank)
    (let ((inhibit-read-only t)
        (before (< (point) (mark t))))
!     (funcall (or yank-undo-function 'delete-region) (point) (mark t))
      (setq yank-undo-function nil)
      (set-marker (mark-marker) (point) (current-buffer))
      (insert-for-yank (current-kill arg))
--- 1986,1994 ----
    (setq this-command 'yank)
    (let ((inhibit-read-only t)
        (before (< (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))