(double-translate-key): Changed 'delete to 127 to make

the non-X11 version work.

diff --git a/lisp/double.el b/lisp/double.el
index e0e3071463d5a78b6f2ec61640bdebfc27ec5f73..4de4b8a1dd854b2c1e0de4ddaca9dabe0fa6ab60 100644 (file)
--- a/lisp/double.el
+++ b/lisp/double.el
@@ -85,12 +85,12 @@ Each entry is a list with three elements:
        (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 @@ Each entry is a list with three elements:
                 (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))))