Mercurial > emacs
comparison lisp/help-fns.el @ 61152:8ee11f15019d
(help-with-tutorial): Revert last change.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Wed, 30 Mar 2005 22:50:17 +0000 |
| parents | 53d780372e20 |
| children | 3de160e732f1 |
comparison
equal
deleted
inserted
replaced
| 61151:be58652085b8 | 61152:8ee11f15019d |
|---|---|
| 63 (setq default-directory (expand-file-name "~/")) | 63 (setq default-directory (expand-file-name "~/")) |
| 64 (setq buffer-auto-save-file-name nil) | 64 (setq buffer-auto-save-file-name nil) |
| 65 (insert-file-contents (expand-file-name filename data-directory)) | 65 (insert-file-contents (expand-file-name filename data-directory)) |
| 66 (hack-local-variables) | 66 (hack-local-variables) |
| 67 (goto-char (point-min)) | 67 (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<<") | 68 (search-forward "\n<<") |
| 71 (beginning-of-line) | 69 (beginning-of-line) |
| 72 ;; Convert the <<...>> line to the proper [...] line, | 70 ;; Convert the <<...>> line to the proper [...] line, |
| 73 ;; or just delete the <<...>> line if a [...] line follows. | 71 ;; or just delete the <<...>> line if a [...] line follows. |
| 74 (cond ((save-excursion | 72 (cond ((save-excursion |