[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el |
Date: |
Sat, 18 Jan 2003 18:59:13 -0500 |
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))