[Emacs-diffs] /srv/bzr/emacs/trunk r106795: Trivial bytecomp.el fix for file-local buffer-read-only.

[Glenn Morris]

------------------------------------------------------------
revno: 106795
fixes bug(s): http://debbugs.gnu.org/10419
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2012-01-05 23:37:01 -0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/bytecomp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-01-06 01:03:40 +0000
+++ b/lisp/ChangeLog    2012-01-06 07:37:01 +0000
@@ -1,5 +1,8 @@
 2012-01-06  Glenn Morris  <address@hidden>
 
+       * 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)
 

=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el       2012-01-05 09:46:05 +0000
+++ b/lisp/emacs-lisp/bytecomp.el       2012-01-06 07:37:01 +0000
@@ -1745,7 +1745,9 @@
              (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