Mercurial > emacs
comparison lisp/files.el @ 1371:d8be1fdf53aa
Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 09 Oct 1992 05:29:15 +0000 |
| parents | 20c84bc5ad97 |
| children | f6f838c4a26e |
comparison
equal
deleted
inserted
replaced
| 1370:c017b62c8073 | 1371:d8be1fdf53aa |
|---|---|
| 608 (setq mode (cdr (car alist)))) | 608 (setq mode (cdr (car alist)))) |
| 609 (setq alist (cdr alist))))))) | 609 (setq alist (cdr alist))))))) |
| 610 (if mode (funcall mode)))) | 610 (if mode (funcall mode)))) |
| 611 | 611 |
| 612 (defun hack-local-variables () | 612 (defun hack-local-variables () |
| 613 "Parse (and bind or evaluate as appropriate) any local variables | 613 "Parse and put into effect this buffer's local variables spec." |
| 614 for current buffer." | |
| 615 ;; Look for "Local variables:" line in last page. | 614 ;; Look for "Local variables:" line in last page. |
| 616 (save-excursion | 615 (save-excursion |
| 617 (goto-char (point-max)) | 616 (goto-char (point-max)) |
| 618 (search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) 'move) | 617 (search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) 'move) |
| 619 (if (let ((case-fold-search t)) | 618 (if (let ((case-fold-search t)) |