1457 |
If omitted, NONMARKING defaults to nil and FILE defaults to diary-file." |
If omitted, NONMARKING defaults to nil and FILE defaults to diary-file." |
1458 |
(find-file-other-window |
(find-file-other-window |
1459 |
(substitute-in-file-name (if file file diary-file))) |
(substitute-in-file-name (if file file diary-file))) |
1460 |
|
(widen) |
1461 |
(goto-char (point-max)) |
(goto-char (point-max)) |
1462 |
|
(when (let ((case-fold-search t)) |
1463 |
|
(search-backward "Local Variables:" |
1464 |
|
(max (- (point-max) 3000) (point-min)) |
1465 |
|
t)) |
1466 |
|
(beginning-of-line) |
1467 |
|
(insert "\n") |
1468 |
|
(previous-line 1)) |
1469 |
(insert |
(insert |
1470 |
(if (bolp) "" "\n") |
(if (bolp) "" "\n") |
1471 |
(if nonmarking diary-nonmarking-symbol "") |
(if nonmarking diary-nonmarking-symbol "") |