From 4ac44b4c717c9a74a23f0a3e51756c827a2a4790 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 8 Sep 1999 22:07:02 +0000 Subject: [PATCH] (mode-line-unbury-buffer): Use aref instead of sref. (make-mode-line-mouse-sensitive): Replace `top-line' by `header-line'. --- lisp/bindings.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/bindings.el b/lisp/bindings.el index aaa5d0d9c43..e27cce781f0 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -146,7 +146,7 @@ Keymap for mode operations menu in the mode line.") 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 @@ Non-nil means mode line has been made mouse-sensitive.") (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 @@ Non-nil means mode line has been made mouse-sensitive.") ;; 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))) -- 2.39.5