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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/03/08 03:48:07

Index: holidays.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/holidays.el,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- holidays.el 8 Jan 2008 20:44:03 -0000       1.57
+++ holidays.el 8 Mar 2008 03:48:06 -0000       1.58
@@ -135,13 +135,13 @@
   (interactive
    (let* ((start-year (calendar-read
                        "Starting year of holidays (>0): "
-                       '(lambda (x) (> x 0))
+                       (lambda (x) (> x 0))
                        (int-to-string (extract-calendar-year
                                        (calendar-current-date)))))
           (end-year (calendar-read
                        (format "Ending year (inclusive) of holidays (>=%s): "
                                start-year)
-                       '(lambda (x) (>= x start-year))
+                       (lambda (x) (>= x start-year))
                        (int-to-string start-year)))
           (completion-ignore-case t)
           (lists
@@ -199,7 +199,7 @@
       (goto-char (point-min))
       (insert
        (mapconcat
-        '(lambda (x) (concat (calendar-date-string (car x))
+        (lambda (x) (concat (calendar-date-string (car x))
                              ": " (car (cdr x))))
         holiday-list "\n"))
       (goto-char (point-min))
@@ -285,7 +285,7 @@
       (erase-buffer)
       (insert
        (mapconcat
-        '(lambda (x) (concat (calendar-date-string (car x))
+        (lambda (x) (concat (calendar-date-string (car x))
                              ": " (car (cdr x))))
         holiday-list "\n"))
       (goto-char (point-min))