[Top][All Lists]
[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.
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-persia.el,v, Glenn Morris, 2008/03/07
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-persia.el,v, Glenn Morris, 2008/03/07
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-persia.el,v, Glenn Morris, 2008/03/12
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-persia.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-persia.el,v, Glenn Morris, 2008/03/13
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-persia.el,v,
Glenn Morris <=
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-persia.el,v, Glenn Morris, 2008/03/25
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-persia.el,v, Glenn Morris, 2008/03/31