mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(append-next-kill): Use an arg to distinguish

Browse Source 
interactive calls from Lisp calls, rather than (interactive-p).
This commit is contained in:
Karl Heuer 1999-05-31 18:06:22 +00:00
parent 005f783076
commit c75d498611
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/simple.el
View File

@ -1838,10 +1838,12 @@ visual feedback indicating the extent of the region being copied."
(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"))