Commit 0f0c1f27 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Add a new command `info-display-manual'.

 lisp/info.el (info-display-manual): New function.
parent 63139bfa
...@@ -676,6 +676,14 @@ binding `log-view-expanded-log-entry-function' to a suitable function. ...@@ -676,6 +676,14 @@ binding `log-view-expanded-log-entry-function' to a suitable function.
*** New command `nato-region' converts text to NATO phonetic alphabet. *** New command `nato-region' converts text to NATO phonetic alphabet.
*** The new command `info-display-manual' will display an Info manual
specified by its name. If that manual is already visited in some Info
buffer within the current session, the command will display that
buffer. Otherwise, it will load the manual and display it. This is
handy if you have many manuals in many Info buffers, and don't
remember the name of the buffer visiting the manual you want to
consult.
* New Modes and Packages in Emacs 24.1 * New Modes and Packages in Emacs 24.1
......
2011-04-01 Eli Zaretskii <eliz@gnu.org>
* info.el (info-display-manual): New function.
2011-03-31 Stefan Monnier <monnier@iro.umontreal.ca> 2011-03-31 Stefan Monnier <monnier@iro.umontreal.ca>
   
* loadup.el: Load minibuffer after loaddefs, to use define-minor-mode. * loadup.el: Load minibuffer after loaddefs, to use define-minor-mode.
......
...@@ -4930,6 +4930,27 @@ type returned by `Info-bookmark-make-record', which see." ...@@ -4930,6 +4930,27 @@ type returned by `Info-bookmark-make-record', which see."
(bookmark-default-handler (bookmark-default-handler
`("" (buffer . ,buf) . ,(bookmark-get-bookmark-record bmk))))) `("" (buffer . ,buf) . ,(bookmark-get-bookmark-record bmk)))))
;;;###autoload
(defun info-display-manual (manual)
"Go to Info buffer that displays MANUAL, creating it if none already exists."
(interactive "sManual name: ")
(let ((blist (buffer-list))
(manual-re (concat "\\(/\\|\\`\\)" manual "\\(\\.\\|\\'\\)"))
(case-fold-search t)
found)
(dolist (buffer blist)
(with-current-buffer buffer
(when (and (eq major-mode 'Info-mode)
(stringp Info-current-file)
(string-match manual-re Info-current-file))
(setq found buffer
blist nil))))
(if found
(pop-to-buffer found)
(info-initialize)
(info (Info-find-file manual)))))
(provide 'info) (provide 'info)
;;; info.el ends here ;;; info.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment