Mercurial > emacs
comparison lisp/double.el @ 7279:89ed0051e237
(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 | 7caad7f2269a |
| children | 049bc48732d6 |
comparison
equal
deleted
inserted
replaced
| 7278:fa6a265334a2 | 7279:89ed0051e237 |
|---|---|
| 83 (prog2 (message "%s%c" prompt double-last-event) | 83 (prog2 (message "%s%c" prompt double-last-event) |
| 84 (read-event) | 84 (read-event) |
| 85 (message "")) | 85 (message "")) |
| 86 (read-event))) | 86 (read-event))) |
| 87 | 87 |
| 88 (global-set-key [ ignore ] '(lambda () (interactive))) | 88 (global-set-key [ignore] '(lambda () (interactive))) |
| 89 | 89 |
| 90 (or (boundp 'isearch-mode-map) | 90 (or (boundp 'isearch-mode-map) |
| 91 (load-library "isearch")) | 91 (load-library "isearch")) |
| 92 | 92 |
| 93 (define-key isearch-mode-map [ ignore ] | 93 (define-key isearch-mode-map [ignore] |
| 94 (function (lambda () (interactive) (isearch-update)))) | 94 (function (lambda () (interactive) (isearch-update)))) |
| 95 | 95 |
| 96 (defun double-translate-key (prompt) | 96 (defun double-translate-key (prompt) |
| 97 ;; Translate input events using double map. | 97 ;; Translate input events using double map. |
| 98 (let ((key last-input-char)) | 98 (let ((key last-input-char)) |
| 105 (entry (assoc double-last-event double-map))) | 105 (entry (assoc double-last-event double-map))) |
| 106 (if (eq new double-last-event) | 106 (if (eq new double-last-event) |
| 107 (progn | 107 (progn |
| 108 (setq unread-command-events | 108 (setq unread-command-events |
| 109 (append (make-list (1- (length (nth 1 entry))) | 109 (append (make-list (1- (length (nth 1 entry))) |
| 110 'delete) | 110 127) |
| 111 (nth 2 entry) | 111 (nth 2 entry) |
| 112 '(magic-end))) | 112 '(magic-end))) |
| 113 (vector 127)) | 113 (vector 127)) |
| 114 (setq unread-command-events (list new)) | 114 (setq unread-command-events (list new)) |
| 115 [ ignore ]))) | 115 [ignore]))) |
| 116 ((eq key 'magic-end) | 116 ((eq key 'magic-end) |
| 117 ;; End of double event. Ignore. | 117 ;; End of double event. Ignore. |
| 118 [ ignore ]) | 118 [ignore]) |
| 119 (t | 119 (t |
| 120 ;; New key. | 120 ;; New key. |
| 121 (let ((exp (nth 1 (assoc key double-map)))) | 121 (let ((exp (nth 1 (assoc key double-map)))) |
| 122 (setq double-last-event key) | 122 (setq double-last-event key) |
| 123 (setq unread-command-events | 123 (setq unread-command-events |