diff options
Diffstat (limited to 'lisp')
| -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 () |