[Emacs-diffs] Changes to emacs/lisp/calendar/cal-persia.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/03/08 03:45:43

Index: cal-persia.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-persia.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- cal-persia.el       8 Jan 2008 20:44:04 -0000       1.17
+++ cal-persia.el       8 Mar 2008 03:45:43 -0000       1.18
@@ -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