/[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.516 by rms, Fri Dec 28 05:15:59 2001 UTC revision 1.517 by rms, Fri Jan 11 21:24:17 2002 UTC
# Line 1742  If `interprogram-cut-function' is set, p Line 1742  If `interprogram-cut-function' is set, p
1742  it."  it."
1743    (kill-new (if before-p    (kill-new (if before-p
1744                  (concat string (car kill-ring))                  (concat string (car kill-ring))
1745                (concat (car kill-ring) string)) t))                (concat (car kill-ring) string))
1746                t))
1747    
1748  (defun current-kill (n &optional do-not-move)  (defun current-kill (n &optional do-not-move)
1749    "Rotate the yanking point by N places, and then return that kill.    "Rotate the yanking point by N places, and then return that kill.

Legend:
Removed from v.1.516  
changed lines
  Added in v.1.517

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