mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(Info-mode-line-node-keymap): New defvar.

Browse Source 
(Info-set-mode-line): Use `stringp' to check Info-current-file.
Propertize Info-current-node with `mode-line-buffer-id' and
`mode-line-highlight' faces and `Info-mode-line-node-keymap'.
This commit is contained in:
Juri Linkov 2006-01-16 23:54:02 +00:00
parent 4ec983f103
commit 8eafa1659b
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/info.el
View File

@ -1399,15 +1399,31 @@ any double quotes or backslashes must be escaped (\\\",\\\\)."
(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.