diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-18 18:24:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-18 18:24:42 +0000 |
| commit | 83ff5106cf63645cd63686e440cac84b566505f3 (patch) | |
| tree | 9295d4de2815f99da03a4b13fc5824e30a86ebec | |
| parent | b2b9d5753db2f8819136abcb4512957b58a5f8cb (diff) | |
| download | emacs-83ff5106cf63645cd63686e440cac84b566505f3.tar.gz | |
(calendar-goto-info-node): Don't let
same-window-buffer-names do its usual job--force *info* buffer
into another window.
| -rw-r--r-- | lisp/calendar/calendar.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index e62c9b3cf8c..ad60d2dea96 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1772,11 +1772,12 @@ the inserted text. Value is always t." "Go to the info node for the calendar." (interactive) (require 'info) - (let ((where (Info-find-emacs-command-nodes 'calendar))) + (let ((where (save-window-excursion + (Info-find-emacs-command-nodes 'calendar)))) (if (not where) (error "Couldn't find documentation for the calendar.") - (save-window-excursion (info)) - (pop-to-buffer "*info*") + (let (same-window-buffer-names) + (info)) (Info-find-node (car (car where)) (car (cdr (car where))))))) (defun calendar-mode () |