Mercurial > emacs
changeset 93238:a2947a0dab56
(list-holidays): Make Y2 optional.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 26 Mar 2008 03:43:43 +0000 |
| parents | 0f4b8a3dc49e |
| children | 3d37b67e5a01 |
| files | lisp/ChangeLog lisp/calendar/holidays.el |
| diffstat | 2 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Mar 26 03:42:57 2008 +0000 +++ b/lisp/ChangeLog Wed Mar 26 03:43:43 2008 +0000 @@ -1,5 +1,7 @@ 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
--- a/lisp/calendar/holidays.el Wed Mar 26 03:42:57 2008 +0000 +++ b/lisp/calendar/holidays.el Wed Mar 26 03:43:43 2008 +0000 @@ -127,7 +127,7 @@ ;; 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 @@ "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)))