procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Info-menu): Bind beg with let.

Browse source 
(info): Use pop-to-buffer.
(same-window-buffer-names): Add "*info*".
This commit is contained in:
Richard M. Stallman 1995-03-11 04:37:47 +00:00
parent d440e4741a
commit 211d6309ac
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/info.el
View file

@ -167,6 +167,9 @@ Do the right thing if the file has been compressed or zipped."
(let ((buffer-read-only nil))
(shell-command-on-region (point-min) (point-max) decoder t)))))
;;;###autoload
(add-hook 'same-window-buffer-names "*info*")
;;;###autoload
(defun info (&optional file)
"Enter Info, the documentation browser.
@ -180,7 +183,7 @@ to read a file name from the minibuffer."
(if file
(Info-goto-node (concat "(" file ")"))
(if (get-buffer "*info*")
(switch-to-buffer "*info*")
(pop-to-buffer "*info*")
(Info-directory))))
;;;###autoload
@ -921,6 +924,7 @@ Completion is allowed, and the menu item point is on is the default."
;; If point is within a menu item, use that item as the default
(default nil)
(p (point))
beg
(last nil))
(save-excursion
(goto-char (point-min))