(calendar-cursor-to-date): Fix search string so it

correctly moves past a starred date.
This commit is contained in:
Richard M. Stallman 1994-02-22 04:46:12 +00:00
parent 0aafc97556
commit 5a1a5fd7f7

View file

@ -1949,7 +1949,7 @@ 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]")
(re-search-backward "[^*0-9]")
(forward-char 1)
(let*
((day (string-to-int (buffer-substring (point) (+ 3 (point)))))