Mercurial > hg > xemacs-beta

comparison lisp/packages/info.el @ 82:6a378aca36af r20-0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b91
author cvs
date Mon, 13 Aug 2007 09:07:36 +0200
parents 131b0175ea99
children 0d2f883870bc
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
832 (run-hooks 'Info-select-hook) 832 (run-hooks 'Info-select-hook)
833 (if Info-enable-active-nodes (eval active-expression))))) 833 (if Info-enable-active-nodes (eval active-expression)))))
834 834
835 (defun Info-set-mode-line () 835 (defun Info-set-mode-line ()
836 (setq modeline-buffer-identification 836 (setq modeline-buffer-identification
837 (concat 837 (list (cons modeline-buffer-id-left-extent "Info: ")
838 "Info: (" 838 (cons modeline-buffer-id-right-extent
839 (if Info-current-file 839 (concat
840 (let ((name (file-name-nondirectory Info-current-file))) 840 "("
841 (if (string-match "\\.info$" name) 841 (if Info-current-file
842 (substring name 0 -5) 842 (let ((name (file-name-nondirectory Info-current-file)))
843 name)) 843 (if (string-match "\\.info$" name)
844 "") 844 (substring name 0 -5)
845 ")" 845 name))
846 (or Info-current-node "")))) 846 "")
847 847 ")"
848 (or Info-current-node ""))))))
849
848 ;; Go to an info node specified with a filename-and-nodename string 850 ;; Go to an info node specified with a filename-and-nodename string
849 ;; of the sort that is found in pointers in nodes. 851 ;; of the sort that is found in pointers in nodes.
850 852
851 ;;;###autoload 853 ;;;###autoload
852 (defun Info-goto-node (nodename &optional no-going-back tryfile) 854 (defun Info-goto-node (nodename &optional no-going-back tryfile)