Mercurial > emacs
changeset 10957:6d3568e33019
(Info-menu): Bind beg with let.
(info): Use pop-to-buffer.
(same-window-buffer-names): Add "*info*".
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 11 Mar 1995 04:37:47 +0000 |
| parents | 40810ac8d212 |
| children | c0d821d95739 |
| files | lisp/info.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))