Mercurial > emacs

changeset 92596:935f38ead725

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Unquote lambda functions.
author Glenn Morris <rgm@gnu.org>
date Sat, 08 Mar 2008 03:48:06 +0000
parents 46b27f5e2519
children fa8a9b4153ec
files lisp/calendar/holidays.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/holidays.el	Sat Mar 08 03:47:36 2008 +0000
+++ b/lisp/calendar/holidays.el	Sat Mar 08 03:48:06 2008 +0000
@@ -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))