diff options
| author | Richard M. Stallman | 1994-02-22 04:46:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-02-22 04:46:12 +0000 |
| commit | 5a1a5fd7f70bd5bce59d4bbf43203be6add86fe9 (patch) | |
| tree | b28e2deb851b3f255ddc672eefec8a5ae6dd8e78 | |
| parent | 0aafc97556697d98ef32520a10c1143be688f87a (diff) | |
| download | emacs-5a1a5fd7f70bd5bce59d4bbf43203be6add86fe9.tar.gz emacs-5a1a5fd7f70bd5bce59d4bbf43203be6add86fe9.zip | |
(calendar-cursor-to-date): Fix search string so it
correctly moves past a starred date.
| -rw-r--r-- | lisp/calendar/calendar.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 0ab741ea572..e4823e590ae 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el | |||
| @@ -1949,7 +1949,7 @@ ERROR is t, otherwise just returns nil." | |||
| 1949 | (if (and (looking-at "[*0-9]") | 1949 | (if (and (looking-at "[*0-9]") |
| 1950 | (< 2 (count-lines (point-min) (point)))) | 1950 | (< 2 (count-lines (point-min) (point)))) |
| 1951 | (save-excursion | 1951 | (save-excursion |
| 1952 | (re-search-backward "[^0-9]") | 1952 | (re-search-backward "[^*0-9]") |
| 1953 | (forward-char 1) | 1953 | (forward-char 1) |
| 1954 | (let* | 1954 | (let* |
| 1955 | ((day (string-to-int (buffer-substring (point) (+ 3 (point))))) | 1955 | ((day (string-to-int (buffer-substring (point) (+ 3 (point))))) |