From: Glenn Morris Date: Fri, 6 Jan 2012 07:37:01 +0000 (-0800) Subject: Trivial bytecomp.el fix for file-local buffer-read-only. X-Git-Tag: emacs-pretest-24.0.93~97^2~55^2~25 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d5944b986d829dad02097f27120b1c4853263bf;p=emacs.git 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 f78e5a277b4..8f333945de3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2012-01-06 Glenn Morris + * 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 749200db925..80e380f07ea 100644 --- 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