(calendar-goto-info-node): Don't let

same-window-buffer-names do its usual job--force *info* buffer
into another window.

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index e62c9b3cf8cf12e96f008ff07aee8449c0fa81ee..ad60d2dea968cb74eae50184fc103ecd15bada30 100644 (file)
--- 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 ()