mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

("UTF-8"): Use utf-8, not mule-utf-8.

Browse source 
Remove setup function.
This commit is contained in:
Dave Love 2002-05-17 20:15:51 +00:00
parent a4584db26e
commit 1ee5e6332b
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/language/utf-8-lang.el
View file

@ -27,14 +27,15 @@
;;; Code:
(set-language-info-alist
"UTF-8" `((coding-system mule-utf-8)
(coding-priority mule-utf-8)
(setup-function
. (lambda ()
;; Use Unicode font under Windows. Jason Rumney fecit.
(if (and (fboundp 'w32-add-charset-info)
(not (boundp 'w32-unicode-charset-defined)))
(w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))))
"UTF-8" `((coding-system utf-8)
(coding-priority utf-8)
;; Presumably not relevant now.
;; (setup-function
;; . (lambda ()
;; ;; Use Unicode font under Windows. Jason Rumney fecit.
;; (if (and (fboundp 'w32-add-charset-info)
;; (not (boundp 'w32-unicode-charset-defined)))
;; (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))))
;; Is this appropriate?
;; (exit-function
;; . (lambda ()
@ -45,8 +46,8 @@
;; w32-charset-info-alist)))))
(input-method . "rfc1345") ; maybe not the best choice
(documentation . "\
This language environment is a generic one for a subset of the Unicode
character set encoded in UTF-8."))
This language environment is a generic one for the Unicode character set
encoded in UTF-8."))
nil)
(provide 'utf-8-lang)