mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

Fix calendar-cursor-to-date to handle starred days correctly.

Browse Source
This commit is contained in:
Edward M. Reingold 1994-02-23 02:38:23 +00:00
parent a1d2b64a33
commit c93b9aaef9
1 changed files with 21 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
lisp/calendar/calendar.el
View File

@ -1946,24 +1946,27 @@ If in the calendar buffer, also sets the current date local variables."
"Returns a list of the month, day, and year of current cursor position.
If cursor is not on a specific date, signals an error if optional parameter
ERROR is t, otherwise just returns nil."
(if (and (looking-at "[*0-9]")
(< 2 (count-lines (point-min) (point))))
(save-excursion
(re-search-backward "[^*0-9]")
(forward-char 1)
(let*
((day (string-to-int (buffer-substring (point) (+ 3 (point)))))
(day (if (= 0 day) starred-day day))
(segment (/ (current-column) 25))
(month (% (+ displayed-month segment -1) 12))
(month (if (= 0 month) 12 month))
(year
(cond
((and (= 12 month) (= segment 0)) (1- displayed-year))
((and (= 1 month) (= segment 2)) (1+ displayed-year))
(t displayed-year))))
(list month day year)))
(if error (error "Cursor is not on a date!"))))
(let* ((segment (/ (current-column) 25))
(month (% (+ displayed-month segment -1) 12))
(month (if (= 0 month) 12 month))
(year
(cond
((and (= 12 month) (= segment 0)) (1- displayed-year))
((and (= 1 month) (= segment 2)) (1+ displayed-year))
(t displayed-year))))
(if (and (looking-at "[0-9]")
(< 2 (count-lines (point-min) (point))))
(save-excursion
(re-search-backward "[^0-9]")
(list month
(string-to-int (buffer-substring (1+ (point)) (+ 4 (point))))
year))
(if (looking-at "\\*")
(save-excursion
(re-search-backward "[^*]")
(if (looking-at ".\\*\\*")
(list month starred-day year)
(if error (error "Cursor is not on a date!"))))))))
(defun calendar-cursor-to-nearest-date ()
"Move the cursor to the closest date.