Commit 96ffea61 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(list-holidays): Make Y2 optional.

parent e1422141
2008-03-26 Stefan Monnier <monnier@iro.umontreal.ca>
 
* calendar/holidays.el (list-holidays): Make Y2 optional.
* calendar/appt.el (appt-buffer-name): Don't use a leading space for
buffers shown to the user.
(appt-disp-window): Disable undo explicitly now that the leading space
......
......@@ -127,7 +127,7 @@ This function is suitable for execution in a .emacs file."
;; rms: "Emacs commands to display a list of something generally start
;; with `list-'. Please make `list-holidays' the principal name."
;;;###autoload
(defun list-holidays (y1 y2 &optional l label)
(defun list-holidays (y1 &optional y2 l label)
"Display holidays for years Y1 to Y2 (inclusive).
The optional list of holidays L defaults to `calendar-holidays'.
......@@ -185,9 +185,9 @@ The optional LABEL is used to label the buffer created."
"Holidays"
(format "%s Holidays" choice)))))
(list start-year end-year which name)))
(unless y2 (setq y2 y1))
(message "Computing holidays...")
(let* ((holiday-buffer "*Holidays*")
(calendar-holidays (if l l calendar-holidays))
(let* ((calendar-holidays (if l l calendar-holidays))
(title (or label "Holidays"))
(holiday-list nil)
(s (calendar-absolute-from-gregorian (list 2 1 y1)))
......
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