261 |
(if (not (looking-at "\^M\\|\n")) |
(if (not (looking-at "\^M\\|\n")) |
262 |
(progn |
(progn |
263 |
(goto-char (point-max)) |
(goto-char (point-max)) |
264 |
(insert-string "\^M"))) |
(insert "\^M"))) |
265 |
(goto-char (point-min)) |
(goto-char (point-min)) |
266 |
(if (not (looking-at "\^M\\|\n")) |
(if (not (looking-at "\^M\\|\n")) |
267 |
(insert-string "\^M")) |
(insert "\^M")) |
268 |
(subst-char-in-region (point-min) (point-max) ?\n ?\^M t) |
(subst-char-in-region (point-min) (point-max) ?\n ?\^M t) |
269 |
(calendar-for-loop i from 1 to number do |
(calendar-for-loop i from 1 to number do |
270 |
(let ((d diary-date-forms) |
(let ((d diary-date-forms) |