1436 |
If omitted, NONMARKING defaults to nil and FILE defaults to diary-file." |
If omitted, NONMARKING defaults to nil and FILE defaults to diary-file." |
1437 |
(find-file-other-window |
(find-file-other-window |
1438 |
(substitute-in-file-name (if file file diary-file))) |
(substitute-in-file-name (if file file diary-file))) |
1439 |
|
(widen) |
1440 |
(goto-char (point-max)) |
(goto-char (point-max)) |
1441 |
|
(when (let ((case-fold-search t)) |
1442 |
|
(search-backward "Local Variables:" |
1443 |
|
(max (- (point-max) 3000) (point-min)) |
1444 |
|
t)) |
1445 |
|
(beginning-of-line) |
1446 |
|
(insert "\n") |
1447 |
|
(previous-line 1)) |
1448 |
(insert |
(insert |
1449 |
(if (bolp) "" "\n") |
(if (bolp) "" "\n") |
1450 |
(if nonmarking diary-nonmarking-symbol "") |
(if nonmarking diary-nonmarking-symbol "") |