/[emacs]/emacs/lisp/calendar/calendar.el
ViewVC logotype

Diff of /emacs/lisp/calendar/calendar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.168 by dann, Fri Apr 8 14:26:13 2005 UTC revision 1.169 by lektu, Mon May 16 11:11:48 2005 UTC
# Line 2574  ERROR is t, otherwise just returns nil." Line 2574  ERROR is t, otherwise just returns nil."
2574            (if (not (looking-at " "))            (if (not (looking-at " "))
2575                     (re-search-backward "[^0-9]"))                     (re-search-backward "[^0-9]"))
2576            (list month            (list month
2577                  (string-to-int (buffer-substring (1+ (point)) (+ 4 (point))))                  (string-to-number (buffer-substring (1+ (point)) (+ 4 (point))))
2578                  year))                  year))
2579        (if (looking-at "\\*")        (if (looking-at "\\*")
2580            (save-excursion            (save-excursion
# Line 2964  calendar window has been prepared." Line 2964  calendar window has been prepared."
2964      (make-local-variable 'calendar-starred-day)      (make-local-variable 'calendar-starred-day)
2965      (forward-char 1)      (forward-char 1)
2966      (setq calendar-starred-day      (setq calendar-starred-day
2967            (string-to-int            (string-to-number
2968             (buffer-substring (point) (- (point) 2))))             (buffer-substring (point) (- (point) 2))))
2969      (delete-char -2)      (delete-char -2)
2970      (insert "**")      (insert "**")

Legend:
Removed from v.1.168  
changed lines
  Added in v.1.169

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26