[Emacs-diffs] /srv/bzr/emacs/trunk r101012: Evaluate file-local variables in tutorials.

[Eli Zaretskii]

------------------------------------------------------------
revno: 101012
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2010-08-07 12:31:03 +0300
message:
  Evaluate file-local variables in tutorials.
  
   tutorial.el (help-with-tutorial): Hack safe file-local variables
   after reading the tutorial.
modified:
  lisp/ChangeLog
  lisp/tutorial.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-08-06 19:48:59 +0000
+++ b/lisp/ChangeLog    2010-08-07 09:31:03 +0000
@@ -1,3 +1,8 @@
+2010-08-07  Eli Zaretskii  <address@hidden>
+
+       * tutorial.el (help-with-tutorial): Hack safe file-local variables
+       after reading the tutorial.
+
 2010-08-06  Alan Mackenzie  <address@hidden>
 
        * progmodes/cc-cmds.el (c-mask-paragraph, c-fill-paragraph): Fix

=== modified file 'lisp/tutorial.el'
--- a/lisp/tutorial.el  2010-04-14 00:33:32 +0000
+++ b/lisp/tutorial.el  2010-08-07 09:31:03 +0000
@@ -829,6 +829,8 @@
         (if old-tut-file
             (progn
               (insert-file-contents (tutorial--saved-file))
+             (let ((enable-local-variables :safe))
+               (hack-local-variables))
               (goto-char (point-min))
               (setq old-tut-point
                     (string-to-number
@@ -844,6 +846,8 @@
               (goto-char tutorial--point-before-chkeys)
               (setq tutorial--point-before-chkeys (point-marker)))
           (insert-file-contents (expand-file-name filename tutorial-directory))
+         (let ((enable-local-variables :safe))
+           (hack-local-variables))
           (forward-line)
           (setq tutorial--point-before-chkeys (point-marker)))