Mercurial > emacs
changeset 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 | c4896f3b9c74 |
| children | 7f38d541d411 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Mon May 31 17:41:54 1999 +0000 +++ b/lisp/simple.el Mon May 31 18:06:22 1999 +0000 @@ -1838,10 +1838,12 @@ (message "Saved text from \"%s\"" (substring killed-text 0 message-len)))))))) -(defun append-next-kill () - "Cause following command, if it kills, to append to previous kill." - (interactive) - (if (interactive-p) +(defun append-next-kill (&optional interactive) + "Cause following command, if it kills, to append to previous kill. +The argument is used for internal purposes; do not supply one." + (interactive "p") + ;; We don't use (interactive-p), since that breaks kbd macros. + (if interactive (progn (setq this-command 'kill-region) (message "If the next command is a kill, it will append"))