projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(ucs-big5): New coded-charset when `utf-2000' is provided; it was
[chise/xemacs-chise.git-]
/
lisp
/
mule
/
mule-help.el
diff --git
a/lisp/mule/mule-help.el
b/lisp/mule/mule-help.el
index
0a330cd
..
e889207
100644
(file)
--- a/
lisp/mule/mule-help.el
+++ b/
lisp/mule/mule-help.el
@@
-2,8
+2,8
@@
;; Copyright (C) 1997 by Free Software Foundation, Inc.
;; Copyright (C) 1997 by Free Software Foundation, Inc.
-;; Author: SL Baur <steve@altair.xemacs.org>
-;; Keywords: help, internal
+;; Author: SL Baur <steve@xemacs.org>
+;; Keywords: help, internal, mule
;; This file is part of XEmacs.
;; This file is part of XEmacs.
@@
-57,7
+57,9
@@
With arg, you are asked to select which language."
(setq buffer-file-name file)
(setq default-directory (expand-file-name "~/"))
(setq buffer-auto-save-file-name nil)
(setq buffer-file-name file)
(setq default-directory (expand-file-name "~/"))
(setq buffer-auto-save-file-name nil)
- (insert-file-contents (locate-data-file filename))
+ (let ((coding-system-for-read
+ (get-language-info lang 'tutorial-coding-system)))
+ (insert-file-contents (locate-data-file filename)))
(goto-char (point-min))
;; The 'didactic' blank lines: Possibly insert blank lines
;; around <<nya nya nya>>, and change << >> to [ ].
(goto-char (point-min))
;; The 'didactic' blank lines: Possibly insert blank lines
;; around <<nya nya nya>>, and change << >> to [ ].
@@
-83,4
+85,4
@@
With arg, you are asked to select which language."
(provide 'mule-help)
(provide 'mule-help)
-;;; mule-help.el ends here
\ No newline at end of file
+;;; mule-help.el ends here