Mercurial > emacs

changeset 7279:89ed0051e237

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(double-translate-key): Changed 'delete to 127 to make the non-X11 version work.
author Richard M. Stallman <rms@gnu.org>
date Mon, 02 May 1994 18:27:24 +0000
parents fa6a265334a2
children 120470ed3960
files lisp/double.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/double.el	Mon May 02 18:15:22 1994 +0000
+++ b/lisp/double.el	Mon May 02 18:27:24 1994 +0000
@@ -85,12 +85,12 @@
 	(message ""))
     (read-event)))
 
-(global-set-key [ ignore ] '(lambda () (interactive)))
+(global-set-key [ignore] '(lambda () (interactive)))
 
 (or (boundp 'isearch-mode-map)
     (load-library "isearch"))
 
-(define-key isearch-mode-map [ ignore ] 
+(define-key isearch-mode-map [ignore] 
   (function (lambda () (interactive) (isearch-update))))
 
 (defun double-translate-key (prompt)
@@ -107,15 +107,15 @@
 		 (progn 
 		   (setq unread-command-events
 			 (append (make-list (1- (length (nth 1 entry)))
-					    'delete)
+					    127)
 				 (nth 2 entry)
 				 '(magic-end)))
 		   (vector 127))
 	       (setq unread-command-events (list new))
-	       [ ignore ])))
+	       [ignore])))
 	  ((eq key 'magic-end)
 	   ;; End of double event.  Ignore.
-	   [ ignore ])
+	   [ignore])
 	  (t
 	   ;; New key.
 	   (let ((exp (nth 1 (assoc key double-map))))