Commit 86cef613 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 c07e258b
...@@ -159,6 +159,7 @@ The absolute date is the number of days elapsed since the ...@@ -159,6 +159,7 @@ The absolute date is the number of days elapsed since the
(1- (calendar-absolute-from-french (list month 1 year)))))) (1- (calendar-absolute-from-french (list month 1 year))))))
(list month day year)))) (list month day year))))
;;;###autoload
(defun calendar-french-date-string (&optional date) (defun calendar-french-date-string (&optional date)
"String of French Revolutionary date of Gregorian DATE. "String of French Revolutionary date of Gregorian DATE.
Returns the empty string if DATE is pre-French Revolutionary. Returns the empty string if DATE is pre-French Revolutionary.
...@@ -184,6 +185,7 @@ Defaults to today's date if DATE is not given." ...@@ -184,6 +185,7 @@ Defaults to today's date if DATE is not given."
(aref (french-calendar-month-name-array) (1- m)) (aref (french-calendar-month-name-array) (1- m))
y))))) y)))))
;;;###autoload
(defun calendar-print-french-date () (defun calendar-print-french-date ()
"Show the French Revolutionary calendar equivalent of the selected date." "Show the French Revolutionary calendar equivalent of the selected date."
(interactive) (interactive)
...@@ -192,6 +194,7 @@ Defaults to today's date if DATE is not given." ...@@ -192,6 +194,7 @@ Defaults to today's date if DATE is not given."
(message "Date is pre-French Revolution") (message "Date is pre-French Revolution")
(message "French Revolutionary date: %s" f)))) (message "French Revolutionary date: %s" f))))
;;;###autoload
(defun calendar-goto-french-date (date &optional noecho) (defun calendar-goto-french-date (date &optional noecho)
"Move cursor to French Revolutionary date DATE. "Move cursor to French Revolutionary date DATE.
Echo French Revolutionary date unless NOECHO is t." Echo French Revolutionary date unless NOECHO is t."
...@@ -205,7 +208,7 @@ Echo French Revolutionary date unless NOECHO is t." ...@@ -205,7 +208,7 @@ Echo French Revolutionary date unless NOECHO is t."
(if accents (if accents
"Anne de la Rvolution (>0): " "Anne de la Rvolution (>0): "
"Anne'e de la Re'volution (>0): ") "Anne'e de la Re'volution (>0): ")
'(lambda (x) (> x 0)) (lambda (x) (> x 0))
(int-to-string (int-to-string
(extract-calendar-year (extract-calendar-year
(calendar-french-from-absolute (calendar-french-from-absolute
...@@ -216,13 +219,13 @@ Echo French Revolutionary date unless NOECHO is t." ...@@ -216,13 +219,13 @@ Echo French Revolutionary date unless NOECHO is t."
(append months (append months
(if (french-calendar-leap-year-p year) (if (french-calendar-leap-year-p year)
(mapcar (mapcar
'(lambda (x) (concat "Jour " x)) (lambda (x) (concat "Jour " x))
french-calendar-special-days-array) french-calendar-special-days-array)
(reverse (reverse
(cdr;; we don't want rev. day in a non-leap yr. (cdr;; we don't want rev. day in a non-leap yr.
(reverse (reverse
(mapcar (mapcar
'(lambda (x) (lambda (x)
(concat "Jour " x)) (concat "Jour " x))
special-days)))))))) special-days))))))))
(completion-ignore-case t) (completion-ignore-case t)
...@@ -236,7 +239,7 @@ Echo French Revolutionary date unless NOECHO is t." ...@@ -236,7 +239,7 @@ Echo French Revolutionary date unless NOECHO is t."
(- month 12) (- month 12)
(calendar-read (calendar-read
"Jour (1-30): " "Jour (1-30): "
'(lambda (x) (and (<= 1 x) (<= x 30)))))) (lambda (x) (and (<= 1 x) (<= x 30))))))
(month (if (> month 12) 13 month))) (month (if (> month 12) 13 month)))
(list (list month day year))))) (list (list month day year)))))
(calendar-goto-date (calendar-gregorian-from-absolute (calendar-goto-date (calendar-gregorian-from-absolute
...@@ -252,5 +255,9 @@ Echo French Revolutionary date unless NOECHO is t." ...@@ -252,5 +255,9 @@ Echo French Revolutionary date unless NOECHO is t."
(provide 'cal-french) (provide 'cal-french)
;;; arch-tag: 7e8045a3-8609-46b5-9cde-cf40ce541cf9 ;; Local Variables:
;; generated-autoload-file: "cal-loaddefs.el"
;; End:
;; arch-tag: 7e8045a3-8609-46b5-9cde-cf40ce541cf9
;;; cal-french.el ends here ;;; cal-french.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