Mercurial > emacs
comparison lisp/ebuff-menu.el @ 1607:c154322a8546
* bytecomp.el: Declare unread-command-char an obsolete variable.
* vip.el (vip-escape-to-emacs, vip-prefix-arg-value,
vip-prefix-arg-com): Use unread-command-event instead of
unread-command-char; respect its new semantics.
* ebuff-menu.el (electric-buffer-list, Electric-buffer-menu-exit):
Same.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 16 Nov 1992 01:29:47 +0000 |
parents | 567b06901789 |
children | 04fb1d3d6992 |
comparison
equal
deleted
inserted
replaced
1606:4303c30b29de | 1607:c154322a8546 |
---|---|
61 (set-buffer buffer) | 61 (set-buffer buffer) |
62 (Electric-buffer-menu-mode) | 62 (Electric-buffer-menu-mode) |
63 (setq select | 63 (setq select |
64 (catch 'electric-buffer-menu-select | 64 (catch 'electric-buffer-menu-select |
65 (message "<<< Press Space to bury the buffer list >>>") | 65 (message "<<< Press Space to bury the buffer list >>>") |
66 (if (= (setq unread-command-char (read-char)) ?\ ) | 66 (if (= (setq unread-command-event (read-char)) ?\ ) |
67 (progn (setq unread-command-char -1) | 67 (progn (setq unread-command-event nil) |
68 (throw 'electric-buffer-menu-select nil))) | 68 (throw 'electric-buffer-menu-select nil))) |
69 (let ((first (progn (goto-char (point-min)) | 69 (let ((first (progn (goto-char (point-min)) |
70 (forward-line 2) | 70 (forward-line 2) |
71 (point))) | 71 (point))) |
72 (last (progn (goto-char (point-max)) | 72 (last (progn (goto-char (point-max)) |
194 (define-key map "\e<" 'beginning-of-buffer) | 194 (define-key map "\e<" 'beginning-of-buffer) |
195 (setq electric-buffer-menu-mode-map map))) | 195 (setq electric-buffer-menu-mode-map map))) |
196 | 196 |
197 (defun Electric-buffer-menu-exit () | 197 (defun Electric-buffer-menu-exit () |
198 (interactive) | 198 (interactive) |
199 (setq unread-command-char last-input-char) | 199 (setq unread-command-event last-input-char) |
200 ;; for robustness | 200 ;; for robustness |
201 (condition-case () | 201 (condition-case () |
202 (throw 'electric-buffer-menu-select nil) | 202 (throw 'electric-buffer-menu-select nil) |
203 (error (Buffer-menu-mode) | 203 (error (Buffer-menu-mode) |
204 (other-buffer)))) | 204 (other-buffer)))) |