Mercurial > hg > xemacs-beta

comparison lisp/help-nomule.el @ 249:83b3d10dcba9 r20-5b23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b23
author cvs
date Mon, 13 Aug 2007 10:19:09 +0200
parents 1f0dabaa0855
children 70ad99077275
comparison
equal deleted inserted replaced
248:ad40ac2754d8 249:83b3d10dcba9
68 (setq buffer-auto-save-file-name nil) 68 (setq buffer-auto-save-file-name nil)
69 ;; Because of non-Mule users, TUTORIALs are not coded 69 ;; Because of non-Mule users, TUTORIALs are not coded
70 ;; independently, so we must guess the coding according to 70 ;; independently, so we must guess the coding according to
71 ;; the language. 71 ;; the language.
72 (let ((coding-system-for-read (nth 2 language))) 72 (let ((coding-system-for-read (nth 2 language)))
73 (insert-file-contents (expand-file-name tutorial 73 (insert-file-contents (locate-data-file tutorial)))
74 data-directory)))
75 (goto-char (point-min)) 74 (goto-char (point-min))
76 ;; The 'didactic' blank lines: possibly insert blank lines 75 ;; The 'didactic' blank lines: possibly insert blank lines
77 ;; around <<nya nya nya>> and replace << >> with [ ]. 76 ;; around <<nya nya nya>> and replace << >> with [ ].
78 (if (re-search-forward "^<<.+>>") 77 (if (re-search-forward "^<<.+>>")
79 (let ((n (- (window-height (selected-window)) 78 (let ((n (- (window-height (selected-window))