changeset 92580:2a9b05a547d4

Unquote lambda functions. Add autoload cookies to functions formerly autoloaded in calendar.el. Set `generated-autoload-file' to "cal-loaddefs.el".
author Glenn Morris <rgm@gnu.org>
date Sat, 08 Mar 2008 03:40:14 +0000
parents 8ddfb879916b
children 4fb08d15057a
files lisp/calendar/cal-coptic.el
diffstat 1 files changed, 13 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-coptic.el	Sat Mar 08 03:39:49 2008 +0000
+++ b/lisp/calendar/cal-coptic.el	Sat Mar 08 03:40:14 2008 +0000
@@ -104,6 +104,7 @@
                (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 @@
             (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 @@
         (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 @@
   (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 @@
          (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 @@
   (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 @@
         (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 @@
         (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 @@
 
 (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