procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/vt-control.el: Avoid called-interactively-p

Browse source 
(vt-keypad-on, vt-keypad-off): Use the `tell` arg instead.
(vt-numlock): Add `tell` arg.
This commit is contained in:
Stefan Monnier 2021-04-12 12:49:36 -04:00
parent cf774fb8cc
commit 0df37f7416
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/vt-control.el
View file

@ -83,26 +83,24 @@
(defun vt-keypad-on (&optional tell)
"Turn on the VT applications keypad."
(interactive)
(interactive "p")
(send-string-to-terminal "\e=")
(setq vt-applications-keypad-p t)
(if (or tell (called-interactively-p 'interactive))
(message "Applications keypad enabled.")))
(if tell (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 (called-interactively-p 'interactive))
(message "Applications keypad disabled.")))
(if tell (message "Applications keypad disabled.")))
(defun vt-numlock nil
(defun vt-numlock (&optional tell)
"Toggle VT application keypad on and off."
(interactive)
(interactive "p")
(if vt-applications-keypad-p
(vt-keypad-off (called-interactively-p 'interactive))
(vt-keypad-on (called-interactively-p 'interactive))))
(vt-keypad-off tell)
(vt-keypad-on tell)))
(provide 'vt-control)