# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 955968421 0
# Node ID 4c6883cb70ab4305da6580c7a1053daa2d9c8938
# Parent  d63fb3b5adad4909264a6ed5d9e2703b40942417
(fancy-diary-display, mark-diary-entries)
(insert-cyclic-diary-entry): Unquote the lambda.

diff -r d63fb3b5adad -r 4c6883cb70ab lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Mon Apr 17 10:37:49 2000 +0000
+++ b/lisp/calendar/diary-lib.el	Mon Apr 17 10:47:01 2000 +0000
@@ -502,10 +502,10 @@
                   (if date-holiday-list (insert ":  "))
                   (let* ((l (current-column))
                          (longest 0))
-                    (insert (mapconcat '(lambda (x)
-                                          (if (< longest (length x))
-                                              (setq longest (length x)))
-                                          x)
+                    (insert (mapconcat (lambda (x)
+					 (if (< longest (length x))
+					     (setq longest (length x)))
+					 x)
                                        date-holiday-list
                                        (concat "\n" (make-string l ? ))))
                     (insert ?\n (make-string (+ l longest) ?=) ?\n)))))
@@ -782,7 +782,7 @@
                                    (calendar-make-alist
                                     calendar-day-name-array
                                     0
-                                    '(lambda (x) (substring x 0 3))))))
+                                    (lambda (x) (substring x 0 3))))))
                           (if mm-name
                               (if (string-equal mm-name "*")
                                   (setq mm 0)
@@ -792,7 +792,7 @@
                                             (calendar-make-alist
                                              calendar-month-name-array
                                              1
-                                             '(lambda (x) (substring x 0 3)))
+                                             (lambda (x) (substring x 0 3)))
                                             )))))
                           (mark-calendar-date-pattern mm dd yy))))
                     (setq d (cdr d))))
@@ -1532,7 +1532,7 @@
      (format "%s(diary-cyclic %d %s)"
              sexp-diary-entry-symbol
              (calendar-read "Repeat every how many days: "
-                            '(lambda (x) (> x 0)))
+                            (lambda (x) (> x 0)))
              (calendar-date-string (calendar-cursor-to-date t) nil t))
      arg)))