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

interactive calls from Lisp calls, rather than (interactive-p).

diff --git a/lisp/simple.el b/lisp/simple.el
index 3d25fb010a0b09594c06a4e1222f7a58eeea7d44..2d2d93306d9024a7d219c6410edab93fdfb27c71 100644 (file)
--- 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"))