Commit 2c47d99f authored by Glenn Morris's avatar Glenn Morris

Unquote lambda functions. Add autoload cookies to functions formerly

autoloaded in calendar.el.  Set `generated-autoload-file' to
"cal-loaddefs.el".
parent bfcb5172
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment