Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-help.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 4f79e16b1112
children 697ef44129c6
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
1 ;;; mule-help.el --- Mule-ized Help functions 1 ;;; mule-help.el --- Mule-ized Help functions
2 2
3 ;; Copyright (C) 1997 by Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 by Free Software Foundation, Inc.
4 4
5 ;; Author: SL Baur <steve@altair.xemacs.org> 5 ;; Author: SL Baur <steve@xemacs.org>
6 ;; Keywords: help, internal 6 ;; Keywords: help, internal, mule
7 7
8 ;; This file is part of XEmacs. 8 ;; This file is part of XEmacs.
9 9
10 ;; XEmacs is free software; you can redistribute it and/or modify it 10 ;; XEmacs is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by 11 ;; under the terms of the GNU General Public License as published by
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))