Mercurial > emacs
comparison lisp/simple.el @ 24798:6fe40d35360e
(append-next-kill): Use an arg to distinguish
interactive calls from Lisp calls, rather than (interactive-p).
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 31 May 1999 18:06:22 +0000 |
parents | cef7201132c9 |
children | 4c57b458fa9b |
comparison
equal
deleted
inserted
replaced
24797:c4896f3b9c74 | 24798:6fe40d35360e |
---|---|
1836 (message "Saved text until \"%s\"" | 1836 (message "Saved text until \"%s\"" |
1837 (substring killed-text (- message-len))) | 1837 (substring killed-text (- message-len))) |
1838 (message "Saved text from \"%s\"" | 1838 (message "Saved text from \"%s\"" |
1839 (substring killed-text 0 message-len)))))))) | 1839 (substring killed-text 0 message-len)))))))) |
1840 | 1840 |
1841 (defun append-next-kill () | 1841 (defun append-next-kill (&optional interactive) |
1842 "Cause following command, if it kills, to append to previous kill." | 1842 "Cause following command, if it kills, to append to previous kill. |
1843 (interactive) | 1843 The argument is used for internal purposes; do not supply one." |
1844 (if (interactive-p) | 1844 (interactive "p") |
1845 ;; We don't use (interactive-p), since that breaks kbd macros. | |
1846 (if interactive | |
1845 (progn | 1847 (progn |
1846 (setq this-command 'kill-region) | 1848 (setq this-command 'kill-region) |
1847 (message "If the next command is a kill, it will append")) | 1849 (message "If the next command is a kill, it will append")) |
1848 (setq last-command 'kill-region))) | 1850 (setq last-command 'kill-region))) |
1849 | 1851 |