diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-04-17 10:47:01 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-04-17 10:47:01 +0000 |
| commit | 86855ebd16347d21329e52d0cd95cb16e5c61fd5 (patch) | |
| tree | 2a1e1268f656a7a0374b837278afc4a4de31d058 /lisp/calendar | |
| parent | 471cd1d3feb9707b72bb3cc6948fe539d9dd344a (diff) | |
| download | emacs-86855ebd16347d21329e52d0cd95cb16e5c61fd5.tar.gz | |
(fancy-diary-display, mark-diary-entries)
(insert-cyclic-diary-entry): Unquote the lambda.
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/diary-lib.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 184acb31767..877858fe703 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -502,10 +502,10 @@ This function is provided for optional use as the `diary-display-hook'." (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 @@ After the entries are marked, the hooks `nongregorian-diary-marking-hook' and (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 @@ After the entries are marked, the hooks `nongregorian-diary-marking-hook' and (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 @@ Prefix arg will make the entry nonmarking." (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))) |