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

[Kim F. Storm]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.588 emacs/lisp/simple.el:1.589
*** emacs/lisp/simple.el:1.588  Mon Jan 20 04:02:28 2003
--- emacs/lisp/simple.el        Tue Jan 21 16:11:12 2003
***************
*** 1856,1862 ****
  the text killed this time appends to the text killed last time
  to make one entry in the kill ring.
  
! In lisp code, optional third arg YANK-HANDLER specifies the yank-handler
  text property to be set on the killed text.  See `insert-for-yank'." 
    (interactive "r")
    (condition-case nil
--- 1856,1862 ----
  the text killed this time appends to the text killed last time
  to make one entry in the kill ring.
  
! In Lisp code, optional third arg YANK-HANDLER specifies the yank-handler
  text property to be set on the killed text.  See `insert-for-yank'." 
    (interactive "r")
    (condition-case nil
***************
*** 1965,1971 ****
  
  (defvar yank-window-start nil)
  (defvar yank-undo-function nil
!   "If non-nil, function used by `yank-pop' to delete last stretch of yanked 
text.")
  
  (defun yank-pop (arg)
    "Replace just-yanked stretch of killed text with a different stretch.
--- 1965,1974 ----
  
  (defvar yank-window-start nil)
  (defvar yank-undo-function nil
!   "If non-nil, function used by `yank-pop' to delete last stretch of yanked 
text.
! Function is called with two parameters, START and END corresponding to
! the value of the mark and point; it is guaranteed that START <= END.
! Normally set from the UNDO element of a yank-handler; see `insert-for-yank'.")
  
  (defun yank-pop (arg)
    "Replace just-yanked stretch of killed text with a different stretch.