/[emacs]/emacs/lisp/language/utf-8-lang.el
ViewVC logotype

Diff of /emacs/lisp/language/utf-8-lang.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by lektu, Tue Oct 1 17:00:16 2002 UTC revision 1.5.6.1 by handa, Mon Sep 8 12:53:41 2003 UTC
# Line 27  Line 27 
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 ()
# Line 45  Line 46 
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)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.5.6.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26