27 |
;;; Code: |
;;; Code: |
28 |
|
|
29 |
(set-language-info-alist |
(set-language-info-alist |
30 |
"UTF-8" `((coding-system mule-utf-8) |
"UTF-8" `((coding-system utf-8) |
31 |
(coding-priority mule-utf-8) |
(coding-priority utf-8) |
32 |
(setup-function |
;; Presumably not relevant now. |
33 |
. (lambda () |
;; (setup-function |
34 |
;; Use Unicode font under Windows. Jason Rumney fecit. |
;; . (lambda () |
35 |
(if (and (fboundp 'w32-add-charset-info) |
;; ;; Use Unicode font under Windows. Jason Rumney fecit. |
36 |
(not (boundp 'w32-unicode-charset-defined))) |
;; (if (and (fboundp 'w32-add-charset-info) |
37 |
(w32-add-charset-info "iso10646-1" 'w32-charset-ansi t)))) |
;; (not (boundp 'w32-unicode-charset-defined))) |
38 |
|
;; (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t)))) |
39 |
;; Is this appropriate? |
;; Is this appropriate? |
40 |
;; (exit-function |
;; (exit-function |
41 |
;; . (lambda () |
;; . (lambda () |
46 |
;; w32-charset-info-alist))))) |
;; w32-charset-info-alist))))) |
47 |
(input-method . "rfc1345") ; maybe not the best choice |
(input-method . "rfc1345") ; maybe not the best choice |
48 |
(documentation . "\ |
(documentation . "\ |
49 |
This language environment is a generic one for a subset of the Unicode |
This language environment is a generic one for the Unicode character set |
50 |
character set encoded in UTF-8.")) |
encoded in UTF-8.")) |
51 |
nil) |
nil) |
52 |
|
|
53 |
(provide 'utf-8-lang) |
(provide 'utf-8-lang) |