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)