comparison lisp/calendar/calendar.el @ 92895:379d912c3710

(diary-file): Doc fix. (calendar-buffer-list): Return buffers rather than strings (fixes previous change).

92894:70290cfccdc1

with the remainder of the line being the diary entry string for
that date.  MONTH and DAY are one or two digit numbers, YEAR is a
number and may be written in full or abbreviated to the final two
digits (if `abbreviated-calendar-year' is non-nil).  MONTHNAME
and DAYNAME can be spelt in full (as specified by the variables
`calendar-month-name-array' and `calendar-day-name-array'),
abbreviated (as specified by `calendar-month-abbrev-array' and
`calendar-day-abbrev-array') with or without a period,
capitalized or not.  Any of DAY, MONTH, or MONTHNAME, YEAR can be
`*' which matches any day, month, or year, respectively.  If the

                        (push w list)))
                  nil t)
    list))

(defun calendar-buffer-list ()
  "List of all calendar-related buffers."
  (let (buffs)
    (dolist (b (list cal-hebrew-yahrzeit-buffer lunar-phases-buffer
                     holiday-buffer fancy-diary-buffer
                     (get-file-buffer diary-file)
                     calendar-buffer other-calendars-buffer))
      (and b (get-buffer b)
           (push b buffs)))
    buffs))

(defun exit-calendar ()
  "Get out of the calendar window and hide it and related buffers."

92895:379d912c3710

with the remainder of the line being the diary entry string for
that date.  MONTH and DAY are one or two digit numbers, YEAR is a
number and may be written in full or abbreviated to the final two
digits (if `abbreviated-calendar-year' is non-nil).  MONTHNAME
and DAYNAME can be spelled in full (as specified by the variables
`calendar-month-name-array' and `calendar-day-name-array'),
abbreviated (as specified by `calendar-month-abbrev-array' and
`calendar-day-abbrev-array') with or without a period,
capitalized or not.  Any of DAY, MONTH, or MONTHNAME, YEAR can be
`*' which matches any day, month, or year, respectively.  If the

                        (push w list)))
                  nil t)
    list))

(defun calendar-buffer-list ()
  "List of all calendar-related buffers (as buffers, not strings)."
  (let (buffs)
    (dolist (b (list cal-hebrew-yahrzeit-buffer lunar-phases-buffer
                     holiday-buffer fancy-diary-buffer
                     (get-file-buffer diary-file)
                     calendar-buffer other-calendars-buffer))
      (and b (setq b (get-buffer b))
           (push b buffs)))
    buffs))

(defun exit-calendar ()
  "Get out of the calendar window and hide it and related buffers."