Commit 211d6309 authored by Richard M. Stallman's avatar Richard M. Stallman

(Info-menu): Bind beg with let.

(info): Use pop-to-buffer.
(same-window-buffer-names): Add "*info*".
parent d440e474
......@@ -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))
......
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