view lisp/language/utf-8-lang.el @ 91338:cf1f728facf2

*** empty log message ***

+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;;; utf-8-lang.el --- generic UTF-8 language environment -*- no-byte-compile: t -*-
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;;   Free Software Foundation, Inc.
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;; Author: Dave Love <[e-mail]>
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;; Keywords: i18n
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;; This file is part of GNU Emacs.
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;; GNU Emacs 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 3, or (at your option)
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;; any later version.
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;; GNU Emacs 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., 51 Franklin Street, Fifth Floor,
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;; Boston, MA 02110-1301, USA.
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;;; Commentary:
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;;; Code:
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申(set-language-info-alist
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "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 ()
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;; 		(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 the Unicode character set
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申encoded in UTF-8."))
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 nil)
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申(provide 'utf-8-lang)
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;;; arch-tag: dfa339e1-296f-4b1e-9fe8-2b65279ec813
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申;;; utf-8-lang.el ends here