diff lisp/bindings.el @ 25613:422a19bbd516

(mode-line-unbury-buffer): Use aref instead of sref. (make-mode-line-mouse-sensitive): Replace `top-line' by `header-line'.

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