# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 761892372 0
# Node ID 6741685c0bb7f23c139f67be0a334bcb62103bd8
# Parent  0aa565fdb1b98b249d6b3d9da05589321423bb1d
(calendar-cursor-to-date): Fix search string so it
correctly moves past a starred date.

diff -r 0aa565fdb1b9 -r 6741685c0bb7 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Tue Feb 22 00:45:38 1994 +0000
+++ b/lisp/calendar/calendar.el	Tue Feb 22 04:46:12 1994 +0000
@@ -1949,7 +1949,7 @@
   (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)))))