diff options
| -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) |