Mercurial > emacs
changeset 25613:422a19bbd516
(mode-line-unbury-buffer): Use aref instead of sref.
(make-mode-line-mouse-sensitive): Replace `top-line' by
`header-line'.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 08 Sep 1999 22:07:02 +0000 |
| parents | 7f8ebd701925 |
| children | 766b6a577f15 |
| files | lisp/bindings.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/bindings.el Wed Sep 08 21:14:25 1999 +0000 +++ b/lisp/bindings.el Wed Sep 08 22:07:02 1999 +0000 @@ -146,7 +146,7 @@ Switch to the last buffer in the buffer list that is not hidden." (interactive) (let ((list (reverse (buffer-list)))) - (while (eq (sref (buffer-name (car list)) 0) ? ) + (while (eq (aref (buffer-name (car list)) 0) ? ) (setq list (cdr list))) (switch-to-buffer (car list)))) @@ -223,13 +223,13 @@ (let ((map (make-sparse-keymap)) (s (copy-sequence "%12b"))) (define-key map [mode-line mouse-1] 'mode-line-other-buffer) - (define-key map [top-line mouse-1] 'mode-line-other-buffer) + (define-key map [header-line mouse-1] 'mode-line-other-buffer) (define-key map [mode-line M-mouse-2] 'mode-line-unbury-buffer) - (define-key map [top-line M-mouse-2] 'mode-line-unbury-buffer) + (define-key map [header-line M-mouse-2] 'mode-line-unbury-buffer) (define-key map [mode-line mouse-2] 'bury-buffer) - (define-key map [top-line mouse-2] 'bury-buffer) + (define-key map [header-line mouse-2] 'bury-buffer) (define-key map [mode-line down-mouse-3] 'mouse-buffer-menu) - (define-key map [top-line down-mouse-3] 'mouse-buffer-menu) + (define-key map [header-line down-mouse-3] 'mouse-buffer-menu) (setq mode-line-buffer-identification-keymap map) (setq-default mode-line-buffer-identification (list s)) (put-text-property 0 (length s) 'face '(:weight bold) s) @@ -240,7 +240,7 @@ ;; Menu of minor modes. (let ((map (make-sparse-keymap))) (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) - (define-key map [top-line down-mouse-3] 'mode-line-mode-menu-1) + (define-key map [header-line down-mouse-3] 'mode-line-mode-menu-1) (setq mode-line-minor-mode-keymap map)) (force-mode-line-update)))