help-with-tutorial buffer-read-only fix

* lisp/tutorial.el (help-with-tutorial):
Ensure local variables don't happen to make the buffer read-only.

Fixes: debbugs:11127

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1adaa8b59840d8b11a47d87e2b89c5842bce20ea..fa53caf7ba876687227aaeba016af6dd5c7f15fa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-30  Glenn Morris  <rgm@gnu.org>
+
+       * tutorial.el (help-with-tutorial): Ensure local variables don't
+       happen to make the buffer read-only.  (Bug#11127)
+
 2012-03-30  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * progmodes/perl-mode.el (perl-indent-line): Use `noindent' in strings.

diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index 80d8f287cb1300b6c6990b914d1adb1505f275c1..3843cece45fa5575e90e304b8f172071df61a0ef 100644 (file)
--- a/lisp/tutorial.el
+++ b/lisp/tutorial.el
@@ -832,6 +832,7 @@ Run the Viper tutorial? "))
               (insert-file-contents (tutorial--saved-file))
              (let ((enable-local-variables :safe))
                (hack-local-variables))
+              (setq buffer-read-only nil) ; bug#11118
               (goto-char (point-min))
               (setq old-tut-point
                     (string-to-number
@@ -849,6 +850,7 @@ Run the Viper tutorial? "))
           (insert-file-contents (expand-file-name filename tutorial-directory))
          (let ((enable-local-variables :safe))
            (hack-local-variables))
+          (setq buffer-read-only nil) ; bug#11118
           (forward-line)
           (setq tutorial--point-before-chkeys (point-marker)))