Parent Directory | Revision Log | 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. |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |