[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0df37f7: * lisp/vt-control.el: Avoid `called-interactively-p`
From: |
Stefan Monnier |
Subject: |
master 0df37f7: * lisp/vt-control.el: Avoid `called-interactively-p` |
Date: |
Mon, 12 Apr 2021 12:49:41 -0400 (EDT) |
branch: master
commit 0df37f741679f99bb57da138e61c91a99ed918a5
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/vt-control.el: Avoid `called-interactively-p`
(vt-keypad-on, vt-keypad-off): Use the `tell` arg instead.
(vt-numlock): Add `tell` arg.
---
lisp/vt-control.el | 16 +++++++---------
1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/lisp/vt-control.el b/lisp/vt-control.el
index 0bd5132..bac0069 100644
--- a/lisp/vt-control.el
+++ b/lisp/vt-control.el
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 0df37f7: * lisp/vt-control.el: Avoid `called-interactively-p`,
Stefan Monnier <=