diff options
| author | Dave Love <[email protected]> | 2001-12-15 16:24:25 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 2001-12-15 16:24:25 +0000 |
| commit | 3764c53430003228fccdbcb6cee14f3fede9df01 (patch) | |
| tree | c6001df207ad54ef651fd09a2b0aaa5ff70093f0 /lisp/language | |
| parent | cfe82755d05c3a4dc8f2bd9898f2f8c562779efb (diff) | |
*** empty log message ***
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/utf-8-lang.el | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/lisp/language/utf-8-lang.el b/lisp/language/utf-8-lang.el new file mode 100644 index 0000000000..828f73f006 --- /dev/null +++ b/lisp/language/utf-8-lang.el @@ -0,0 +1,51 @@ +;;; utf-8-lang.el --- generic UTF-8 language environment + +;; Copyright (C) 2001 Free Software Foundation, Inc. + +;; Author: Dave Love <[email protected]> +;; Keywords: i18n + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: + +;;; Code: + +(set-language-info-alist + "UTF-8" `((coding-system mule-utf-8) + (coding-priority coding-category-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)))) +;; Is this appropriate? +;; (exit-function +;; . (lambda () +;; (if (and (fboundp 'w32-add-charset-info) +;; (not (boundp 'w32-unicode-charset-defined))) +;; (setq w32-charset-info-alist +;; (delete (assoc "iso10646-1") +;; 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.")) + nil) + +(provide 'utf-8-lang) +;;; utf-8-lang.el ends here |