mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(vt-keypad-on, vt-keypad-off): Updated codes sent

Browse source 
to terminal to eliminate some garbage that made NCSA telnet crash.
This commit is contained in:
Richard M. Stallman 1995-06-22 20:28:55 +00:00
parent 37a985474f
commit c96c7ed95f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/vt-control.el
View file

@ -86,14 +86,14 @@
(defun vt-keypad-on (&optional tell) (defun vt-keypad-on (&optional tell)
"Turn on the VT applications keypad." "Turn on the VT applications keypad."
(interactive) (interactive)
(send-string-to-terminal "\e[\e=") (send-string-to-terminal "\e=")
(setq vt-applications-keypad-p t) (setq vt-applications-keypad-p t)
(if (or tell (interactive-p)) (message "Applications keypad enabled."))) (if (or tell (interactive-p)) (message "Applications keypad enabled.")))
(defun vt-keypad-off (&optional tell) (defun vt-keypad-off (&optional tell)
"Turn off the VT applications keypad." "Turn off the VT applications keypad."
(interactive "p") (interactive "p")
(send-string-to-terminal "\e[\e>") (send-string-to-terminal "\e>")
(setq vt-applications-keypad-p nil) (setq vt-applications-keypad-p nil)
(if (or tell (interactive-p)) (message "Applications keypad disabled."))) (if (or tell (interactive-p)) (message "Applications keypad disabled.")))