# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 816719082 0
# Node ID a2554930ea38c6a94b805c7559cbf92ff54586ee
# Parent  c50d9d86eda9121992d960c878d2857cf9566e34
(calendar-goto-info-node): Don't let
same-window-buffer-names do its usual job--force *info* buffer
into another window.

diff -r c50d9d86eda9 -r a2554930ea38 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Sat Nov 18 17:44:30 1995 +0000
+++ b/lisp/calendar/calendar.el	Sat Nov 18 18:24:42 1995 +0000
@@ -1772,11 +1772,12 @@
   "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 ()