Mercurial > emacs
comparison lisp/simple.el @ 34443:599c8d8e833a
(kill-new): Don't try to setcar kill-ring if it is
nil.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 11 Dec 2000 15:33:34 +0000 |
parents | 799f637fbc35 |
children | 6a7373de926f |
comparison
equal
deleted
inserted
replaced
34442:57d320641b64 | 34443:599c8d8e833a |
---|---|
1666 If `interprogram-cut-function' is non-nil, apply it to STRING. | 1666 If `interprogram-cut-function' is non-nil, apply it to STRING. |
1667 Optional second argument REPLACE non-nil means that STRING will replace | 1667 Optional second argument REPLACE non-nil means that STRING will replace |
1668 the front of the kill ring, rather than being added to the list." | 1668 the front of the kill ring, rather than being added to the list." |
1669 (and (fboundp 'menu-bar-update-yank-menu) | 1669 (and (fboundp 'menu-bar-update-yank-menu) |
1670 (menu-bar-update-yank-menu string (and replace (car kill-ring)))) | 1670 (menu-bar-update-yank-menu string (and replace (car kill-ring)))) |
1671 (if replace | 1671 (if (and replace kill-ring) |
1672 (setcar kill-ring string) | 1672 (setcar kill-ring string) |
1673 (setq kill-ring (cons string kill-ring)) | 1673 (setq kill-ring (cons string kill-ring)) |
1674 (if (> (length kill-ring) kill-ring-max) | 1674 (if (> (length kill-ring) kill-ring-max) |
1675 (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))) | 1675 (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))) |
1676 (setq kill-ring-yank-pointer kill-ring) | 1676 (setq kill-ring-yank-pointer kill-ring) |