emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Glenn Morris
Subject: [Emacs-diffs] Changes to emacs/lisp/calendar/cal-persia.el,v
Date: Tue, 25 Mar 2008 03:42:02 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/03/25 03:42:01

Index: cal-persia.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-persia.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- cal-persia.el       14 Mar 2008 03:11:50 -0000      1.22
+++ cal-persia.el       25 Mar 2008 03:42:01 -0000      1.23
@@ -159,17 +159,9 @@
   (message "Persian date: %s"
            (calendar-persian-date-string (calendar-cursor-to-date t))))
 
-;;;###cal-autoload
-(defun calendar-goto-persian-date (date &optional noecho)
-  "Move cursor to Persian date DATE.
-Echo Persian date unless NOECHO is non-nil."
-  (interactive (persian-prompt-for-date))
-  (calendar-goto-date (calendar-gregorian-from-absolute
-                       (calendar-absolute-from-persian date)))
-  (or noecho (calendar-print-persian-date)))
-
-(defun persian-prompt-for-date ()
-  "Ask for a Persian date."
+(defun calendar-persian-read-date ()
+  "Interactively read the arguments for a Persian date command.
+Reads a year, month, and day."
   (let* ((year (calendar-read
                 "Persian calendar year (not 0): "
                 (lambda (x) (not (zerop x)))
@@ -193,6 +185,18 @@
                (lambda (x) (and (< 0 x) (<= x last))))))
     (list (list month day year))))
 
+(define-obsolete-function-alias
+  'persian-prompt-for-date 'calendar-persian-read-date "23.1")
+
+;;;###cal-autoload
+(defun calendar-goto-persian-date (date &optional noecho)
+  "Move cursor to Persian date DATE.
+Echo Persian date unless NOECHO is non-nil."
+  (interactive (calendar-persian-read-date))
+  (calendar-goto-date (calendar-gregorian-from-absolute
+                       (calendar-absolute-from-persian date)))
+  (or noecho (calendar-print-persian-date)))
+
 (defvar date)
 
 ;; To be called from list-sexp-diary-entries, where DATE is bound.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]