Mercurial > emacs

comparison lisp/calendar/cal-x.el @ 24860:069cad4a56ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(special-display-buffer-names): Don't put (get-file-buffer diary-file) on this list.
author Karl Heuer <kwzh@gnu.org>
date Thu, 17 Jun 1999 05:31:22 +0000
parents 905aab3037e8
children 5f37b93c8538
comparison
equal deleted inserted replaced
24859:0291983fe62f 24860:069cad4a56ef
129 (if (not (bufferp (get-buffer fancy-diary-buffer))) 129 (if (not (bufferp (get-buffer fancy-diary-buffer)))
130 (make-fancy-diary-buffer)) 130 (make-fancy-diary-buffer))
131 fancy-diary-buffer)) 131 fancy-diary-buffer))
132 'diary))))) 132 'diary)))))
133 133
134 ;; Formerly (get-file-buffer diary-file) was added to the list here,
135 ;; but that isn't clean, and the value could even be nil.
134 (setq special-display-buffer-names 136 (setq special-display-buffer-names
135 (append special-display-buffer-names 137 (append special-display-buffer-names
136 (list "*Yahrzeits*" lunar-phases-buffer holiday-buffer 138 (list "*Yahrzeits*" lunar-phases-buffer holiday-buffer
137 fancy-diary-buffer (get-file-buffer diary-file) 139 fancy-diary-buffer
138 other-calendars-buffer calendar-buffer))) 140 other-calendars-buffer calendar-buffer)))
139 141
140 (run-hooks 'cal-x-load-hook) 142 (run-hooks 'cal-x-load-hook)
141 143
142 (provide 'cal-x) 144 (provide 'cal-x)