From b3a6c0ca49ed4bda1157c483e2318b7d138b8305 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Sat, 8 Mar 2008 03:48:33 +0000
Subject: [PATCH] Unquote lambda functions.

---
 lisp/calendar/holidays.el | 8 ++++----
 lisp/calendar/lunar.el    | 4 ++--
 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
-- 
2.11.4.GIT