Mercurial > emacs

changeset 92591:dc0c296afd7e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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:45:43 +0000
parents 8ef3d5355402
children db21faafefb9
files lisp/calendar/cal-persia.el
diffstat 1 files changed, 10 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-persia.el	Sat Mar 08 03:45:27 2008 +0000
+++ b/lisp/calendar/cal-persia.el	Sat Mar 08 03:45:43 2008 +0000
@@ -140,6 +140,7 @@
                        (list month 1 year))))))
     (list month day year)))
 
+;;;###autoload
 (defun calendar-persian-date-string (&optional date)
   "String of Persian date of Gregorian DATE.
 Defaults to today's date if DATE is not given."
@@ -155,12 +156,14 @@
           (year (int-to-string y)))
       (mapconcat 'eval calendar-date-display-form ""))))
 
+;;;###autoload
 (defun calendar-print-persian-date ()
   "Show the Persian calendar equivalent of the selected date."
   (interactive)
   (message "Persian date: %s"
            (calendar-persian-date-string (calendar-cursor-to-date t))))
 
+;;;###autoload
 (defun calendar-goto-persian-date (date &optional noecho)
   "Move cursor to Persian date DATE.
 Echo Persian date unless NOECHO is t."
@@ -174,7 +177,7 @@
   (let* ((today (calendar-current-date))
          (year (calendar-read
                 "Persian calendar year (not 0): "
-                '(lambda (x) (/= x 0))
+                (lambda (x) (/= x 0))
                 (int-to-string
                  (extract-calendar-year
                   (calendar-persian-from-absolute
@@ -191,7 +194,7 @@
          (last (persian-calendar-last-day-of-month month year))
          (day (calendar-read
                (format "Persian calendar day (1-%d): " last)
-               '(lambda (x) (and (< 0 x) (<= x last))))))
+               (lambda (x) (and (< 0 x) (<= x last))))))
     (list (list month day year))))
 
 (defun diary-persian-date ()
@@ -200,5 +203,9 @@
 
 (provide 'cal-persia)
 
-;;; arch-tag: 2832383c-e4b4-4dc2-8ee9-cfbdd53e5e2d
+;; Local Variables:
+;; generated-autoload-file: "cal-loaddefs.el"
+;; End:
+
+;; arch-tag: 2832383c-e4b4-4dc2-8ee9-cfbdd53e5e2d
 ;;; cal-persia.el ends here