# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 928173982 0
# Node ID 6fe40d35360e42f1cb6178da67c884a476969f8a
# Parent  c4896f3b9c743fb56061377818bcb4205b063f8c
(append-next-kill): Use an arg to distinguish
interactive calls from Lisp calls, rather than (interactive-p).

diff -r c4896f3b9c74 -r 6fe40d35360e lisp/simple.el
--- 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"))