diff options
| author | Eli Zaretskii | 2010-08-07 12:31:03 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2010-08-07 12:31:03 +0300 |
| commit | 822775bf513e1e4be07ef36f0220bf3b89c9ed76 (patch) | |
| tree | 5176215b5ddf4d2e6e0e09cc7e372d0674ab1854 /lisp/tutorial.el | |
| parent | 0e9c8657ca938bd3cdb90824873dff539801fdbe (diff) | |
| download | emacs-822775bf513e1e4be07ef36f0220bf3b89c9ed76.tar.gz emacs-822775bf513e1e4be07ef36f0220bf3b89c9ed76.zip | |
Evaluate file-local variables in tutorials.
tutorial.el (help-with-tutorial): Hack safe file-local variables
after reading the tutorial.
Diffstat (limited to 'lisp/tutorial.el')
| -rw-r--r-- | lisp/tutorial.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/tutorial.el b/lisp/tutorial.el index 0ac315ac6dc..bab943968f8 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el | |||
| @@ -829,6 +829,8 @@ Run the Viper tutorial? ")) | |||
| 829 | (if old-tut-file | 829 | (if old-tut-file |
| 830 | (progn | 830 | (progn |
| 831 | (insert-file-contents (tutorial--saved-file)) | 831 | (insert-file-contents (tutorial--saved-file)) |
| 832 | (let ((enable-local-variables :safe)) | ||
| 833 | (hack-local-variables)) | ||
| 832 | (goto-char (point-min)) | 834 | (goto-char (point-min)) |
| 833 | (setq old-tut-point | 835 | (setq old-tut-point |
| 834 | (string-to-number | 836 | (string-to-number |
| @@ -844,6 +846,8 @@ Run the Viper tutorial? ")) | |||
| 844 | (goto-char tutorial--point-before-chkeys) | 846 | (goto-char tutorial--point-before-chkeys) |
| 845 | (setq tutorial--point-before-chkeys (point-marker))) | 847 | (setq tutorial--point-before-chkeys (point-marker))) |
| 846 | (insert-file-contents (expand-file-name filename tutorial-directory)) | 848 | (insert-file-contents (expand-file-name filename tutorial-directory)) |
| 849 | (let ((enable-local-variables :safe)) | ||
| 850 | (hack-local-variables)) | ||
| 847 | (forward-line) | 851 | (forward-line) |
| 848 | (setq tutorial--point-before-chkeys (point-marker))) | 852 | (setq tutorial--point-before-chkeys (point-marker))) |
| 849 | 853 | ||