emacs: lisp/calendar/diary-lib.el comparison

(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	dc6ae1a1331c
children	82747626b78b

comparison

equal deleted inserted replaced

-:d63fb3b5adad
+:4c6883cb70ab
 d)))
 (insert (if (= (point) (point-min)) "" ?\n) date-string)
 (if date-holiday-list (insert ":  "))
 (let* ((l (current-column))
 (longest 0))
-(insert (mapconcat '(lambda (x)
+(insert (mapconcat (lambda (x)
-(if (< longest (length x))
+					 (if (< longest (length x))
-(setq longest (length x)))
+					     (setq longest (length x)))
-x)
+					 x)
 date-holiday-list
 (concat "\n" (make-string l ? ))))
 (insert ?\n (make-string (+ l longest) ?=) ?\n)))))
 (if (< 0 (length (car (cdr (car entry-list)))))
 (insert (car (cdr (car entry-list))) ?\n))
 (cdr (assoc-ignore-case
 (substring dd-name 0 3)
 (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)
 (setq mm
 (cdr (assoc-ignore-case
 (substring mm-name 0 3)
 (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))))
 (mark-sexp-diary-entries)
 (run-hooks 'nongregorian-diary-marking-hook
 '(month " " day " " year))))
 (make-diary-entry
 (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)))
 (provide 'diary-lib)

Mercurial > emacs