Commit 83ff5106 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

same-window-buffer-names do its usual job--force *info* buffer
into another window.
parent b2b9d575
...@@ -1772,11 +1772,12 @@ the inserted text. Value is always t." ...@@ -1772,11 +1772,12 @@ the inserted text. Value is always t."
"Go to the info node for the calendar." "Go to the info node for the calendar."
(interactive) (interactive)
(require 'info) (require 'info)
(let ((where (Info-find-emacs-command-nodes 'calendar))) (let ((where (save-window-excursion
(Info-find-emacs-command-nodes 'calendar))))
(if (not where) (if (not where)
(error "Couldn't find documentation for the calendar.") (error "Couldn't find documentation for the calendar.")
(save-window-excursion (info)) (let (same-window-buffer-names)
(pop-to-buffer "*info*") (info))
(Info-find-node (car (car where)) (car (cdr (car where))))))) (Info-find-node (car (car where)) (car (cdr (car where)))))))
(defun calendar-mode () (defun calendar-mode ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment