Mercurial > emacs
comparison lisp/calendar/calendar.el @ 62402:a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 16 May 2005 11:33:47 +0000 |
| parents | 31aa9a390538 |
| children | c3dbcfe29c9e f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
| 62401:4512c4db6912 | 62402:a7e02ef1e3d6 |
|---|---|
| 2572 (< 2 (count-lines (point-min) (point)))) | 2572 (< 2 (count-lines (point-min) (point)))) |
| 2573 (save-excursion | 2573 (save-excursion |
| 2574 (if (not (looking-at " ")) | 2574 (if (not (looking-at " ")) |
| 2575 (re-search-backward "[^0-9]")) | 2575 (re-search-backward "[^0-9]")) |
| 2576 (list month | 2576 (list month |
| 2577 (string-to-int (buffer-substring (1+ (point)) (+ 4 (point)))) | 2577 (string-to-number (buffer-substring (1+ (point)) (+ 4 (point)))) |
| 2578 year)) | 2578 year)) |
| 2579 (if (looking-at "\\*") | 2579 (if (looking-at "\\*") |
| 2580 (save-excursion | 2580 (save-excursion |
| 2581 (re-search-backward "[^*]") | 2581 (re-search-backward "[^*]") |
| 2582 (if (looking-at ".\\*\\*") | 2582 (if (looking-at ".\\*\\*") |
| 2962 calendar window has been prepared." | 2962 calendar window has been prepared." |
| 2963 (let ((inhibit-read-only t)) | 2963 (let ((inhibit-read-only t)) |
| 2964 (make-local-variable 'calendar-starred-day) | 2964 (make-local-variable 'calendar-starred-day) |
| 2965 (forward-char 1) | 2965 (forward-char 1) |
| 2966 (setq calendar-starred-day | 2966 (setq calendar-starred-day |
| 2967 (string-to-int | 2967 (string-to-number |
| 2968 (buffer-substring (point) (- (point) 2)))) | 2968 (buffer-substring (point) (- (point) 2)))) |
| 2969 (delete-char -2) | 2969 (delete-char -2) |
| 2970 (insert "**") | 2970 (insert "**") |
| 2971 (backward-char 1) | 2971 (backward-char 1) |
| 2972 (set-buffer-modified-p nil))) | 2972 (set-buffer-modified-p nil))) |