emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/calendar/calendar.el


From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/lisp/calendar/calendar.el
Date: Mon, 16 May 2005 07:11:50 -0400

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 "**")




reply via email to

[Prev in Thread] Current Thread [Next in Thread]