diff options
| author | Richard M. Stallman | 1998-04-05 18:47:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-05 18:47:51 +0000 |
| commit | 68521d611f25a068b1642e5a46cc7b085b7e7dfe (patch) | |
| tree | 33fc177ee935e2a55afc45198cbd5b2141ffc47c | |
| parent | ccb141e8e1d5584d29ff0e41c637cfc0a64177e6 (diff) | |
| download | emacs-68521d611f25a068b1642e5a46cc7b085b7e7dfe.tar.gz emacs-68521d611f25a068b1642e5a46cc7b085b7e7dfe.zip | |
(update-file-autoloads): Redo 1997-08-23 change.
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index a8e57669de5..1a85cd7c688 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el | |||
| @@ -310,7 +310,10 @@ are used." | |||
| 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 generated-autoload-file))) | 313 | (set-buffer (find-file-noselect |
| 314 | (expand-file-name generated-autoload-file | ||
| 315 | (expand-file-name "lisp" | ||
| 316 | source-directory))))) | ||
| 314 | (or (> (buffer-size) 0) | 317 | (or (> (buffer-size) 0) |
| 315 | (error "Autoloads file %s does not exist" buffer-file-name)) | 318 | (error "Autoloads file %s does not exist" buffer-file-name)) |
| 316 | (or (file-writable-p buffer-file-name) | 319 | (or (file-writable-p buffer-file-name) |