xemacs-beta: lisp/mule/misc-lang.el annotate

annotate lisp/mule/misc-lang.el @ 5750:66d2f63df75f

Correct some spelling and formatting in behavior.el. Mentioned in tracker issue 826, the third thing mentioned there (the file name at the bottom of the file) had already been fixed. lisp/ChangeLog addition: 2013-08-05 Aidan Kehoe <kehoea@parhasard.net> * behavior.el: (override-behavior): Correct some spelling and formatting here, thank you Steven Mitchell in tracker issue 826.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Mon, 05 Aug 2013 10:05:32 +0100
parents	bed39edf91ba
children

rev	line source
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: 428 diff changeset	1 ;;; misc-lang.el --- support for miscellaneous languages (characters) -- coding: iso-2022-7bit; --
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4 ;; Licensed to the Free Software Foundation.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5 ;; Copyright (C) 1997 MORIOKA Tomohiko
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: 502 diff changeset	6 ;; Copyright (C) 2001 Ben Wing.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	7
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	8 ;; Keywords: multilingual, character set, coding system
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	9
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	10 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	11
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 3767 diff changeset	12 ;; XEmacs is free software: you can redistribute it and/or modify it
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 3767 diff changeset	13 ;; under the terms of the GNU General Public License as published by the
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 3767 diff changeset	14 ;; Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 3767 diff changeset	15 ;; option) any later version.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	16
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 3767 diff changeset	17 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 3767 diff changeset	18 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 3767 diff changeset	19 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 3767 diff changeset	20 ;; for more details.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	21
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	22 ;; You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 3767 diff changeset	23 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	24
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	25 ;;; Code:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	26
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	28 ;;; IPA (International Phonetic Alphabet)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	30
778 2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben] ben parents: 771 diff changeset	31 ;; IPA characters for phonetic symbols.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben] ben parents: 771 diff changeset	32 (make-charset 'ipa "IPA (International Phonetic Association)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben] ben parents: 771 diff changeset	33 '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben] ben parents: 771 diff changeset	34 1
3659 98af8a976fc3 [xemacs-hg @ 2006-11-05 22:31:31 by aidan] aidan parents: 778 diff changeset	35 registries ["MuleIPA"]
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	36 chars 96
778 2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben] ben parents: 771 diff changeset	37 columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben] ben parents: 771 diff changeset	38 direction l2r
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	39 final ?0
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	40 graphic 1
778 2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben] ben parents: 771 diff changeset	41 short-name "IPA"
3767 6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan] aidan parents: 3659 diff changeset	42 long-name "IPA"))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	43
5662 bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	44 ;; XEmacs; these are Latin, it's not useful to put word boundaries between
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	45 ;; them and ASCII.
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	46 (modify-category-entry 'ipa ?l nil t)
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	47
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	48 ;; XEmacs; why are these Latin? See the following:
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	49 ;;
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	50 ;; (let ((scripts
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	51 ;; (mapcar #'(lambda (character)
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	52 ;; (car
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	53 ;; (split-string
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	54 ;; (cadr (assoc "Name" (describe-char-unicode-data
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	55 ;; character))))))
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	56 ;; (loop
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	57 ;; for i from 33 to 127
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	58 ;; if (not (eql -1 (char-to-unicode (make-char 'ipa i))))
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	59 ;; nconc (list (make-char 'ipa i))))))
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	60 ;; (mapcar #'(lambda (script)
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	61 ;; (cons script (count script scripts :test #'equal)))
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	62 ;; (remove-duplicates scripts :test #'equal)))
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	63 ;; => (("GREEK" . 1) ("LATIN" . 55) ("MODIFIER" . 3))
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	64
bed39edf91ba Be better about word boundaries with JIT unicode characters, mule-category.el Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	65
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	66 ;;; misc-lang.el ends here

Mercurial > hg > xemacs-beta

annotate lisp/mule/misc-lang.el @ 5750:66d2f63df75f