From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 22 Feb 1994 04:46:12 +0000 (+0000)
Subject: (calendar-cursor-to-date): Fix search string so it
X-Git-Tag: emacs-19.34~9827
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a1a5fd7f70bd5bce59d4bbf43203be6add86fe9;p=emacs.git

(calendar-cursor-to-date): Fix search string so it
correctly moves past a starred date.
---

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."
   (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)))))