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

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