1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vt-control.el b/lisp/vt-control.el
index acb6141c77a..bd5d0c08473 100644
--- a/lisp/vt-control.el
+++ b/lisp/vt-control.el
@@ -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.")))

diff --git a/lisp/vt-control.el b/lisp/vt-control.el index acb6141c77a..bd5d0c08473 100644 --- a/lisp/vt-control.el +++ b/lisp/vt-control.el
@@ -86,14 +86,14 @@
86	(defun vt-keypad-on (&optional tell)	86	(defun vt-keypad-on (&optional tell)
87	"Turn on the VT applications keypad."	87	"Turn on the VT applications keypad."
88	(interactive)	88	(interactive)
89	(send-string-to-terminal "\e[\e=")	89	(send-string-to-terminal "\e=")
90	(setq vt-applications-keypad-p t)	90	(setq vt-applications-keypad-p t)
91	(if (or tell (interactive-p)) (message "Applications keypad enabled.")))	91	(if (or tell (interactive-p)) (message "Applications keypad enabled.")))
92		92
93	(defun vt-keypad-off (&optional tell)	93	(defun vt-keypad-off (&optional tell)
94	"Turn off the VT applications keypad."	94	"Turn off the VT applications keypad."
95	(interactive "p")	95	(interactive "p")
96	(send-string-to-terminal "\e[\e>")	96	(send-string-to-terminal "\e>")
97	(setq vt-applications-keypad-p nil)	97	(setq vt-applications-keypad-p nil)
98	(if (or tell (interactive-p)) (message "Applications keypad disabled.")))	98	(if (or tell (interactive-p)) (message "Applications keypad disabled.")))
99		99