Mercurial > emacs
changeset 28615:4c6883cb70ab
(fancy-diary-display, mark-diary-entries)
(insert-cyclic-diary-entry): Unquote the lambda.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 17 Apr 2000 10:47:01 +0000 |
| parents | d63fb3b5adad |
| children | 313ef0d76864 |
| files | lisp/calendar/diary-lib.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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)))