mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Avoid errors in interactive calls of 'calendar-goto-day-of-year'

Browse source 
* lisp/calendar/cal-move.el (calendar-goto-day-of-year): Fix the
default value of DAY; doc fix.  (Bug#58283)
This commit is contained in:
Eli Zaretskii 2022-10-04 12:57:04 +03:00
parent 0a53e5f751
commit 2b2d8ce41e
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/calendar/cal-move.el
View file

@ -384,7 +384,8 @@ Moves forward if ARG is negative."
;;;###cal-autoload
(defun calendar-goto-day-of-year (year day &optional noecho)
"Move cursor to YEAR, DAY number; echo DAY/YEAR unless NOECHO is non-nil.
Negative DAY counts backward from end of year."
Negative DAY counts backward from end of year.
Interactively, prompt for YEAR and DAY number."
(interactive
(let* ((year (calendar-read-sexp
"Year (>0)"
@ -394,7 +395,7 @@ Negative DAY counts backward from end of year."
(day (calendar-read-sexp
"Day number (+/- 1-%d)"
(lambda (x) (and (<= 1 (abs x)) (<= (abs x) last)))
nil
(calendar-day-number (calendar-current-date))
last)))
(list year day)))
(calendar-goto-date