65 |
(insert-file-contents (expand-file-name filename data-directory)) |
(insert-file-contents (expand-file-name filename data-directory)) |
66 |
(hack-local-variables) |
(hack-local-variables) |
67 |
(goto-char (point-min)) |
(goto-char (point-min)) |
68 |
|
;; The first line conventionally contains the title. |
69 |
|
(delete-region (point) (progn (forward-line 1) (point))) |
70 |
(search-forward "\n<<") |
(search-forward "\n<<") |
71 |
(beginning-of-line) |
(beginning-of-line) |
72 |
;; Convert the <<...>> line to the proper [...] line, |
;; Convert the <<...>> line to the proper [...] line, |