From 83ff5106cf63645cd63686e440cac84b566505f3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 18 Nov 1995 18:24:42 +0000 Subject: [PATCH] (calendar-goto-info-node): Don't let same-window-buffer-names do its usual job--force *info* buffer into another window. --- lisp/calendar/calendar.el | 7 ++++--- 1 file 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 () -- 2.39.2