Index: emacs/lisp/calendar/calendar.el
diff -c emacs/lisp/calendar/calendar.el:1.168
emacs/lisp/calendar/calendar.el:1.169
*** emacs/lisp/calendar/calendar.el:1.168 Fri Apr 8 14:26:13 2005
--- emacs/lisp/calendar/calendar.el Mon May 16 11:11:48 2005
***************
*** 2574,2580 ****
(if (not (looking-at " "))
(re-search-backward "[^0-9]"))
(list month
! (string-to-int (buffer-substring (1+ (point)) (+ 4 (point))))
year))
(if (looking-at "\\*")
(save-excursion
--- 2574,2580 ----
(if (not (looking-at " "))
(re-search-backward "[^0-9]"))
(list month
! (string-to-number (buffer-substring (1+ (point)) (+ 4
(point))))
year))
(if (looking-at "\\*")
(save-excursion
***************
*** 2964,2970 ****
(make-local-variable 'calendar-starred-day)
(forward-char 1)
(setq calendar-starred-day
! (string-to-int
(buffer-substring (point) (- (point) 2))))
(delete-char -2)
(insert "**")
--- 2964,2970 ----
(make-local-variable 'calendar-starred-day)
(forward-char 1)
(setq calendar-starred-day
! (string-to-number
(buffer-substring (point) (- (point) 2))))
(delete-char -2)
(insert "**")
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
