mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases 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
Show Stats 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)
"Turn on the VT applications keypad."
(interactive)
(send-string-to-terminal "\e[\e=")
(send-string-to-terminal "\e=")
(setq vt-applications-keypad-p t)
(if (or tell (interactive-p)) (message "Applications keypad enabled.")))
(defun vt-keypad-off (&optional tell)
"Turn off the VT applications keypad."
(interactive "p")
(send-string-to-terminal "\e[\e>")
(send-string-to-terminal "\e>")
(setq vt-applications-keypad-p nil)
(if (or tell (interactive-p)) (message "Applications keypad disabled.")))