diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-03-08 03:48:33 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-03-08 03:48:33 +0000 |
| commit | b3a6c0ca49ed4bda1157c483e2318b7d138b8305 (patch) | |
| tree | 6f48cb55af20fd37db74c9e053a588a38c39e83c /lisp | |
| parent | c9baab11c496a1362247d778886662db6169ab02 (diff) | |
| download | emacs-b3a6c0ca49ed4bda1157c483e2318b7d138b8305.tar.gz | |
Unquote lambda functions.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/holidays.el | 8 | ||||
| -rw-r--r-- | lisp/calendar/lunar.el | 4 | ||||
| -rw-r--r-- | lisp/calendar/solar.el | 6 |
3 files changed, 9 insertions, 9 deletions
diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el index 4bd6da2bd08..593e0f307f6 100644 --- a/lisp/calendar/holidays.el +++ b/lisp/calendar/holidays.el @@ -135,13 +135,13 @@ The optional LABEL is used to label the buffer created." (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 @@ The optional LABEL is used to label the buffer created." (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 @@ holidays are found, nil if not." (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)) diff --git a/lisp/calendar/lunar.el b/lisp/calendar/lunar.el index 292e3f84a04..71665ddecc2 100644 --- a/lisp/calendar/lunar.el +++ b/lisp/calendar/lunar.el @@ -205,7 +205,7 @@ remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon, (erase-buffer) (insert (mapconcat - '(lambda (x) + (lambda (x) (let ((date (car x)) (time (car (cdr x))) (phase (car (cdr (cdr x))))) @@ -395,5 +395,5 @@ calendar-time-zone." (provide 'lunar) -;;; arch-tag: 72f0b8a4-7bcc-4a1b-b67a-ff53c4a1d222 +;; arch-tag: 72f0b8a4-7bcc-4a1b-b67a-ff53c4a1d222 ;;; lunar.el ends here diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el index 31d331163e6..71c22995593 100644 --- a/lisp/calendar/solar.el +++ b/lisp/calendar/solar.el @@ -721,7 +721,7 @@ calendar-time-zone are used to interpret local time." (* 62833.1961680 U) (* 0.0000001 (apply '+ - (mapcar '(lambda (x) + (mapcar (lambda (x) (* (car x) (sin (mod (+ (car (cdr x)) @@ -974,7 +974,7 @@ Accurate to less than a minute between 1951 and 2050." (W (- (* 35999.373 T) 2.47)) (Delta-lambda (+ 1 (* 0.0334 (solar-cosine-degrees W)) (* 0.0007 (solar-cosine-degrees (* 2 W))))) - (S (apply '+ (mapcar '(lambda(x) + (S (apply '+ (mapcar (lambda(x) (* (car x) (solar-cosine-degrees (+ (* (car (cdr (cdr x))) T) (car (cdr x)))))) @@ -1088,5 +1088,5 @@ Requires floating point." (provide 'solar) -;;; arch-tag: bc0ff693-df58-4666-bde4-2a7837ccb8fe +;; arch-tag: bc0ff693-df58-4666-bde4-2a7837ccb8fe ;;; solar.el ends here |