/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.586 by kfstorm, Sat Jan 18 23:34:14 2003 UTC revision 1.587 by kfstorm, Sat Jan 18 23:59:12 2003 UTC
# Line 1986  comes the newest one." Line 1986  comes the newest one."
1986    (setq this-command 'yank)    (setq this-command 'yank)
1987    (let ((inhibit-read-only t)    (let ((inhibit-read-only t)
1988          (before (< (point) (mark t))))          (before (< (point) (mark t))))
1989      (funcall (or yank-undo-function 'delete-region) (point) (mark t))      (if before
1990            (funcall (or yank-undo-function 'delete-region) (point) (mark t))
1991          (funcall (or yank-undo-function 'delete-region) (mark t) (point)))
1992      (setq yank-undo-function nil)      (setq yank-undo-function nil)
1993      (set-marker (mark-marker) (point) (current-buffer))      (set-marker (mark-marker) (point) (current-buffer))
1994      (insert-for-yank (current-kill arg))      (insert-for-yank (current-kill arg))

Legend:
Removed from v.1.586  
changed lines
  Added in v.1.587

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26