Trivial bytecomp.el fix for file-local buffer-read-only.

* lisp/emacs-lisp/bytecomp.el (byte-compile-file): Do not propagate a
file local setting of buffer-read-only to the input buffer.

Fixes: debbugs:10419

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f78e5a277b4e69008c6aed1a0dc5da02bee50049..8f333945de35e6c1ccc1e5af96b2dc6b3cf65212 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-01-06  Glenn Morris  <rgm@gnu.org>
 
+       * emacs-lisp/bytecomp.el (byte-compile-file): Do not propagate a file
+       local setting of buffer-read-only to the input buffer.  (Bug#10419)
+
        * calendar/calendar.el (calendar-mode):
        Locally set scroll-margin to 0.  (Bug#10379)
 

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 749200db92538ab8bba0cfb6e429e910a31cb07d..80e380f07ead93423c6361a7b1a60df8d3f362bb 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1745,7 +1745,9 @@ The value is non-nil if there were no errors, nil if errors."
              (enable-local-eval nil))
        ;; Arg of t means don't alter enable-local-variables.
         (normal-mode t)
-        (setq filename buffer-file-name))
+        ;; There may be a file local variable setting (bug#10419).
+        (setq buffer-read-only nil
+              filename buffer-file-name))
       ;; Set the default directory, in case an eval-when-compile uses it.
       (setq default-directory (file-name-directory filename)))
     ;; Check if the file's local variables explicitly specify not to