385 |
(list-diary-entries original-date number))) |
(list-diary-entries original-date number))) |
386 |
(save-excursion |
(save-excursion |
387 |
(set-buffer (find-buffer-visiting diary-file)) |
(set-buffer (find-buffer-visiting diary-file)) |
388 |
(subst-char-in-region (point-min) (point-max) ?\^M ?\n t) |
(let ((inhibit-read-only t)) |
389 |
|
(subst-char-in-region (point-min) (point-max) ?\^M ?\n t)) |
390 |
(setq selective-display nil) |
(setq selective-display nil) |
391 |
(set-buffer-modified-p diary-modified))) |
(set-buffer-modified-p diary-modified))) |
392 |
(beep) |
(beep) |