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

[Glenn Morris]

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

Index: cal-coptic.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-coptic.el,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -b -r1.30 -r1.31
--- cal-coptic.el       15 Mar 2008 02:58:39 -0000      1.30
+++ cal-coptic.el       25 Mar 2008 03:40:53 -0000      1.31
@@ -135,8 +135,9 @@
         (message "Date is pre-%s calendar" coptic-name)
       (message "%s date: %s" coptic-name f))))
 
-(defun coptic-prompt-for-date ()
-  "Ask for a Coptic date."
+(defun calendar-coptic-read-date ()
+  "Interactively read the arguments for a Coptic date command.
+Reads a year, month, and day."
   (let* ((today (calendar-current-date))
          (year (calendar-read
                 (format "%s calendar year (>0): " coptic-name)
@@ -160,11 +161,14 @@
                (lambda (x) (and (< 0 x) (<= x last))))))
     (list (list month day year))))
 
+(define-obsolete-function-alias
+  'coptic-prompt-for-date 'calendar-coptic-read-date "23.1")
+
 ;;;###cal-autoload
 (defun calendar-goto-coptic-date (date &optional noecho)
   "Move cursor to Coptic date DATE.
 Echo Coptic date unless NOECHO is t."
-  (interactive (coptic-prompt-for-date))
+  (interactive (calendar-coptic-read-date))
   (calendar-goto-date (calendar-gregorian-from-absolute
                        (calendar-absolute-from-coptic date)))
   (or noecho (calendar-print-coptic-date)))
@@ -233,7 +237,7 @@
    (let ((coptic-calendar-epoch ethiopic-calendar-epoch)
          (coptic-name ethiopic-name)
          (coptic-calendar-month-name-array ethiopic-calendar-month-name-array))
-     (coptic-prompt-for-date)))
+     (calendar-coptic-read-date)))
   (calendar-goto-date (calendar-gregorian-from-absolute
                        (calendar-absolute-from-ethiopic date)))
   (or noecho (calendar-print-ethiopic-date)))