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