Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-help.el @ 422:95016f13131a r21-2-19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-19
author cvs
date Mon, 13 Aug 2007 11:25:01 +0200
parents ebe98a74bd68
children
comparison
equal deleted inserted replaced
421:fff06e11db74 422:95016f13131a
55 (switch-to-buffer (get-file-buffer file)) 55 (switch-to-buffer (get-file-buffer file))
56 (switch-to-buffer (create-file-buffer file)) 56 (switch-to-buffer (create-file-buffer file))
57 (setq buffer-file-name file) 57 (setq buffer-file-name file)
58 (setq default-directory (expand-file-name "~/")) 58 (setq default-directory (expand-file-name "~/"))
59 (setq buffer-auto-save-file-name nil) 59 (setq buffer-auto-save-file-name nil)
60 (insert-file-contents (locate-data-file filename)) 60 (let ((coding-system-for-read
61 (get-language-info lang 'tutorial-coding-system)))
62 (insert-file-contents (locate-data-file filename)))
61 (goto-char (point-min)) 63 (goto-char (point-min))
62 ;; The 'didactic' blank lines: Possibly insert blank lines 64 ;; The 'didactic' blank lines: Possibly insert blank lines
63 ;; around <<nya nya nya>>, and change << >> to [ ]. 65 ;; around <<nya nya nya>>, and change << >> to [ ].
64 (if (re-search-forward "^<<.+>>" nil t) 66 (if (re-search-forward "^<<.+>>" nil t)
65 (let ((n (- (window-height (selected-window)) 67 (let ((n (- (window-height (selected-window))