Mercurial > hg > xemacs-beta
comparison lisp/utils/autoload.el @ 126:1370575f1259 xemacs-20-1p1
Import from CVS: tag xemacs-20-1p1
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:27:39 +0200 |
parents | 48d667d6f17f |
children | 25f70ba0133c |
comparison
equal
deleted
inserted
replaced
125:8b0638b347ec | 126:1370575f1259 |
---|---|
153 (setq file (expand-file-name file)) | 153 (setq file (expand-file-name file)) |
154 | 154 |
155 (save-excursion | 155 (save-excursion |
156 (unwind-protect | 156 (unwind-protect |
157 (progn | 157 (progn |
158 (let ((find-file-hooks nil)) | 158 (let ((find-file-hooks nil) |
159 (set-buffer (or visited (find-file-noselect file)))) | 159 (enable-local-variables nil)) |
160 (set-buffer (or visited (find-file-noselect file))) | |
161 (set-syntax-table lisp-mode-syntax-table)) | |
160 (save-excursion | 162 (save-excursion |
161 (save-restriction | 163 (save-restriction |
162 (widen) | 164 (widen) |
163 (goto-char (point-min)) | 165 (goto-char (point-min)) |
164 (unless (search-forward generate-autoload-cookie nil t) | 166 (unless (search-forward generate-autoload-cookie nil t) |