mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
the non-X11 version work.
This commit is contained in:
Richard M. Stallman 1994-05-02 18:27:24 +00:00
parent d43e0b1674
commit f55e5c6be1
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/double.el
View file

@ -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))))