[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/info.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/info.el |
Date: |
Mon, 16 Jan 2006 23:54:02 +0000 |
Index: emacs/lisp/info.el
diff -u emacs/lisp/info.el:1.470 emacs/lisp/info.el:1.471
--- emacs/lisp/info.el:1.470 Thu Jan 5 16:05:49 2006
+++ emacs/lisp/info.el Mon Jan 16 23:54:02 2006
@@ -1399,15 +1399,31 @@
(Info-hide-cookies-node)
(run-hooks 'Info-selection-hook)))))
+(defvar Info-mode-line-node-keymap
+ (let ((map (make-sparse-keymap)))
+ (define-key map [mode-line mouse-1] 'Info-scroll-up)
+ (define-key map [mode-line mouse-3] 'Info-scroll-down)
+ map)
+ "Keymap to put on the Info node name in the mode line.")
+
(defun Info-set-mode-line ()
(setq mode-line-buffer-identification
(nconc (propertized-buffer-identification "%b")
(list
- (concat " ("
- (if Info-current-file
- (file-name-nondirectory Info-current-file)
- " ")
- ") " (or Info-current-node ""))))))
+ (concat
+ " ("
+ (if (stringp Info-current-file)
+ (file-name-nondirectory Info-current-file)
+ "")
+ ") "
+ (if Info-current-node
+ (propertize Info-current-node
+ 'face 'mode-line-buffer-id
+ 'help-echo
+ "mouse-1: scroll forward, mouse-3: scroll back"
+ 'mouse-face 'mode-line-highlight
+ 'local-map Info-mode-line-node-keymap)
+ ""))))))
;; Go to an Info node specified with a filename-and-nodename string
;; of the sort that is found in pointers in nodes.