X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/c1473b4cfeb477ced05d457868c5e1eb97a58eb0..4b9ac23960d2998f899287ffcf696ad33b63a69a:/lisp/vt-control.el

diff --git a/lisp/vt-control.el b/lisp/vt-control.el
index 61f54ce75e..3584010409 100644
--- a/lisp/vt-control.el
+++ b/lisp/vt-control.el
@@ -1,7 +1,6 @@
 ;;; vt-control.el --- Common VTxxx control functions
 
-;; Copyright (C) 1993, 1994, 2001, 2002, 2003,
-;;   2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1993-1994, 2001-2016 Free Software Foundation, Inc.
 
 ;; Author: Rob Riepel <riepel@networking.stanford.edu>
 ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu>
@@ -88,22 +87,24 @@
   (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)
 
-;; arch-tag: d4fed1bf-2524-4ba1-a4fe-86bca3d928a2
 ;;; vt-control.el ends here