[Emacs-diffs] Changes to emacs/lisp/calendar/holidays.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/03/26 03:43:45

Index: calendar/holidays.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/holidays.el,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -b -r1.65 -r1.66
--- calendar/holidays.el        26 Mar 2008 03:14:13 -0000      1.65
+++ calendar/holidays.el        26 Mar 2008 03:43:43 -0000      1.66
@@ -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)))