# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 936828422 0
# Node ID 422a19bbd5163dce68d104aa5bebe20cc9f17578
# Parent  7f8ebd701925788a57d5d10b8d14658dc7391073
(mode-line-unbury-buffer): Use aref instead of sref.
(make-mode-line-mouse-sensitive): Replace `top-line' by
`header-line'.

diff -r 7f8ebd701925 -r 422a19bbd516 lisp/bindings.el
--- 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)))