# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 794896667 0
# Node ID 6d3568e33019c8bbf3a38791f6a06a2c021edf7b
# Parent  40810ac8d212e321d718795894b113afd63c6fe4
(Info-menu): Bind beg with let.

(info): Use pop-to-buffer.
(same-window-buffer-names): Add "*info*".

diff -r 40810ac8d212 -r 6d3568e33019 lisp/info.el
--- a/lisp/info.el	Sat Mar 11 03:58:31 1995 +0000
+++ b/lisp/info.el	Sat Mar 11 04:37:47 1995 +0000
@@ -168,6 +168,9 @@
 	  (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.
 Optional argument FILE specifies the file to examine;
@@ -180,7 +183,7 @@
   (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 @@
 	 ;; 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))