From c75d498611285dd3eafd10b1af9a3990f2955258 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 31 May 1999 18:06:22 +0000 Subject: [PATCH] (append-next-kill): Use an arg to distinguish interactive calls from Lisp calls, rather than (interactive-p). --- lisp/simple.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 3d25fb010a0..2d2d93306d9 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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"))