Mercurial > emacs

comparison lisp/tutorial.el @ 109674:cef075b11b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Evaluate file-local variables in tutorials. tutorial.el (help-with-tutorial): Hack safe file-local variables after reading the tutorial.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 07 Aug 2010 12:31:03 +0300
parents de5ba6f3514c
children 028db67bd5dd
comparison
equal deleted inserted replaced
109673:0781924c2a38 109674:cef075b11b25
827 (setq old-tut-file 827 (setq old-tut-file
828 (y-or-n-p "Resume your last saved tutorial? "))) 828 (y-or-n-p "Resume your last saved 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
835 (buffer-substring-no-properties 837 (buffer-substring-no-properties
836 (line-beginning-position) (line-end-position)))) 838 (line-beginning-position) (line-end-position))))
842 (forward-line) 844 (forward-line)
843 (delete-region (point-min) (point)) 845 (delete-region (point-min) (point))
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
850 (tutorial--display-changes) 854 (tutorial--display-changes)
851 855