X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fautoload.el;h=ec708732dd9c7b7aa4a8f76f4b3d7fb9bf6d281f;hb=b750fd14c6dce66e91fa62db0deda838f037d6d6;hp=a4b68dac0ec90f940878fe9ca5041d5e70d13b1e;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git

diff --git a/lisp/autoload.el b/lisp/autoload.el
index a4b68da..ec70873 100644
--- a/lisp/autoload.el
+++ b/lisp/autoload.el
@@ -375,6 +375,8 @@ This functions refuses to update autoloads files."
 	(let ((find-file-hooks nil))
 	  (set-buffer (or (get-file-buffer generated-autoload-file)
 			  (find-file-noselect generated-autoload-file))))
+	;; Make sure we can scribble in it.
+	(setq buffer-read-only nil)
 	;; First delete all sections for this file.
 	(goto-char (point-min))
 	(while (search-forward generate-autoload-section-header nil t)