comparison lisp/emacs-lisp/autoload.el @ 21119:7d8bbe35875e

(update-file-autoloads): Undo 1997-08-23 change.
author Richard M. Stallman <rms@gnu.org>
date Mon, 09 Mar 1998 01:01:36 +0000
parents 297fefd12ecf
children 9ca6953d7ce8
comparison
equal deleted inserted replaced
21118:2aa0dc203036 21119:7d8bbe35875e
308 ;; the local variables section if it's there. 308 ;; the local variables section if it's there.
309 (if existing-buffer 309 (if existing-buffer
310 (set-buffer existing-buffer)) 310 (set-buffer existing-buffer))
311 ;; We must read/write the file without any code conversion. 311 ;; We must read/write the file without any code conversion.
312 (let ((coding-system-for-read 'no-conversion)) 312 (let ((coding-system-for-read 'no-conversion))
313 (set-buffer (find-file-noselect 313 (set-buffer (find-file-noselect generated-autoload-file)))
314 (expand-file-name generated-autoload-file
315 (expand-file-name "lisp"
316 source-directory)))))
317 (or (> (buffer-size) 0) 314 (or (> (buffer-size) 0)
318 (error "Autoloads file %s does not exist" buffer-file-name)) 315 (error "Autoloads file %s does not exist" buffer-file-name))
319 (or (file-writable-p buffer-file-name) 316 (or (file-writable-p buffer-file-name)
320 (error "Autoloads file %s is not writable" buffer-file-name)) 317 (error "Autoloads file %s is not writable" buffer-file-name))
321 (save-excursion 318 (save-excursion