diff options
Diffstat (limited to 'lisp/vt-control.el')
| -rw-r--r-- | lisp/vt-control.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/vt-control.el b/lisp/vt-control.el index b25266bee08..d762483ebd2 100644 --- a/lisp/vt-control.el +++ b/lisp/vt-control.el @@ -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) |