From 7b710be149269f34c28e0528ed0eec1c4fe2a1af Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 25 Mar 2008 03:41:39 +0000 Subject: [PATCH] (calendar-iso-read-date): New name for calendar-iso-read-args. Update callers, make old name an obsolete alias. --- lisp/calendar/cal-iso.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/calendar/cal-iso.el b/lisp/calendar/cal-iso.el index 2dbe97df2a5..3a5ff0a3d55 100644 --- a/lisp/calendar/cal-iso.el +++ b/lisp/calendar/cal-iso.el @@ -94,7 +94,7 @@ date Sunday, December 31, 1 BC." (message "ISO date: %s" (calendar-iso-date-string (calendar-cursor-to-date t)))) -(defun calendar-iso-read-args (&optional dayflag) +(defun calendar-iso-read-date (&optional dayflag) "Interactively read the arguments for an ISO date command. Reads a year and week, and if DAYFLAG is non-nil a day (otherwise taken to be 1)." @@ -118,10 +118,13 @@ taken to be 1)." 1))) (list (list week day year)))) +(define-obsolete-function-alias + 'calendar-iso-read-args 'calendar-iso-read-date "23.1") + ;;;###cal-autoload (defun calendar-goto-iso-date (date &optional noecho) "Move cursor to ISO DATE; echo ISO date unless NOECHO is non-nil." - (interactive (calendar-iso-read-args t)) + (interactive (calendar-iso-read-date t)) (calendar-goto-date (calendar-gregorian-from-absolute (calendar-absolute-from-iso date))) (or noecho (calendar-print-iso-date))) @@ -130,7 +133,7 @@ taken to be 1)." (defun calendar-goto-iso-week (date &optional noecho) "Move cursor to ISO DATE; echo ISO date unless NOECHO is non-nil. Interactively, goes to the first day of the specified week." - (interactive (calendar-iso-read-args)) + (interactive (calendar-iso-read-date)) (calendar-goto-date (calendar-gregorian-from-absolute (calendar-absolute-from-iso date))) (or noecho (calendar-print-iso-date))) -- 2.39.2