From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 18 Nov 1995 18:24:42 +0000 (+0000)
Subject: (calendar-goto-info-node): Don't let
X-Git-Tag: emacs-19.34~2271
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=83ff5106cf63645cd63686e440cac84b566505f3;p=emacs.git

(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 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 ()