diff lisp/vt-control.el @ 105372:bd2966850aac

Use `called-interactively-p' instead of `interactive-p'.

--- a/lisp/vt-control.el	Fri Oct 02 00:02:02 2009 +0000
+++ b/lisp/vt-control.el	Fri Oct 02 03:48:36 2009 +0000
@@ -88,20 +88,23 @@
   (interactive)
   (send-string-to-terminal "\e=")
   (setq vt-applications-keypad-p t)
-  (if (or tell (interactive-p)) (message "Applications keypad enabled.")))
+  (if (or tell (called-interactively-p 'interactive))
+      (message "Applications keypad enabled.")))
 
 (defun vt-keypad-off (&optional tell)
   "Turn off the VT applications keypad."
   (interactive "p")
   (send-string-to-terminal "\e>")
   (setq vt-applications-keypad-p nil)
-  (if (or tell (interactive-p)) (message "Applications keypad disabled.")))
+  (if (or tell (called-interactively-p 'interactive))
+      (message "Applications keypad disabled.")))
 
 (defun vt-numlock nil
   "Toggle VT application keypad on and off."
   (interactive)
-  (if vt-applications-keypad-p (vt-keypad-off (interactive-p))
-    (vt-keypad-on (interactive-p))))
+  (if vt-applications-keypad-p
+      (vt-keypad-off (called-interactively-p 'interactive))
+    (vt-keypad-on (called-interactively-p 'interactive))))
 
 (provide 'vt-control)