xemacs-beta: lisp/mule/cyril-util.el annotate

annotate lisp/mule/cyril-util.el @ 4468:a78d697ccd2c

Import and extend GNU's descr-text.el, supporting prefix argument for C-x = 2008-05-25 Aidan Kehoe <kehoea@parhasard.net> * descr-text.el: New. Taken from GNU's GPLV2 version of 2007-02-14, with modifications for XEmacs support and extensions for Unihan.txt support and db/dbm caches. * simple.el (what-cursor-position): Support an optional prefix argument, as does GNU, calling #'describe-char to giving more detail on the character at point, notably from UnicodeData and (in our case, optionally) Unihan.txt. * syntax.el (syntax-after): Make this available for the sake of #'describe-char. * mule/mule-cmds.el (iso-2022-control-alist): Make this available, for the sake of #'encoded-string-description and #'describe-char. * mule/mule-cmds.el (encoded-string-description): Make this available, for the sake of #'describe-char. * unicode.el (unicode-error-default-translation-table): Make this a char table of type generic, not of type char. Makes it possible to have the relevant logic in #'describe-char reasonably clear; also, and this is undocumented, makes it much easier to implement #'frob-unicode-errors-region. I should document this, and revise #'frob-unicode-errors-region.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Sun, 25 May 2008 21:11:35 +0200
parents	1f0aa40cafe0
children

rev	line source
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	1 ;;; cyril-util.el --- utilities for Cyrillic scripts -- coding: iso-2022-7bit; --
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	2
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
788 026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben] ben parents: 778 diff changeset	4 ;; Copyright (C) 2002 Ben Wing.
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	5
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	6 ;; Keywords: mule, multilingual, Cyrillic
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	7
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	8 ;; This file is part of XEmacs.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	9
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	10 ;; XEmacs is free software; you can redistribute it and/or modify it
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	11 ;; under the terms of the GNU General Public License as published by
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	12 ;; the Free Software Foundation; either version 2, or (at your option)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	13 ;; any later version.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	14
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	15 ;; XEmacs is distributed in the hope that it will be useful, but
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	18 ;; General Public License for more details.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	19
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	20 ;; You should have received a copy of the GNU General Public License
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	23 ;; 02111-1307, USA.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	24
778 2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben] ben parents: 771 diff changeset	25 ;;; Synched up with: Emacs 21.1 (language/cyril-util.el).
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben] ben parents: 771 diff changeset	26
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben] ben parents: 771 diff changeset	27 ;;; Commentary:
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	28
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	29 ;;; #### Remove this, use the one in packages instead, but with the below
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	30 ;;; standard-display-cyrillic-translit. This file is unfortunately shadowed
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	31 ;;; if you have the Mule packages installed!
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	32
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	33 ;;; Code:
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	34
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	35
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	36 ;; Display
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	37
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	38 ;; Written by Valery Alexeev <valery@math.uga.edu>.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	39
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	40 (defvar cyrillic-language-alist
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	41 '(("Belorussian") ("Bulgarian") ("Macedonian") ("Russian") ("Serbian")
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	42 ("Ukrainian"))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	43 "*List of known Cyrillic languages")
1261 465bd3c7d932 [xemacs-hg @ 2003-02-06 06:35:47 by ben] ben parents: 1196 diff changeset	44
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	45 ;;;###autoload
4454 1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	46 (defun standard-display-cyrillic-translit (&optional cyrillic-language
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	47 disable)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	48 "Display a cyrillic buffer using a transliteration.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	49 For readability, the table is slightly
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	50 different from the one used for the input method `cyrillic-translit'.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	51
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	52 The argument is a string which specifies which language you are using;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	53 that affects the choice of transliterations slightly.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	54 Possible values are listed in 'cyrillic-language-alist'.
4454 1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	55
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	56 Specifying a prefix arg, by preceding
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	57 \\[standard-display-cyrillic-translit] with \\[universal-argument]
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	58 turns off Cyrillic display. Noninteractively, the DISABLE argument
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	59 does the same thing. "
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	60 (interactive
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	61 (list
4454 1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	62 (let* ((completion-ignore-case t)
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	63 (default-language (if (assoc-ignore-case
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	64 current-language-environment
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	65 cyrillic-language-alist)
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	66 current-language-environment
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	67 "Russian")))
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	68 (or current-prefix-arg
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	69 (completing-read
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	70 (format "Cyrillic language (default %s): " default-language)
1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	71 cyrillic-language-alist nil t nil nil default-language)))))
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	72 (frob-display-table
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	73 (lambda (display-table)
4454 1f0aa40cafe0 Small improvements in disp-table.el, mule/cyril-util.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	74 (if (or disable current-prefix-arg)
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	75 (if (char-table-p display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	76 (remove-char-table 'cyrillic-iso8859-5 display-table))
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	77 (put-display-table ?,LP(B "a" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	78 (put-display-table ?,LQ(B "b" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	79 (put-display-table ?,LR(B "v" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	80 (put-display-table ?,LS(B "g" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	81 (put-display-table ?,LT(B "d" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	82 (put-display-table ?,LU(B "e" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	83 (put-display-table ?,Lq(B "yo" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	84 (put-display-table ?,LV(B "zh" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	85 (put-display-table ?,LW(B "z" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	86 (put-display-table ?,LX(B "i" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	87 (put-display-table ?,LY(B "j" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	88 (put-display-table ?,LZ(B "k" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	89 (put-display-table ?,L[(B "l" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	90 (put-display-table ?,L\(B "m" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	91 (put-display-table ?,L](B "n" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	92 (put-display-table ?,L^(B "o" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	93 (put-display-table ?,L_(B "p" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	94 (put-display-table ?,L`(B "r" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	95 (put-display-table ?,La(B "s" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	96 (put-display-table ?,Lb(B "t" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	97 (put-display-table ?,Lc(B "u" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	98 (put-display-table ?,Ld(B "f" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	99 (put-display-table ?,Le(B "kh" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	100 (put-display-table ?,Lf(B "ts" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	101 (put-display-table ?,Lg(B "ch" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	102 (put-display-table ?,Lh(B "sh" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	103 (put-display-table ?,Li(B "sch" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	104 (put-display-table ?,Lj(B "~" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	105 (put-display-table ?,Lk(B "y" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	106 (put-display-table ?,Ll(B "'" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	107 (put-display-table ?,Lm(B "e'" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	108 (put-display-table ?,Ln(B "yu" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	109 (put-display-table ?,Lo(B "ya" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	110 (put-display-table ?,L0(B "A" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	111 (put-display-table ?,L1(B "B" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	112 (put-display-table ?,L2(B "V" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	113 (put-display-table ?,L3(B "G" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	114 (put-display-table ?,L4(B "D" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	115 (put-display-table ?,L5(B "E" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	116 (put-display-table ?,L!(B "Yo" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	117 (put-display-table ?,L6(B "Zh" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	118 (put-display-table ?,L7(B "Z" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	119 (put-display-table ?,L8(B "I" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	120 (put-display-table ?,L9(B "J" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	121 (put-display-table ?,L:(B "K" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	122 (put-display-table ?,L;(B "L" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	123 (put-display-table ?,L<(B "M" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	124 (put-display-table ?,L=(B "N" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	125 (put-display-table ?,L>(B "O" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	126 (put-display-table ?,L?(B "P" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	127 (put-display-table ?,L@(B "R" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	128 (put-display-table ?,LA(B "S" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	129 (put-display-table ?,LB(B "T" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	130 (put-display-table ?,LC(B "U" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	131 (put-display-table ?,LD(B "F" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	132 (put-display-table ?,LE(B "Kh" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	133 (put-display-table ?,LF(B "Ts" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	134 (put-display-table ?,LG(B "Ch" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	135 (put-display-table ?,LH(B "Sh" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	136 (put-display-table ?,LI(B "Sch" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	137 (put-display-table ?,LJ(B "~" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	138 (put-display-table ?,LK(B "Y" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	139 (put-display-table ?,LL(B "'" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	140 (put-display-table ?,LM(B "E'" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	141 (put-display-table ?,LN(B "Yu" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	142 (put-display-table ?,LO(B "Ya" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	143 (put-display-table ?,Lt(B "ie" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	144 (put-display-table ?,Lw(B "i" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	145 (put-display-table ?,L~(B "u" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	146 (put-display-table ?,Lr(B "dj" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	147 (put-display-table ?,L{(B "chj" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	148 (put-display-table ?,Ls(B "gj" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	149 (put-display-table ?,Lu(B "s" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	150 (put-display-table ?,L\|(B "k" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	151 (put-display-table ?,Lv(B "i" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	152 (put-display-table ?,Lx(B "j" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	153 (put-display-table ?,Ly(B "lj" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	154 (put-display-table ?,Lz(B "nj" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	155 (put-display-table ?,L(B "dz" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	156 (put-display-table ?,L$(B "Ye" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	157 (put-display-table ?,L'(B "Yi" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	158 (put-display-table ?,L.(B "U" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	159 (put-display-table ?,L"(B "Dj" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	160 (put-display-table ?,L+(B "Chj" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	161 (put-display-table ?,L#(B "Gj" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	162 (put-display-table ?,L%(B "S" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	163 (put-display-table ?,L,(B "K" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	164 (put-display-table ?,L&(B "I" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	165 (put-display-table ?,L((B "J" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	166 (put-display-table ?,L)(B "Lj" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	167 (put-display-table ?,L*(B "Nj" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	168 (put-display-table ?,L/(B "Dj" display-table)
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	169
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	170 (when (equal cyrillic-language "Bulgarian")
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	171 (put-display-table ?,Li(B "sht" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	172 (put-display-table ?,LI(B "Sht" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	173 (put-display-table ?,Ln(B "iu" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	174 (put-display-table ?,LN(B "Iu" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	175 (put-display-table ?,Lo(B "ia" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	176 (put-display-table ?,LO(B "Ia" display-table))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	177
4451 e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	178 (when (equal cyrillic-language "Ukrainian") ; based on the official
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	179 ; transliteration table
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	180 (put-display-table ?,LX(B "y" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	181 (put-display-table ?,L8(B "Y" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	182 (put-display-table ?,LY(B "i" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	183 (put-display-table ?,L9(B "Y" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	184 (put-display-table ?,Ln(B "iu" display-table)
e214ff9f9507 Use char-tables, not vectors, to instantiate the display table specifiers. Aidan Kehoe <kehoea@parhasard.net> parents: 1261 diff changeset	185 (put-display-table ?,Lo(B "ia" display-table)))) nil))
771 943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	186 ;;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	187 (provide 'cyril-util)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	188
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	189 ;; Local Variables:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	190 ;; coding: iso-2022-7bit
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben] ben parents: diff changeset	191 ;; End:
778 2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben] ben parents: 771 diff changeset	192
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben] ben parents: 771 diff changeset	193 ;;; cyril-util.el ends here

Mercurial > hg > xemacs-beta

annotate lisp/mule/cyril-util.el @ 4468:a78d697ccd2c