mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-05 08:53:45 +00:00
Code Issues Releases Activity

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

Browse Source 
same-window-buffer-names do its usual job--force *info* buffer
into another window.
This commit is contained in:
Richard M. Stallman 1995-11-18 18:24:42 +00:00
parent b2b9d5753d
commit 83ff5106cf
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/calendar/calendar.el
View File

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