Unquote lambda functions. Add autoload cookies to functions formerly

autoloaded in calendar.el.  Set `generated-autoload-file' to
"cal-loaddefs.el".

diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el
index 3649c936eb4eb6d792f472b5cf6242f783dc80a8..7e81aa2a8ae0dcd560e1ad8b515c7d461ccbeb08 100644 (file)
--- a/lisp/calendar/cal-coptic.el
+++ b/lisp/calendar/cal-coptic.el
@@ -104,6 +104,7 @@ Gregorian date Sunday, December 31, 1 BC."
                (1- (calendar-absolute-from-coptic (list month 1 year))))))
     (list month day year))))
 
+;;;###autoload
 (defun calendar-coptic-date-string (&optional date)
   "String of Coptic date of Gregorian DATE.
 Returns the empty string if DATE is pre-Coptic calendar.
@@ -122,6 +123,7 @@ Defaults to today's date if DATE is not given."
             (year (int-to-string y)))
         (mapconcat 'eval calendar-date-display-form "")))))
 
+;;;###autoload
 (defun calendar-print-coptic-date ()
   "Show the Coptic calendar equivalent of the selected date."
   (interactive)
@@ -130,6 +132,7 @@ Defaults to today's date if DATE is not given."
         (message "Date is pre-%s calendar" coptic-name)
       (message "%s date: %s" coptic-name f))))
 
+;;;###autoload
 (defun calendar-goto-coptic-date (date &optional noecho)
   "Move cursor to Coptic date DATE.
 Echo Coptic date unless NOECHO is t."
@@ -143,7 +146,7 @@ Echo Coptic date unless NOECHO is t."
   (let* ((today (calendar-current-date))
          (year (calendar-read
                 (format "%s calendar year (>0): " coptic-name)
-                '(lambda (x) (> x 0))
+                (lambda (x) (> x 0))
                 (int-to-string
                  (extract-calendar-year
                   (calendar-coptic-from-absolute
@@ -160,7 +163,7 @@ Echo Coptic date unless NOECHO is t."
          (last (coptic-calendar-last-day-of-month month year))
          (day (calendar-read
                (format "%s calendar day (1-%d): " coptic-name last)
-               '(lambda (x) (and (< 0 x) (<= x last))))))
+               (lambda (x) (and (< 0 x) (<= x last))))))
     (list (list month day year))))
 
 (defun diary-coptic-date ()
@@ -194,6 +197,7 @@ Gregorian date Sunday, December 31, 1 BC."
   (let ((coptic-calendar-epoch ethiopic-calendar-epoch))
     (calendar-coptic-from-absolute date)))
 
+;;;###autoload
 (defun calendar-ethiopic-date-string (&optional date)
   "String of Ethiopic date of Gregorian DATE.
 Returns the empty string if DATE is pre-Ethiopic calendar.
@@ -203,6 +207,7 @@ Defaults to today's date if DATE is not given."
         (coptic-calendar-month-name-array ethiopic-calendar-month-name-array))
     (calendar-coptic-date-string date)))
 
+;;;###autoload
 (defun calendar-print-ethiopic-date ()
   "Show the Ethiopic calendar equivalent of the selected date."
   (interactive)
@@ -211,6 +216,7 @@ Defaults to today's date if DATE is not given."
         (coptic-calendar-month-name-array ethiopic-calendar-month-name-array))
     (call-interactively 'calendar-print-coptic-date)))
 
+;;;###autoload
 (defun calendar-goto-ethiopic-date (date &optional noecho)
   "Move cursor to Ethiopic date DATE.
 Echo Ethiopic date unless NOECHO is t."
@@ -232,5 +238,9 @@ Echo Ethiopic date unless NOECHO is t."
 
 (provide 'cal-coptic)
 
-;;; arch-tag: 72d49161-25df-4072-9312-b182cdca7627
+;; Local Variables:
+;; generated-autoload-file: "cal-loaddefs.el"
+;; End:
+
+;; arch-tag: 72d49161-25df-4072-9312-b182cdca7627
 ;;; cal-coptic.el ends here