procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge from trunk.

Browse source
This commit is contained in:
Eli Zaretskii 2013-04-05 16:10:57 +03:00
commit eb1dd42a72
99 changed files with 12665 additions and 12371 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -50,6 +50,10 @@
2013-03-11 putenv: avoid compilation warning on mingw
2013-03-11 unistd: don't prevent Tru64 Unix from using gnulib strtod.
2013-03-11 Glenn Morris <rgm@gnu.org>
* Merge in all changes up to version 24.3 release.
2013-03-06 Paul Eggert <eggert@cs.ucla.edu>
* configure.ac (TERM_HEADER): Remove duplicate definition (Bug#13872).

8
admin/ChangeLog
View file

@ -1,3 +1,11 @@
2013-04-01 Paul Eggert <eggert@cs.ucla.edu>
Use UTF-8 for most files with non-ASCII characters (Bug#13936).
* notes/unicode (etc/tutorials/TUTORIAL.ko, leim/quail/hanja.el)
(leim/quail/hanja3.el, leim/quail/symbol-ksc.el):
Now utf-8, not iso-2022-7bit. Also, files that contain non-UTF-8
characters are now encoded in utf-8-emacs, not iso-2022-7bit.
2013-03-18 Paul Eggert <eggert@cs.ucla.edu>
* notes/unicode: Mention some more iso-2022-7bit files (Bug#13936).

4
admin/notes/bugtracker
View file

@ -627,7 +627,9 @@ following headers:
1) The leading envelope From line.
2) Message-ID (get it from /var/log/mailman/vette).
3) X-Debbugs-Envelope-To: submit
3) X-Debbugs-Envelope-To: xxx
For a new report, xxx = submit; for a control message, xxx = control;
for a reply to bug#123, xxx = 123
Then pipe it to receive as above.

6
admin/notes/unicode
View file

@ -201,15 +201,11 @@ nontrivial changes to the build process.
operating in some other language environment.
etc/tutorials/TUTORIAL.ja
etc/tutorials/TUTORIAL.ko
leim/quail/cyril-jis.el
leim/quail/hanja-jis.el
leim/quail/hanja.el
leim/quail/hanja3.el
leim/quail/japanese.el
leim/quail/py-punct.el
leim/quail/pypunct-b5.el
leim/quail/symbol-ksc.el
lisp/international/ja-dic-cnv.el
lisp/international/ja-dic-utl.el
lisp/international/kinsoku.el
@ -219,6 +215,8 @@ nontrivial changes to the build process.
lisp/language/japanese.el
lisp/term/x-win.el
* utf-8-emacs
These files contain characters that cannot be encoded in UTF-8.
leim/quail/tibetan.el

4
doc/emacs/ChangeLog
View file

@ -13,10 +13,6 @@
* emacs.texi (Top): Add some stuff specific to www.gnu.org.
2013-03-16 Glenn Morris <rgm@gnu.org>
* Version 24.3 released.
2013-03-04 Paul Eggert <eggert@cs.ucla.edu>
Prefer UTF-8 for documentation.

4
doc/lispintro/ChangeLog
View file

@ -2,10 +2,6 @@
* emacs-lisp-intro.texi: Add some stuff specific to www.gnu.org.
2013-03-16 Glenn Morris <rgm@gnu.org>
* Version 24.3 released.
2013-03-03 Glenn Morris <rgm@gnu.org>
* emacs-lisp-intro.texi (Digression into C): Update example.

3
doc/lispref/ChangeLog
View file

@ -16,9 +16,6 @@
* elisp.texi: Add some stuff specific to www.gnu.org.
2013-03-16 Glenn Morris <rgm@gnu.org>
* Version 24.3 released.
2013-03-11 Teodor Zlatanov <tzz@lifelogs.com>
* control.texi (Pattern matching case statement): Fix typo.

5
doc/misc/ChangeLog
View file

@ -1,3 +1,8 @@
2013-03-31 Jay Belanger <jay.p.belanger@gmail.com>
* calc.texi: (Basic Operations on Units): Streamline some
descriptions.
2013-03-27 Aidan Gauland <aidalgol@no8wireless.co.nz>
* eshell.texi (Built-ins): Update manual to mention tramp module.

20
doc/misc/calc.texi
View file

@ -27911,11 +27911,10 @@ prompt first for the old units which this value should be considered
to have, then for the new units. (If the value on the stack can be
simplified so that it doesn't contain any units, like @samp{ft/in} can
be simplified to 12, then @kbd{u c} will still prompt for both old
units and new units. This can be disabled; @pxref{Customizing Calc}.)
Assuming the old and new units you give are consistent with each
other, the result also will not contain any units. For example,
@kbd{@w{u c} cm @key{RET} in @key{RET}} converts the number 2 on the
stack to 5.08.
units and new units. Assuming the old and new units you give are
consistent with each other, the result also will not contain any
units. For example, @kbd{@w{u c} cm @key{RET} in @key{RET}} converts
the number 2 on the stack to 5.08.
@kindex u b
@pindex calc-base-units
@ -35694,17 +35693,6 @@ have different dimensions. The default value of @code{calc-ensure-consistent-uni
is @code{nil}.
@end defvar
@defvar calc-allow-units-as-numbers
When converting units, the variable @code{calc-allow-units-as-numbers}
determines whether or not values which can be simplified so that
they don't contain units (such as @samp{ft/in} can be simplified to 12)
can be regarded as not containing units. If
@code{calc-allow-units-as-numbers} is non-@code{nil}, then @kbd{u c}
will prompt for both old units and new units when converting an expression
like @samp{ft/in}, otherwise @kbd{u c} will only prompt for the new units.
The default value of @code{calc-allow-units-as-numbers} is @code{t}.
@end defvar
@defvar calc-undo-length
The variable @code{calc-undo-length} determines the number of undo
steps that Calc will keep track of when @code{calc-quit} is called.

10
etc/ChangeLog
View file

@ -1,3 +1,13 @@
2013-04-02 Fabrice Niessen <fni@missioncriticalit.com>
* themes/leuven-theme.el: Update theme.
2013-04-01 Paul Eggert <eggert@cs.ucla.edu>
Use UTF-8 for most files with non-ASCII characters (Bug#13936).
* tutorials/TUTORIAL.ko, tutorials/TUTORIAL.th:
Switch from iso-2022-7bit to utf-8.
2013-03-30 Leo Liu <sdl.web@gmail.com>
* NEWS: Mention `kmacro-to-register' and new eldoc feature.

270
etc/themes/leuven-theme.el
View file

@ -1,7 +1,7 @@
;;; leuven-theme.el --- Emacs custom theme
;; Copyright (C) 2003-2013 Free Software Foundation, Inc.
;; Time-stamp: <2012-12-05 Wed 10:47>
;; Time-stamp: <2013-03-14 Thu 17:04>
;; Author: Fabrice Niessen <(concat "fniessen" at-sign "pirilampo.org")>
@ -39,7 +39,7 @@ Semantic, and Ansi-Color faces are included -- and much more...")
(diff-none '(:foreground "gray33"))
(diff-removed '(:foreground "#A60000" :background "#FFDDDD"))
(directory '(:weight bold :foreground "blue" :background "#FFFFD2"))
(highlight-line '(:inverse-video t))
(highlight-line '(:background "#C6DBAD"))
(link '(:underline t :foreground "#006DAF"))
(mail-header-name '(:weight bold :foreground "black"))
(marked-line '(:weight bold :foreground "white" :background "red"))
@ -57,30 +57,31 @@ Semantic, and Ansi-Color faces are included -- and much more...")
(string '(:foreground "#008000"))
(subject '(:weight bold :foreground "#CF5D60"))
(symlink '(:foreground "deep sky blue"))
(volatile-highlight '(:background "#FFFF00"))
(vc-branch '(:box (:line-width 1 :color "#00CC33") :foreground "black" :background "#AAFFAA")))
(custom-theme-set-faces
'leuven
`(default ((,class (:background "#ffffff" :foreground "#333333"))))
`(default ((,class (:background "#FFFFFF" :foreground "#333333"))))
`(bold ((,class (:weight bold :foreground "black"))))
`(bold-italic ((,class (:weight bold :slant italic :foreground "black"))))
`(italic ((,class (:slant italic :foreground "#1A1A1A"))))
`(underline ((,class (:underline t))))
`(cursor ((,class (:background "#15ff00"))))
`(cursor ((,class (:background "#15FF00"))))
;; Highlighting faces
`(fringe ((,class (:foreground "#808080" :background "#DDEEFF"))))
`(highlight ((,class (:background "#FFFF00"))))
`(region ((t ,region)))
`(secondary-selection ((t ,match))) ;; used by Org-mode for highlighting matched entries and keywords
`(highlight ((,class ,volatile-highlight)))
`(region ((,class ,region)))
`(secondary-selection ((,class ,match))) ;; used by Org-mode for highlighting matched entries and keywords
`(isearch ((,class (:weight bold :foreground "#00AA00" :background "#99FF99"))))
`(isearch-fail ((,class (:weight bold :foreground "black" :background "#FF9999"))))
`(lazy-highlight ((,class (:weight bold :foreground "#990099" :background "#FF66FF"))))
`(trailing-whitespace ((t (:background "#F6EBFE"))))
`(whitespace-line ((t (:foreground "#CC0000" :background "#FFFF88"))))
`(whitespace-tab ((t (:foreground "lightgray" :background "beige"))))
`(whitespace-indentation ((t (:foreground "firebrick" :background "yellow"))))
`(whitespace-trailing ((t (:weight bold :foreground "yellow" :background "red1"))))
`(whitespace-hspace ((t (:background "#CCE8F6"))))
`(trailing-whitespace ((,class (:background "#F6EBFE"))))
`(whitespace-line ((,class (:foreground "#CC0000" :background "#FFFF88"))))
`(whitespace-tab ((,class (:foreground "lightgray" :background "beige"))))
`(whitespace-indentation ((,class (:foreground "firebrick" :background "yellow"))))
`(whitespace-trailing ((,class (:weight bold :foreground "yellow" :background "red1"))))
`(whitespace-hspace ((,class (:background "#CCE8F6"))))
;; Mode line faces
`(mode-line ((,class (:box (:line-width 1 :color "#1A2F54") :foreground "#85CEEB" :background "#335EA8"))))
`(mode-line-inactive ((,class (:box (:line-width 1 :color "#4E4E4C") :foreground "#F0F0EF" :background "#9B9C97"))))
@ -107,7 +108,7 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(font-lock-reference-face ((,class (:foreground "dark cyan"))))
`(font-lock-regexp-grouping-backslash ((,class (:bold t :weight bold))))
`(font-lock-regexp-grouping-construct ((,class (:bold t :weight bold))))
`(font-lock-string-face ((t ,string)))
`(font-lock-string-face ((,class ,string)))
`(font-lock-type-face ((,class (:foreground "#1B781F"))))
`(font-lock-variable-name-face ((,class (:foreground "#2E91AF"))))
`(font-lock-warning-face ((,class (:weight bold :foreground "red"))))
@ -135,18 +136,18 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(gnus-group-mail-2 ((,class (:weight bold :foreground "#FF0066"))))
`(gnus-group-mail-3-empty ((,class (:foreground "#808080"))))
`(gnus-group-mail-3 ((,class (:weight bold :foreground "black"))))
`(gnus-group-mail-low-empty ((t ,cancel)))
`(gnus-group-mail-low ((t ,cancel)))
`(gnus-group-mail-low-empty ((,class ,cancel)))
`(gnus-group-mail-low ((,class ,cancel)))
`(gnus-header-content ((,class (:family "Sans Serif" :foreground "#786FB4"))))
`(gnus-header-from ((,class (:family "Sans Serif" :foreground "blue"))))
`(gnus-header-subject ((t ,subject)))
`(gnus-header-name ((t ,mail-header-name)))
`(gnus-header-subject ((,class ,subject)))
`(gnus-header-name ((,class ,mail-header-name)))
`(gnus-header-newsgroups ((,class (:family "Sans Serif" :foreground "#3399CC"))))
;; Message faces
`(message-header-name ((t ,mail-header-name)))
`(message-header-name ((,class ,mail-header-name)))
`(message-header-cc ((,class (:family "Sans Serif" :foreground "blue"))))
`(message-header-other ((,class (:family "Sans Serif" :foreground "#3399CC"))))
`(message-header-subject ((t ,subject)))
`(message-header-subject ((,class ,subject)))
`(message-header-to ((,class (:family "Sans Serif" :foreground "blue"))))
`(message-cited-text ((,class (:foreground "#5050B0"))))
`(message-separator ((,class (:family "Sans Serif" :weight bold :foreground "red"))))
@ -154,20 +155,20 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(message-header-xheader ((,class (:foreground "red"))))
`(message-mml ((,class (:foreground "forest green"))))
;; Diff
`(diff-added ((t ,diff-added)))
`(diff-added ((,class ,diff-added)))
`(diff-changed ((,class (:foreground "blue" :background "#DDDDFF"))))
`(diff-context ((t ,diff-none)))
`(diff-context ((,class ,diff-none)))
`(diff-file-header ((,class (:foreground "#0000CC" :background "#EAF2F5"))))
`(diff-file1-hunk-header ((,class (:foreground "dark magenta" :background "#EAF2F5"))))
`(diff-file2-hunk-header ((,class (:foreground "#2B7E2A" :background "#EAF2F5"))))
`(diff-file1-hunk-header ((,class (:foreground "dark magenta" :background "#EAF2F5"))))
`(diff-file2-hunk-header ((,class (:foreground "#2B7E2A" :background "#EAF2F5"))))
`(diff-header ((,class (:foreground "#999999" :background "#EAF2F5"))))
`(diff-hunk-header ((t ,diff-hunk-header)))
`(diff-index ((,class (:family "Sans Serif" :height 1.1 :weight bold :foreground "#4183C4" :background "#EAF2F5"))))
`(diff-hunk-header ((,class ,diff-hunk-header)))
`(diff-index ((,class (:foreground "#4183C4" :background "#EAF2F5")))) ;; my foreground is NOT applied!?
`(diff-indicator-added ((,class (:background "#AAFFAA"))))
`(diff-indicator-changed ((,class (:background "#AAAAFF"))))
`(diff-indicator-removed ((,class (:background "#FFAAAA"))))
`(diff-refine-change ((,class (:background "#DDDDFF"))))
`(diff-removed ((t ,diff-removed)))
`(diff-removed ((,class ,diff-removed)))
;; SMerge
`(smerge-refined-change ((,class (:background "#AAAAFF"))))
;; Ediff
@ -181,45 +182,44 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(ediff-odd-diff-A ((,class (:foreground "black" :background "light grey"))))
`(ediff-odd-diff-B ((,class (:foreground "black" :background "light grey"))))
;; Flyspell
`(flyspell-duplicate ((,class (:underline "#008000"))))
`(flyspell-incorrect ((,class (:underline "red"))))
`(flyspell-duplicate ((,class (:underline "#008000" :inherit nil))))
`(flyspell-incorrect ((,class (:underline "red" :inherit nil))))
;; ;; Semantic faces
;; `(semantic-decoration-on-includes ((,class (:underline ,cham-4))))
;; `(semantic-decoration-on-includes ((,class (:underline ,cham-4))))
;; `(semantic-decoration-on-private-members-face ((,class (:background ,alum-2))))
;; `(semantic-decoration-on-protected-members-face ((,class (:background ,alum-2))))
;; `(semantic-decoration-on-unknown-includes ((,class (:background ,choc-3))))
;; `(semantic-decoration-on-unparsed-includes ((,class (:underline ,orange-3))))
;; `(semantic-tag-boundary-face ((,class (:overline ,blue-1))))
;; `(semantic-unmatched-syntax-face ((,class (:underline ,red-1))))
`(Info-title-1-face ((t ,ol1)))
`(Info-title-2-face ((t ,ol2)))
`(Info-title-3-face ((t ,ol3)))
`(Info-title-4-face ((t ,ol4)))
;; `(semantic-decoration-on-unparsed-includes ((,class (:underline ,orange-3))))
;; `(semantic-tag-boundary-face ((,class (:overline ,blue-1))))
;; `(semantic-unmatched-syntax-face ((,class (:underline ,red-1))))
`(Info-title-1-face ((,class ,ol1)))
`(Info-title-2-face ((,class ,ol2)))
`(Info-title-3-face ((,class ,ol3)))
`(Info-title-4-face ((,class ,ol4)))
`(bbdb-company ((,class (:slant italic :foreground "steel blue"))))
`(bbdb-field-name ((,class (:weight bold :foreground "steel blue"))))
`(bbdb-field-value ((,class (:foreground "steel blue"))))
`(bbdb-name ((,class (:underline t :foreground "#FF6633"))))
`(browse-kill-ring-separator-face ((,class (:weight bold :foreground "slate gray"))))
`(calendar-today ((,class (:weight bold :background "#CCCCFF"))))
`(cfw:face-annotation ((,class (:foreground "RosyBrown" :inherit cfw:face-day-title))))
`(cfw:face-day-title ((,class (:background "#F8F9FF"))))
`(calendar-today ((,class (:weight bold :foreground "#4F4A3D" :background "#FFFABE"))))
`(cfw:face-annotation ((,class (:foreground "green" :background "red"))))
`(cfw:face-day-title ((,class (:foreground "#C9C9C9"))))
`(cfw:face-default-content ((,class (:foreground "#2952A3"))))
`(cfw:face-default-day ((,class (:weight bold :inherit cfw:face-day-title))))
`(cfw:face-disable ((,class (:foreground "DarkGray" :inherit cfw:face-day-title))))
`(cfw:face-grid ((,class (:foreground "SlateBlue"))))
`(cfw:face-header ((,class (:foreground "blue" :background "#D4E5FF" :weight bold))))
`(cfw:face-holiday ((,class (:background "#FFD5E5"))))
`(cfw:face-default-day ((,class (:weight bold))))
`(cfw:face-disable ((,class (:foreground "DarkGray"))))
`(cfw:face-grid ((,class (:foreground "#DDDDDD"))))
`(cfw:face-header ((,class (:foreground "#1662AF" :background "white" :weight bold))))
`(cfw:face-holiday ((,class (:foreground "#777777" :background "#E4EBFE"))))
`(cfw:face-periods ((,class (:background "#668CD9" :foreground "white" :slant italic))))
`(cfw:face-saturday ((,class (:foreground "SlateGray4" :background "gray90" :weight bold))))
`(cfw:face-select ((,class (:background "#C3C9F8"))))
`(cfw:face-sunday ((,class (:foreground "red2" :background "#FFD5E5" :weight bold))))
`(cfw:face-title ((,class (:foreground "DarkGrey" :weight bold :height 2.0 :inherit variable-pitch))))
`(cfw:face-today ((,class (:background "#FFF7D7"))))
`(cfw:face-today-title ((,class (:background "#FAD163"))))
`(cfw:face-toolbar ((,class (:foreground "gray90" :background "gray90"))))
`(cfw:face-toolbar-button-off ((,class (:foreground "LightSkyBlue4" :background "white"))))
`(cfw:face-toolbar-button-on ((,class (:foreground "LightPink3" :background "gray94"))))
`(cfw:face-saturday ((,class (:foreground "#4E4E4E" :background "white" :weight bold))))
`(cfw:face-select ((,class (:foreground "#4A95EB" :background "#EDF1FA"))))
`(cfw:face-sunday ((,class (:foreground "#4E4E4E" :background "white" :weight bold))))
`(cfw:face-title ((,class (:foreground "#676767" :weight bold :height 2.0 :inherit variable-pitch))))
`(cfw:face-today ((,class (:foreground "#4F4A3D" :background "#FFFABE"))))
`(cfw:face-today-title ((,class (:foreground "#4A95EB" :background "#FFFABE"))))
`(cfw:face-toolbar ((,class (:background "white"))))
`(cfw:face-toolbar-button-off ((,class (:foreground "#CFCFCF" :background "white"))))
`(cfw:face-toolbar-button-on ((,class (:foreground "#5E5E5E" :background "#F6F6F6"))))
`(change-log-date-face ((,class (:foreground "purple"))))
`(change-log-file ((,class (:weight bold :foreground "#4183C4"))))
`(circe-highlight-all-nicks-face ((,class (:foreground "blue" :background "#F0F0F0")))) ;; other nick names
@ -228,7 +228,7 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(circe-originator-face ((,class (:foreground "blue"))))
`(circe-prompt-face ((,class (:foreground "red"))))
`(circe-server-face ((,class (:foreground "#99CAE5"))))
`(comint-highlight-input ((t ,code-block)))
`(comint-highlight-input ((,class ,code-block)))
`(comint-highlight-prompt ((,class (:foreground "#008ED1" :background "#EAEAFF"))))
`(compare-windows ((,class (:background "#FFFF00"))))
`(compilation-error ((,class (:weight bold :foreground "red"))))
@ -263,7 +263,7 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(dircolors-face-asm ((,class (:foreground "black"))))
`(dircolors-face-backup ((,class (:foreground "black"))))
`(dircolors-face-compress ((,class (:foreground "red"))))
`(dircolors-face-dir ((t ,directory)))
`(dircolors-face-dir ((,class ,directory)))
`(dircolors-face-doc ((,class (:foreground "black"))))
`(dircolors-face-dos ((,class (:foreground "green3"))))
`(dircolors-face-emacs ((,class (:foreground "black"))))
@ -281,32 +281,32 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(dircolors-face-tar ((,class (:foreground "red"))))
`(dircolors-face-text ((,class (:foreground "black"))))
`(dircolors-face-yacc ((,class (:foreground "black"))))
`(dired-directory ((t ,directory)))
`(dired-header ((t ,directory)))
`(dired-directory ((,class ,directory)))
`(dired-header ((,class ,directory)))
`(dired-ignored ((,class (:strike-through t :foreground "red"))))
`(dired-mark ((t ,marked-line)))
`(dired-marked ((t ,marked-line)))
`(dired-symlink ((t ,symlink)))
`(dired-mark ((,class ,marked-line)))
`(dired-marked ((,class ,marked-line)))
`(dired-symlink ((,class ,symlink)))
`(diredp-compressed-file-suffix ((,class (:foreground "red"))))
`(diredp-date-time ((,class (:foreground "purple"))))
`(diredp-dir-heading ((t ,directory)))
`(diredp-dir-priv ((t ,directory)))
`(diredp-dir-heading ((,class ,directory)))
`(diredp-dir-priv ((,class ,directory)))
`(diredp-exec-priv ((,class (:background "#03C03C"))))
`(diredp-executable-tag ((,class (:foreground "green3" :background "white"))))
`(diredp-file-name ((,class (:foreground "black"))))
`(diredp-file-suffix ((,class (:foreground "#008000"))))
`(diredp-flag-mark-line ((t ,marked-line)))
`(diredp-flag-mark-line ((,class ,marked-line)))
`(diredp-ignored-file-name ((,class (:strike-through t :foreground "red"))))
`(diredp-read-priv ((,class (:background "#0A99FF"))))
`(diredp-write-priv ((,class (:foreground "white" :background "#FF4040"))))
`(file-name-shadow ((t ,shadow)))
`(file-name-shadow ((,class ,shadow)))
`(font-latex-bold-face ((,class (:weight bold :foreground "medium sea green"))))
`(font-latex-math-face ((,class (:foreground "blue"))))
`(font-latex-sectioning-1-face ((,class (:family "Sans Serif" :height 2.7 :weight bold :foreground "cornflower blue"))))
`(font-latex-sectioning-2-face ((t ,ol1)))
`(font-latex-sectioning-3-face ((t ,ol2)))
`(font-latex-sectioning-4-face ((t ,ol3)))
`(font-latex-sectioning-5-face ((t ,ol4)))
`(font-latex-sectioning-2-face ((,class ,ol1)))
`(font-latex-sectioning-3-face ((,class ,ol2)))
`(font-latex-sectioning-4-face ((,class ,ol3)))
`(font-latex-sectioning-5-face ((,class ,ol4)))
`(font-latex-sedate-face ((,class (:foreground "#FF5803"))))
`(font-latex-string-face ((,class (:bold t :foreground "#0066FF"))))
`(font-latex-verbatim-face ((,class (:foreground "tan1"))))
@ -327,7 +327,7 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(gnus-picon-xbm ((,class (:foreground "yellow" :background "white"))))
`(gnus-signature ((,class (:foreground "#7F7F7F"))))
`(gnus-splash ((,class (:foreground "#FF8C00"))))
`(gnus-summary-cancelled ((t ,cancel)))
`(gnus-summary-cancelled ((,class ,cancel)))
`(gnus-summary-high-ancient ((,class (:weight normal :foreground "#808080" :background "#FFFFE6"))))
`(gnus-summary-high-read ((,class (:weight normal :foreground "#808080" :background "#FFFFE6"))))
`(gnus-summary-high-ticked ((,class (:weight normal :foreground "black" :background "#E7AEB0"))))
@ -347,24 +347,24 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(helm-candidate-number ((,class (:foreground "black" :background "#FFFF66"))))
`(helm-dir-heading ((,class (:foreground "blue" :background "pink"))))
`(helm-dir-priv ((,class (:foreground "dark red" :background "light grey"))))
`(helm-ff-directory ((t ,directory)))
`(helm-ff-directory ((,class ,directory)))
`(helm-ff-executable ((,class (:foreground "green3" :background "white"))))
`(helm-ff-file ((,class (:foreground "black"))))
`(helm-ff-invalid-symlink ((,class (:foreground "yellow" :background "red"))))
`(helm-ff-symlink ((t ,symlink)))
`(helm-ff-symlink ((,class ,symlink)))
`(helm-file-name ((,class (:foreground "blue"))))
`(helm-gentoo-match-face ((,class (:foreground "red"))))
`(helm-grep-running ((,class (:weight bold :foreground "white"))))
`(helm-isearch-match ((,class (:background "#CCFFCC"))))
`(helm-match ((t ,match)))
`(helm-overlay-line-face ((,class (:underline t :foreground "white" :background "IndianRed4"))))
`(helm-selection ((t ,highlight-line)))
`(helm-match ((,class ,match)))
`(helm-selection ((,class ,highlight-line)))
`(helm-selection-line ((,class ,volatile-highlight)))
`(helm-source-header ((,class (:family "Sans Serif" :height 1.3 :weight bold :foreground "white" :background "#666699"))))
`(helm-visible-mark ((t ,marked-line)))
`(helm-visible-mark ((,class ,marked-line)))
`(helm-w3m-bookmarks-face ((,class (:underline t :foreground "cyan1"))))
`(highlight-symbol-face ((,class (:background "#FFFFA0"))))
`(hl-line ((t ,highlight-line)))
`(holiday-face ((,class (:background "#B6B2AE"))))
`(hl-line ((,class ,highlight-line)))
`(holiday-face ((,class (:foreground "#777777" :background "#E4EBFE"))))
`(html-helper-bold-face ((,class (:weight bold :foreground "black"))))
`(html-helper-italic-face ((,class (:slant italic :foreground "black"))))
`(html-helper-underline-face ((,class (:underline t :foreground "black"))))
@ -375,54 +375,54 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(info-menu-header ((,class (:family "Sans Serif" :height 1.6 :weight bold :underline t :foreground "#00CC00")))) ;; menu titles (headers) -- major topics
`(info-menu-star ((,class (:foreground "black")))) ;; every 3rd menu item
`(info-node ((,class (:underline t :foreground "blue")))) ;; node names
`(info-quoted-name ((t ,code-inline)))
`(info-string ((t ,string)))
`(info-title-1 ((t ,ol1)))
`(info-quoted-name ((,class ,code-inline)))
`(info-string ((,class ,string)))
`(info-title-1 ((,class ,ol1)))
`(info-xref ((,class (:weight bold :underline t :foreground "blue")))) ;; unvisited cross-references
`(info-xref-visited ((,class (:weight bold :foreground "magenta4")))) ;; previously visited cross-references
`(light-symbol-face ((,class (:background "#FFFFA0"))))
`(linum ((,class (:foreground "#AFB7BA" :background "#DDEEFF"))))
`(log-view-file ((,class (:foreground "#0000CC" :background "#EAF2F5"))))
`(lui-button-face ((t ,link)))
`(lui-button-face ((,class ,link)))
`(lui-highlight-face ((,class (:box '(:line-width 1 :color "#CC0000") :foreground "#CC0000" :background "#FFFF88")))) ;; my nickname
`(lui-time-stamp-face ((,class (:foreground "purple"))))
`(magit-branch ((t ,vc-branch)))
`(magit-diff-add ((t ,diff-added)))
`(magit-diff-del ((t ,diff-removed)))
`(magit-branch ((,class ,vc-branch)))
`(magit-diff-add ((,class ,diff-added)))
`(magit-diff-del ((,class ,diff-removed)))
`(magit-diff-file-header ((,class (:family "Sans Serif" :height 1.1 :weight bold :foreground "#4183C4"))))
`(magit-diff-hunk-header ((t ,diff-hunk-header)))
`(magit-diff-none ((t ,diff-none)))
`(magit-diff-hunk-header ((,class ,diff-hunk-header)))
`(magit-diff-none ((,class ,diff-none)))
`(magit-header ((,class (:foreground "white" :background "#FF4040"))))
`(magit-item-highlight ((,class (:background "#EAF2F5"))))
`(magit-item-mark ((t ,marked-line)))
`(magit-item-mark ((,class ,marked-line)))
`(magit-log-head-label ((,class (:box (:line-width 1 :color "blue" :style nil)))))
`(magit-log-tag-label ((,class (:box (:line-width 1 :color "#00CC00" :style nil)))))
`(magit-section-title ((,class (:family "Sans Serif" :height 1.8 :weight bold :foreground "cornflower blue"))))
`(makefile-space-face ((,class (:background "hot pink"))))
`(makefile-targets ((,class (:weight bold :foreground "blue"))))
`(match ((t ,match)))
`(mm-uu-extract ((t ,code-block)))
`(match ((,class ,match)))
`(mm-uu-extract ((,class ,code-block)))
`(moccur-current-line-face ((,class (:background "#FFFFCC" :foreground "black"))))
`(moccur-face ((,class (:background "#FFFF99" :foreground "black"))))
`(nobreak-space ((,class (:background "#CCE8F6"))))
`(nxml-attribute-local-name-face ((,class (:foreground "magenta"))))
`(nxml-attribute-value-delimiter-face ((,class (:foreground "green4"))))
`(nxml-attribute-value-face ((,class (:foreground "green4"))))
`(nxml-comment-content-face ((,class (:slant italic :foreground "red"))))
`(nxml-comment-content-face ((,class (:slant italic :foreground "red"))))
`(nxml-comment-delimiter-face ((,class (:foreground "red"))))
`(nxml-element-local-name ((,class (:box (:line-width 1 :color "#999999") :background "#DEDEDE" :foreground "#000088"))))
`(nxml-element-local-name-face ((,class (:foreground "blue"))))
`(nxml-processing-instruction-target-face ((,class (:foreground "purple1"))))
`(nxml-tag-delimiter-face ((,class (:foreground "blue"))))
`(nxml-tag-slash-face ((,class (:foreground "blue"))))
`(org-agenda-calendar-event ((,class (:weight bold :foreground "white" :background "#1662AF"))))
`(org-agenda-calendar-sexp ((,class (:foreground "black" :background "#80CBFF"))))
`(org-agenda-clocking ((t ,clock-line)))
`(org-agenda-column-dateline ((t ,column)))
`(org-agenda-calendar-event ((,class (:weight bold :foreground "#3774CC" :background "#A8C5EF"))))
`(org-agenda-calendar-sexp ((,class (:foreground "#777777" :background "#E4EBFE"))))
`(org-agenda-clocking ((,class ,clock-line)))
`(org-agenda-column-dateline ((,class ,column)))
`(org-agenda-current-time ((,class (:underline t :foreground "#1662AF"))))
`(org-agenda-date ((,class (:height 1.6 :weight normal :foreground "#0063F5"))))
`(org-agenda-date-today ((,class (:height 1.6 :weight bold :foreground "#1662AF"))))
`(org-agenda-date-weekend ((,class (:height 1.6 :weight normal :foreground "dim gray"))))
`(org-agenda-date ((,class (:height 1.6 :weight bold :foreground "#1662AF"))))
`(org-agenda-date-today ((,class (:height 1.6 :weight bold :foreground "#4F4A3D" :background "#FFFABE"))))
`(org-agenda-date-weekend ((,class (:height 1.6 :weight bold :foreground "#4E4E4E"))))
`(org-agenda-diary ((,class (:weight bold :foreground "green4" :background "light blue"))))
`(org-agenda-dimmed-todo-face ((,class (:foreground "gold2"))))
`(org-agenda-done ((,class (:foreground "#555555" :background "#EEEEEE"))))
@ -432,15 +432,15 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(org-agenda-structure ((,class (:height 1.6 :weight bold :box (:line-width 1 :color "#999999") :foreground "#666666" :background "#CCCCCC"))))
`(org-archived ((,class (:foreground "gray70"))))
`(org-beamer-tag ((,class (:box (:line-width 1 :color "#FABC18") :foreground "#2C2C2C" :background "#FFF8D0"))))
`(org-block ((t ,code-block)))
`(org-block ((,class ,code-block)))
`(org-block-background ((,class (:background "#FFFFE0"))))
`(org-block-begin-line ((,class (:underline "#A7A6AA" :foreground "#555555" :background "#E2E1D5"))))
`(org-block-end-line ((,class (:overline "#A7A6AA" :foreground "#555555" :background "#E2E1D5"))))
`(org-checkbox ((,class (:weight bold :foreground "white" :background "#777777" :box (:line-width 1 :style pressed-button)))))
`(org-clock-overlay ((,class (:foreground "white" :background "SkyBlue4"))))
`(org-code ((t ,code-inline)))
`(org-column ((t ,column)))
`(org-column-title ((t ,column)))
`(org-code ((,class (:foreground "#0066CC"))))
`(org-column ((,class ,column)))
`(org-column-title ((,class ,column)))
`(org-date ((,class (:underline t :foreground "#00459E"))))
`(org-default ((,class (:foreground "#333333"))))
`(org-dim ((,class (:foreground "#AAAAAA"))))
@ -457,44 +457,44 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(org-hide ((,class (:foreground "#E2E2E2"))))
`(org-inlinetask ((,class (:box (:line-width 1 :color "#EBEBEB") :foreground "#777777" :background "#FFFFD6"))))
`(org-latex-and-export-specials ((,class (:foreground "blue"))))
`(org-level-1 ((t ,ol1)))
`(org-level-2 ((t ,ol2)))
`(org-level-3 ((t ,ol3)))
`(org-level-4 ((t ,ol4)))
`(org-level-5 ((t ,ol5)))
`(org-level-6 ((t ,ol6)))
`(org-level-7 ((t ,ol7)))
`(org-level-8 ((t ,ol8)))
`(org-link ((t ,link)))
`(org-level-1 ((,class ,ol1)))
`(org-level-2 ((,class ,ol2)))
`(org-level-3 ((,class ,ol3)))
`(org-level-4 ((,class ,ol4)))
`(org-level-5 ((,class ,ol5)))
`(org-level-6 ((,class ,ol6)))
`(org-level-7 ((,class ,ol7)))
`(org-level-8 ((,class ,ol8)))
`(org-link ((,class ,link)))
`(org-list-dt ((,class (:weight bold :foreground "#335EA8"))))
`(org-meta-line ((,class (:slant normal :foreground "#008ED1" :background "#EAEAFF"))))
`(org-mode-line-clock ((t ,clock-line)))
`(org-mode-line-clock ((,class ,clock-line)))
`(org-mode-line-clock-overrun ((,class (:weight bold :box (:line-width 1 :color "#335EA8") :foreground "white" :background "#FF4040"))))
`(org-number-of-items ((,class (:weight bold :foreground "white" :background "#79BA79"))))
`(org-property-value ((,class (:foreground "#00A000"))))
`(org-quote ((,class (:slant italic :foreground "dim gray" :background "#FFFFE0"))))
`(org-scheduled ((,class (:slant italic :foreground "#0063DC"))))
`(org-scheduled ((,class (:foreground "#333333"))))
`(org-scheduled-previously ((,class (:weight bold :foreground "#373737"))))
`(org-scheduled-today ((,class (:foreground "black" :background "#FFFFCB"))))
`(org-scheduled-today ((,class (:weight bold :foreground "#4F4A3D" :background "#FFFABE"))))
`(org-sexp-date ((,class (:foreground "purple"))))
`(org-special-keyword ((,class (:weight bold :foreground "#00BB00" :background "#EAFFEA"))))
`(org-table ((,class (:foreground "dark green" :background "#EAFFEA"))))
`(org-tag ((,class (:height 1.0 :weight normal :slant italic :foreground "#3C424F" :background "#E5ECFA"))))
`(org-tag ((,class (:weight normal :slant italic :foreground "#3E6D8E" :background "#E0EAF1"))))
`(org-target ((,class (:underline t))))
`(org-time-grid ((,class (:foreground "#6D6D6D"))))
`(org-time-grid ((,class (:foreground "#CFCFCF"))))
`(org-todo ((,class (:weight bold :box (:line-width 1 :color "#D8ABA7") :foreground "#D8ABA7" :background "#FFE6E4"))))
`(org-upcoming-deadline ((,class (:foreground "#FF5555"))))
`(org-verbatim ((,class (:box (:line-width 1 :color "#DDDDDD") :foreground "#000088" :background "#E0FFE0"))))
`(org-verse ((,class (:slant italic :foreground "dim gray" :background "#EEEEEE"))))
`(org-warning ((,class (:weight bold :foreground "black" :background "#CCE7FF"))))
`(outline-1 ((t ,ol1)))
`(outline-2 ((t ,ol2)))
`(outline-3 ((t ,ol3)))
`(outline-4 ((t ,ol4)))
`(outline-5 ((t ,ol5)))
`(outline-6 ((t ,ol6)))
`(outline-7 ((t ,ol7)))
`(outline-8 ((t ,ol8)))
`(outline-1 ((,class ,ol1)))
`(outline-2 ((,class ,ol2)))
`(outline-3 ((,class ,ol3)))
`(outline-4 ((,class ,ol4)))
`(outline-5 ((,class ,ol5)))
`(outline-6 ((,class ,ol6)))
`(outline-7 ((,class ,ol7)))
`(outline-8 ((,class ,ol8)))
`(pabbrev-debug-display-label-face ((,class (:background "chartreuse"))))
`(pabbrev-suggestions-face ((,class (:weight bold :foreground "white" :background "red"))))
`(pabbrev-suggestions-label-face ((,class (:weight bold :foreground "white" :background "purple"))))
@ -504,7 +504,7 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(pp^L-highlight ((,class (:strike-through t))))
`(recover-this-file ((,class (:background "white" :background "#FF3F3F"))))
`(sh-heredoc ((,class (:foreground "blue" :background "#FBF9EA"))))
`(shadow ((t ,shadow)))
`(shadow ((,class ,shadow)))
`(shell-option-face ((,class (:foreground "forest green"))))
`(shell-output-2-face ((,class (:foreground "blue"))))
`(shell-output-3-face ((,class (:foreground "purple"))))
@ -515,16 +515,16 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(speedbar-button-face ((,class (:foreground "green4"))))
`(speedbar-directory-face ((,class (:foreground "blue4"))))
`(speedbar-file-face ((,class (:foreground "cyan4"))))
`(speedbar-highlight-face ((,class (:background "green"))))
`(speedbar-highlight-face ((,class ,volatile-highlight)))
`(speedbar-selected-face ((,class (:underline t :foreground "red"))))
`(speedbar-tag-face ((,class (:foreground "brown"))))
`(svn-status-directory-face ((t ,directory)))
`(svn-status-directory-face ((,class ,directory)))
`(svn-status-filename-face ((,class (:weight bold :foreground "#4183C4"))))
`(svn-status-locked-face ((,class (:weight bold :foreground "red"))))
`(svn-status-marked-face ((t ,marked-line)))
`(svn-status-marked-face ((,class ,marked-line)))
`(svn-status-marked-popup-face ((,class (:weight bold :foreground "green3"))))
`(svn-status-switched-face ((,class (:slant italic :foreground "gray55"))))
`(svn-status-symlink-face ((t ,symlink)))
`(svn-status-symlink-face ((,class ,symlink)))
`(svn-status-update-available-face ((,class (:foreground "orange"))))
`(tex-verbatim ((,class (:foreground "blue"))))
`(tool-bar ((,class (:box (:line-width 1 :style released-button) :foreground "black" :background "gray75"))))
@ -549,7 +549,7 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(vc-annotate-face-FF993F ((,class (:foreground "#FF993F" :background "black"))))
`(vc-annotate-face-FFC63F ((,class (:foreground "#FF993F" :background "black"))))
`(vc-annotate-face-FFF33F ((,class (:foreground "#FFF33F" :background "black"))))
`(w3m-anchor ((t ,link)))
`(w3m-anchor ((,class ,link)))
`(w3m-arrived-anchor ((,class (:foreground "purple1"))))
`(w3m-bitmap-image-face ((,class (:foreground "gray4" :background "green"))))
`(w3m-bold ((,class (:weight bold :foreground "medium sea green"))))
@ -569,9 +569,9 @@ Semantic, and Ansi-Color faces are included -- and much more...")
`(whitespace-hspace ((,class (:background "#CCE8F6"))))
`(whitespace-indentation ((,class (:foreground "firebrick" :background "yellow"))))
`(whitespace-line ((,class (:foreground "#CC0000" :background "#FFFF88"))))
`(whitespace-tab ((,class (:foreground "lightgray" :background "beige"))))
`(whitespace-tab ((,class (:foreground "lightgray" :background "beige"))))
`(whitespace-trailing ((,class (:weight bold :foreground "yellow" :background "red1"))))
`(widget-button-face ((t ,link)))
`(widget-button-face ((,class ,link)))
`(widget-button-pressed-face ((,class (:foreground "red"))))
`(widget-documentation-face ((,class (:foreground "green4"))))
`(widget-field-face ((,class (:background "gray85"))))
@ -583,8 +583,8 @@ Semantic, and Ansi-Color faces are included -- and much more...")
(custom-theme-set-variables
'leuven
'(ansi-color-names-vector ["#242424" "#e5786d" "#95e454" "#cae682"
"#8ac6f2" "#333366" "#ccaa8f" "#f6f3e8"]))
'(ansi-color-names-vector ["#242424" "#E5786D" "#95E454" "#CAE682"
"#8AC6F2" "#333366" "#CCAA8F" "#F6F3E8"]))
(provide-theme 'leuven)

1430
etc/tutorials/TUTORIAL.ko
View file

File diff suppressed because it is too large Load diff

1330
etc/tutorials/TUTORIAL.th
View file

File diff suppressed because it is too large Load diff

16
leim/ChangeLog
View file

@ -1,4 +1,14 @@
2013-03-20 Paul Eggert <eggert@cs.ucla.edu>
2013-04-01 Paul Eggert <eggert@cs.ucla.edu>
Use UTF-8 for most files with non-ASCII characters (Bug#13936).
* quail/cyrillic.el, quail/czech.el, quail/ethiopic.el:
* quail/greek.el, quail/hanja.el, quail/hanja3.el, quail/hebrew.el:
* quail/lao.el, quail/lrt.el, quail/slovak.el, quail/symbol-ksc.el:
* quail/thai.el, quail/tibetan.el, quail/viqr.el, quail/vntelex.el:
* quail/vnvni.el, quail/welsh.el:
Switch from iso-2022-7bit to utf-8 or (if needed) utf-8-emacs.
2013-03-18 Paul Eggert <eggert@cs.ucla.edu>
* Makefile.in ($(srcdir)/ja-dic/ja-dic.el): Use batch-skkdic-convert.
@ -29,10 +39,6 @@
(rules): Use tighter regexps to avoid conflicts.
Consolidate the various rules for combining marks.
2013-03-16 Glenn Morris <rgm@gnu.org>
* Version 24.3 released.
2013-02-08 Stefan Monnier <monnier@iro.umontreal.ca>
* quail/latin-ltx.el: Add greek superscripts.

1874
leim/quail/cyrillic.el
View file

File diff suppressed because it is too large Load diff

548
leim/quail/czech.el
View file

@ -1,9 +1,9 @@
;;; czech.el --- Quail package for inputting Czech -*-coding: iso-2022-7bit;-*-
;;; czech.el --- Quail package for inputting Czech -*-coding: utf-8;-*-
;; Copyright (C) 1998, 2001-2013 Free Software Foundation, Inc.
;; Author: Milan Zamazal <pdm@zamazal.org>
;; Maintainer: Pavel Jan,Bm(Bk <Pavel@Janik.cz>
;; Maintainer: Pavel Janík <Pavel@Janik.cz>
;; Keywords: i18n, multilingual, input method, Czech
;; This file is part of GNU Emacs.
@ -40,15 +40,15 @@
(quail-define-rules
("1" ?+)
("2" ?,Bl(B)
("3" ?,B9(B)
("4" ?,Bh(B)
("5" ?,Bx(B)
("6" ?,B>(B)
("7" ?,B}(B)
("8" ?,Ba(B)
("9" ?,Bm(B)
("0" ?,Bi(B)
("2" ?ě)
("3" ?š)
("4" ?č)
("5" ?ř)
("6" ?ž)
("7" ?ý)
("8" ?á)
("9" ?í)
("0" ?é)
("!" ?1)
("@" ?2)
("#" ?3)
@ -61,14 +61,14 @@
(")" ?0)
("-" ?=)
("_" ?%)
("[" ?,Bz(B)
("[" ?ú)
("{" ?/)
("]" ?\))
("}" ?\()
("|" ?`)
(";" ?,By(B)
(";" ?ů)
(":" ?\")
("'" ?,B'(B)
("'" ?§)
("\"" ?!)
("<" ??)
(">" ?:)
@ -79,44 +79,44 @@
("z" ?y)
("Y" ?Z)
("Z" ?Y)
("\\a" ?,Bd(B)
("\\o" ?,Bv(B)
("\\s" ?,B_(B)
("\\u" ?,B|(B)
("\\A" ?,BD(B)
("\\O" ?,BV(B)
("\\S" ?,B_(B)
("\\U" ?,B\(B)
("~u" ?,By(B)
("~U" ?,BY(B)
("=a" ?,Ba(B)
("+c" ?,Bh(B)
("+d" ?,Bo(B)
("=e" ?,Bi(B)
("+e" ?,Bl(B)
("=i" ?,Bm(B)
("+n" ?,Br(B)
("=o" ?,Bs(B)
("+r" ?,Bx(B)
("+s" ?,B9(B)
("+t" ?,B;(B)
("=u" ?,Bz(B)
("=z" ?,B}(B)
("+y" ?,B>(B)
("=A" ?,BA(B)
("+C" ?,BH(B)
("+D" ?,BO(B)
("=E" ?,BI(B)
("+E" ?,BL(B)
("=I" ?,BM(B)
("+N" ?,BR(B)
("=O" ?,BS(B)
("+R" ?,BX(B)
("+S" ?,B)(B)
("+T" ?,B+(B)
("=U" ?,BZ(B)
("=Z" ?,B](B)
("+Y" ?,B.(B)
("\\a" ?ä)
("\\o" ?ö)
("\\s" ?ß)
("\\u" ?ü)
("\\A" ?Ä)
("\\O" ?Ö)
("\\S" ?ß)
("\\U" ?Ü)
("~u" ?ů)
("~U" ?Ů)
("=a" ?á)
("+c" ?č)
("+d" ?ď)
("=e" ?é)
("+e" ?ě)
("=i" ?í)
("+n" ?ň)
("=o" ?ó)
("+r" ?ř)
("+s" ?š)
("+t" ?ť)
("=u" ?ú)
("=z" ?ý)
("+y" ?ž)
("=A" ?Á)
("+C" ?Č)
("+D" ?Ď)
("=E" ?É)
("+E" ?Ě)
("=I" ?Í)
("+N" ?Ň)
("=O" ?Ó)
("+R" ?Ř)
("+S" ?Š)
("+T" ?Ť)
("=U" ?Ú)
("=Z" ?Ý)
("+Y" ?Ž)
("=1" ?!)
("=2" ?@)
("=3" ?#)
@ -162,15 +162,15 @@
(quail-define-rules
("1" ?+)
("2" ?,Bl(B)
("3" ?,B9(B)
("4" ?,Bh(B)
("5" ?,Bx(B)
("6" ?,B>(B)
("7" ?,B}(B)
("8" ?,Ba(B)
("9" ?,Bm(B)
("0" ?,Bi(B)
("2" ?ě)
("3" ?š)
("4" ?č)
("5" ?ř)
("6" ?ž)
("7" ?ý)
("8" ?á)
("9" ?í)
("0" ?é)
("!" ?1)
("@" ?2)
("#" ?3)
@ -183,58 +183,58 @@
(")" ?0)
("-" ?=)
("_" ?%)
("[" ?,Bz(B)
("[" ?ú)
("{" ?/)
("]" ?\))
("}" ?\()
("|" ?`)
(";" ?,By(B)
(";" ?ů)
(":" ?\")
("'" ?,B'(B)
("'" ?§)
("\"" ?!)
("<" ??)
(">" ?:)
("/" ?-)
("?" ?_)
("`" ?\;)
("\\a" ?,Bd(B)
("\\o" ?,Bv(B)
("\\s" ?,B_(B)
("\\u" ?,B|(B)
("\\A" ?,BD(B)
("\\O" ?,BV(B)
("\\S" ?,B_(B)
("\\U" ?,B\(B)
("~u" ?,By(B)
("~U" ?,BY(B)
("=a" ?,Ba(B)
("+c" ?,Bh(B)
("+d" ?,Bo(B)
("=e" ?,Bi(B)
("+e" ?,Bl(B)
("=i" ?,Bm(B)
("+n" ?,Br(B)
("=o" ?,Bs(B)
("+r" ?,Bx(B)
("+s" ?,B9(B)
("+t" ?,B;(B)
("=u" ?,Bz(B)
("=y" ?,B}(B)
("+z" ?,B>(B)
("=A" ?,BA(B)
("+C" ?,BH(B)
("+D" ?,BO(B)
("=E" ?,BI(B)
("+E" ?,BL(B)
("=I" ?,BM(B)
("+N" ?,BR(B)
("=O" ?,BS(B)
("+R" ?,BX(B)
("+S" ?,B)(B)
("+T" ?,B+(B)
("=Y" ?,B](B)
("+Z" ?,B.(B)
("=U" ?,BZ(B)
("\\a" ?ä)
("\\o" ?ö)
("\\s" ?ß)
("\\u" ?ü)
("\\A" ?Ä)
("\\O" ?Ö)
("\\S" ?ß)
("\\U" ?Ü)
("~u" ?ů)
("~U" ?Ů)
("=a" ?á)
("+c" ?č)
("+d" ?ď)
("=e" ?é)
("+e" ?ě)
("=i" ?í)
("+n" ?ň)
("=o" ?ó)
("+r" ?ř)
("+s" ?š)
("+t" ?ť)
("=u" ?ú)
("=y" ?ý)
("+z" ?ž)
("=A" ?Á)
("+C" ?Č)
("+D" ?Ď)
("=E" ?É)
("+E" ?Ě)
("=I" ?Í)
("+N" ?Ň)
("=O" ?Ó)
("+R" ?Ř)
("+S" ?Š)
("+T" ?Ť)
("=Y" ?Ý)
("+Z" ?Ž)
("=U" ?Ú)
("=1" ?!)
("=2" ?@)
("=3" ?#)
@ -286,15 +286,15 @@ All other keys are the same as on standard US keyboard."
(quail-define-rules
("1" ?+)
("2" ?,Bl(B)
("3" ?,B9(B)
("4" ?,Bh(B)
("5" ?,Bx(B)
("6" ?,B>(B)
("7" ?,B}(B)
("8" ?,Ba(B)
("9" ?,Bm(B)
("0" ?,Bi(B)
("2" ?ě)
("3" ?š)
("4" ?č)
("5" ?ř)
("6" ?ž)
("7" ?ý)
("8" ?á)
("9" ?í)
("0" ?é)
("+1" ?1)
("+2" ?2)
("+3" ?3)
@ -305,52 +305,52 @@ All other keys are the same as on standard US keyboard."
("+8" ?8)
("+9" ?9)
("+0" ?0)
("+a" ?,Ba(B)
("++a" ?,Bd(B)
("+c" ?,Bh(B)
("+d" ?,Bo(B)
("+e" ?,Bi(B)
("++e" ?,Bl(B)
("+i" ?,Bm(B)
("+l" ?,Be(B)
("++l" ?,B5(B)
("+n" ?,Br(B)
("+o" ?,Bs(B)
("++o" ?,Bv(B)
("+++o" ?,Bt(B)
("+r" ?,Bx(B)
("++r" ?,B`(B)
("+s" ?,B9(B)
("++s" ?,B_(B)
("+t" ?,B;(B)
("+u" ?,Bz(B)
("++u" ?,By(B)
("+++u" ?,B|(B)
("+y" ?,B}(B)
("+z" ?,B>(B)
("+A" ?,BA(B)
("++A" ?,BD(B)
("+C" ?,BH(B)
("+D" ?,BO(B)
("+E" ?,BI(B)
("++E" ?,BL(B)
("+I" ?,BM(B)
("+L" ?,BE(B)
("++L" ?,B%(B)
("+N" ?,BR(B)
("+O" ?,BS(B)
("++O" ?,BV(B)
("+++O" ?,BT(B)
("+R" ?,BX(B)
("++R" ?,B@(B)
("+S" ?,B)(B)
("++S" ?,B_(B)
("+T" ?,B+(B)
("+U" ?,BZ(B)
("++U" ?,BY(B)
("+++U" ?,B\(B)
("+Y" ?,B](B)
("+Z" ?,B.(B)
("+a" ?á)
("++a" ?ä)
("+c" ?č)
("+d" ?ď)
("+e" ?é)
("++e" ?ě)
("+i" ?í)
("+l" ?ĺ)
("++l" ?ľ)
("+n" ?ň)
("+o" ?ó)
("++o" ?ö)
("+++o" ?ô)
("+r" ?ř)
("++r" ?ŕ)
("+s" ?š)
("++s" ?ß)
("+t" ?ť)
("+u" ?ú)
("++u" ?ů)
("+++u" ?ü)
("+y" ?ý)
("+z" ?ž)
("+A" ?Á)
("++A" ?Ä)
("+C" ?Č)
("+D" ?Ď)
("+E" ?É)
("++E" ?Ě)
("+I" ?Í)
("+L" ?Ĺ)
("++L" ?Ľ)
("+N" ?Ň)
("+O" ?Ó)
("++O" ?Ö)
("+++O" ?Ô)
("+R" ?Ř)
("++R" ?Ŕ)
("+S" ?Š)
("++S" ?ß)
("+T" ?Ť)
("+U" ?Ú)
("++U" ?Ů)
("+++U" ?Ü)
("+Y" ?Ý)
("+Z" ?Ž)
([kp-1] ?1)
([kp-2] ?2)
([kp-3] ?3)
@ -369,22 +369,22 @@ All other keys are the same as on standard US keyboard."
All digits except of `1' are replaced by Czech characters as on the standard
Czech keyboard.
`1' is replaced by `,By(B'.
`1' is replaced by `ů'.
`+' is a dead key. Multiple presses of the dead key generate various accents.
All other keys are the same as on standard US keyboard."
nil t nil nil t nil nil nil nil nil t)
(quail-define-rules
("1" ?,By(B)
("2" ?,Bl(B)
("3" ?,B9(B)
("4" ?,Bh(B)
("5" ?,Bx(B)
("6" ?,B>(B)
("7" ?,B}(B)
("8" ?,Ba(B)
("9" ?,Bm(B)
("0" ?,Bi(B)
("1" ?ů)
("2" ?ě)
("3" ?š)
("4" ?č)
("5" ?ř)
("6" ?ž)
("7" ?ý)
("8" ?á)
("9" ?í)
("0" ?é)
("+1" ?1)
("+2" ?2)
("+3" ?3)
@ -395,52 +395,52 @@ All other keys are the same as on standard US keyboard."
("+8" ?8)
("+9" ?9)
("+0" ?0)
("+a" ?,Ba(B)
("++a" ?,Bd(B)
("+c" ?,Bh(B)
("+d" ?,Bo(B)
("+e" ?,Bi(B)
("++e" ?,Bl(B)
("+i" ?,Bm(B)
("+l" ?,Be(B)
("++l" ?,B5(B)
("+n" ?,Br(B)
("+o" ?,Bs(B)
("++o" ?,Bv(B)
("+++o" ?,Bt(B)
("+r" ?,Bx(B)
("++r" ?,B`(B)
("+s" ?,B9(B)
("++s" ?,B_(B)
("+t" ?,B;(B)
("+u" ?,Bz(B)
("++u" ?,By(B)
("+++u" ?,B|(B)
("+y" ?,B}(B)
("+z" ?,B>(B)
("+A" ?,BA(B)
("++A" ?,BD(B)
("+C" ?,BH(B)
("+D" ?,BO(B)
("+E" ?,BI(B)
("++E" ?,BL(B)
("+I" ?,BM(B)
("+L" ?,BE(B)
("++L" ?,B%(B)
("+N" ?,BR(B)
("+O" ?,BS(B)
("++O" ?,BV(B)
("+++O" ?,BT(B)
("+R" ?,BX(B)
("++R" ?,B@(B)
("+S" ?,B)(B)
("++S" ?,B_(B)
("+T" ?,B+(B)
("+U" ?,BZ(B)
("++U" ?,BY(B)
("+++U" ?,B\(B)
("+Y" ?,B](B)
("+Z" ?,B.(B)
("+a" ?á)
("++a" ?ä)
("+c" ?č)
("+d" ?ď)
("+e" ?é)
("++e" ?ě)
("+i" ?í)
("+l" ?ĺ)
("++l" ?ľ)
("+n" ?ň)
("+o" ?ó)
("++o" ?ö)
("+++o" ?ô)
("+r" ?ř)
("++r" ?ŕ)
("+s" ?š)
("++s" ?ß)
("+t" ?ť)
("+u" ?ú)
("++u" ?ů)
("+++u" ?ü)
("+y" ?ý)
("+z" ?ž)
("+A" ?Á)
("++A" ?Ä)
("+C" ?Č)
("+D" ?Ď)
("+E" ?É)
("++E" ?Ě)
("+I" ?Í)
("+L" ?Ĺ)
("++L" ?Ľ)
("+N" ?Ň)
("+O" ?Ó)
("++O" ?Ö)
("+++O" ?Ô)
("+R" ?Ř)
("++R" ?Ŕ)
("+S" ?Š)
("++S" ?ß)
("+T" ?Ť)
("+U" ?Ú)
("++U" ?Ů)
("+++U" ?Ü)
("+Y" ?Ý)
("+Z" ?Ž)
([kp-1] ?1)
([kp-2] ?2)
([kp-3] ?3)
@ -460,24 +460,24 @@ keyboard from the obsolete `emacs-czech' package.
All digits except of `1' are replaced by Czech characters as on the standard
Czech keyboard.
`[' and `]' are replaced with `,Bz(B' and `,By(B', respectively.
`[' and `]' are replaced with `ú' and `ů', respectively.
There are two dead keys on `=' and `+'. Characters with diaereses are
accessible through `+='.
All other keys are the same as on standard US keyboard."
nil t nil nil t nil nil nil nil nil t)
(quail-define-rules
("2" ?,Bl(B)
("3" ?,B9(B)
("4" ?,Bh(B)
("5" ?,Bx(B)
("6" ?,B>(B)
("7" ?,B}(B)
("8" ?,Ba(B)
("9" ?,Bm(B)
("0" ?,Bi(B)
("[" ?,Bz(B)
("]" ?,By(B)
("2" ?ě)
("3" ?š)
("4" ?č)
("5" ?ř)
("6" ?ž)
("7" ?ý)
("8" ?á)
("9" ?í)
("0" ?é)
("[" ?ú)
("]" ?ů)
("==" ?=)
("++" ?+)
("=+" ?+)
@ -505,54 +505,54 @@ All other keys are the same as on standard US keyboard."
("+8" ?8)
("+9" ?9)
("+0" ?0)
("=A" ?,BA(B)
("+A" ?,BD(B)
("+=A" ?,BD(B)
("+C" ?,BH(B)
("+D" ?,BO(B)
("=E" ?,BI(B)
("+E" ?,BL(B)
("=I" ?,BM(B)
("=L" ?,B%(B)
("+L" ?,BE(B)
("+N" ?,BR(B)
("=O" ?,BS(B)
("+O" ?,BT(B)
("+=O" ?,BV(B)
("=R" ?,B@(B)
("+R" ?,BX(B)
("+S" ?,B)(B)
("=S" ?,B_(B)
("+T" ?,B+(B)
("=U" ?,BZ(B)
("+U" ?,BY(B)
("+=U" ?,B\(B)
("=Y" ?,B](B)
("+Z" ?,B.(B)
("=a" ?,Ba(B)
("+a" ?,Bd(B)
("+=a" ?,Bd(B)
("+c" ?,Bh(B)
("+d" ?,Bo(B)
("=e" ?,Bi(B)
("+e" ?,Bl(B)
("=i" ?,Bm(B)
("=l" ?,B5(B)
("+l" ?,Be(B)
("+n" ?,Br(B)
("=o" ?,Bs(B)
("+o" ?,Bt(B)
("+=o" ?,Bv(B)
("=r" ?,B`(B)
("+r" ?,Bx(B)
("+s" ?,B9(B)
("=s" ?,B_(B)
("+t" ?,B;(B)
("=u" ?,Bz(B)
("+u" ?,By(B)
("+=u" ?,B|(B)
("=y" ?,B}(B)
("+z" ?,B>(B)
("=A" ?Á)
("+A" ?Ä)
("+=A" ?Ä)
("+C" ?Č)
("+D" ?Ď)
("=E" ?É)
("+E" ?Ě)
("=I" ?Í)
("=L" ?Ľ)
("+L" ?Ĺ)
("+N" ?Ň)
("=O" ?Ó)
("+O" ?Ô)
("+=O" ?Ö)
("=R" ?Ŕ)
("+R" ?Ř)
("+S" ?Š)
("=S" ?ß)
("+T" ?Ť)
("=U" ?Ú)
("+U" ?Ů)
("+=U" ?Ü)
("=Y" ?Ý)
("+Z" ?Ž)
("=a" ?á)
("+a" ?ä)
("+=a" ?ä)
("+c" ?č)
("+d" ?ď)
("=e" ?é)
("+e" ?ě)
("=i" ?í)
("=l" ?ľ)
("+l" ?ĺ)
("+n" ?ň)
("=o" ?ó)
("+o" ?ô)
("+=o" ?ö)
("=r" ?ŕ)
("+r" ?ř)
("+s" ?š)
("=s" ?ß)
("+t" ?ť)
("=u" ?ú)
("+u" ?ů)
("+=u" ?ü)
("=y" ?ý)
("+z" ?ž)
([kp-1] ?1)
([kp-2] ?2)
([kp-3] ?3)

1998
leim/quail/ethiopic.el
View file

File diff suppressed because it is too large Load diff

2102
leim/quail/greek.el
View file

File diff suppressed because it is too large Load diff

952
leim/quail/hanja.el
View file

@ -1,4 +1,4 @@
;;; hanja.el --- Quail-package for Korean Hanja (KSC5601) -*-coding: iso-2022-7bit;-*-
;;; hanja.el --- Quail-package for Korean Hanja (KSC5601) -*-coding: utf-8;-*-
;; Copyright (C) 1997, 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@ -34,483 +34,483 @@
(require 'korea-util)
(quail-define-package
"korean-hanja" "Korean" "$(CyS(B2" t
"2$(C9z=D(BKSC$(CySm.(B: $(Cz1SWGO4B(B $(CySm.@G(B $(Cj$@;(B $(CGQ1[(B2$(C9zcR@87N(B $(C{<usGO?)(B $(C`TwI(B"
"korean-hanja" "Korean" "漢2" t
"2벌식KSC漢字: 該當하는 漢字의 韻을 한글2벌式으로 呼出하여 選擇"
nil nil nil nil nil nil t)
(quail-define-rules
("rk" "$(CJ!J"J#J$J%J&J'J(J)J*J+J,J-J.J/J0J1J2J3J4J5J6J7J8J9J:J;J<J=(B")
("rkr" "$(CJ>J?J@JAJBJCJDJEJFJGJH(B")
("rks" "$(CJIJJJKJLJMJNJOJPJQJRJSJTJUJVJWJXJYJZJ[J\J]J^J_J`(B")
("rkf" "$(CJaJbJcJdJeJfJgJhJiJj(B")
("rka" "$(CJkJlJmJnJoJpJqJrJsJtJuJvJwJxJyJzJ{J|J}J~(B")
("rkq" "$(CK!K"K#K$K%K&(B")
("rkd" "$(CK'K(K)K*K+K,K-K.K/K0K1K2K3K4K5K6K7K8K9K:K;K<K=K>(B")
("ro" "$(CK?K@KAKBKCKDKEKFKGKHKIKJKKKLKMKNKOKPKQKR(B")
("ror" "$(CKSKT(B")
("rod" "$(CKUKVKWKX(B")
("rir" "$(CKY(B")
("rj" "$(CKZK[K\K]K^K_K`KaKbKcKdKeKfKgKhKiKj(B")
("rjs" "$(CKkKlKmKnKoKpKqKrKsKtKuKv(B")
("rjf" "$(CKwKxKyKz(B")
("rja" "$(CK{K|K}K~L!L"L#(B")
("rjq" "$(CL$L%L&(B")
("rp" "$(CL'L(L)(B")
("rur" "$(CL*L+L,L-L.L/L0(B")
("rus" "$(CL1L2L3L4L5L6L7L8L9L:L;(B")
("ruf" "$(CL<L=L>L?L@LA(B")
("rua" "$(CLBLCLDLELFLG(B")
("rud" "$(CLHLILJLKLLLMLNLOLPLQLRLSLTLULVLWLXLYLZL[L\L]L^L_L`LaLbLcLdLeLfLgLhLiLjLkLlLmLnLoLpLqLrLsLt(B")
("rP" "$(CLuLvLwLxLyLzL{L|L}L~M!M"M#M$M%M&M'M(M)M*M+M,M-M.(B")
("rh" "$(CM/M0M1M2M3M4M5M6M7M8M9M:M;M<M=M>M?M@MAMBMCMDMEMFMGMHMIMJMKMLMMMNMOMPMQMRMSMTMU(B")
("rhr" "$(CMVMWMXMYMZM[M\(B")
("rhs" "$(CM]M^M_M`MaMbMcMdMeMf(B")
("rhf" "$(CMgMhMi(B")
("rhd" "$(CMjMkMlMmMnMoMpMqMrMsMtMuMvMwMxMy(B")
("rhw" "$(CMz(B")
("rhk" "$(CM{M|M}M~N!N"N#N$N%N&N'N((B")
("rhkr" "$(CN)N*N+N,(B")
("rhks" "$(CN-N.N/N0N1N2N3N4N5N6N7N8N9N:N;N<N=(B")
("rhkf" "$(CN>N?N@NA(B")
("rhkd" "$(CNBNCNDNENFNGNHNINJNKNLNMNN(B")
("rho" "$(CNONPNQ(B")
("rhl" "$(CNRNSNTNUNVNWNXNYNZ(B")
("rhld" "$(CN[N\N]N^(B")
("ry" "$(CN_N`NaNbNcNdNeNfNgNhNiNjNkNlNmNnNoNpNqNrNsNtNuNvNw(B")
("rn" "$(CNxNyNzN{N|N}N~O!O"O#O$O%O&O'O(O)O*O+O,O-O.O/O0O1O2O3O4O5O6O7O8O9O:O;O<O=O>O?O@OAOBOCODOEOFOGOHOIOJOKOLOMONOO(B")
("rnr" "$(COPOQOROSOTOU(B")
("rns" "$(COVOWOXOYOZO[(B")
("rnf" "$(CO\O]O^O_(B")
("rnd" "$(CO`OaObOcOdOe(B")
("rnjs" "$(COfOgOhOiOjOkOlOmOnOo(B")
("rnjf" "$(COpOqOrOsOt(B")
("rnp" "$(COuOvOwOxOyOz(B")
("rnl" "$(CO{O|O}O~P!P"(B")
("rb" "$(CP#P$P%P&P'P(P)P*P+P,P-P.P/P0P1(B")
("rbs" "$(CP2P3P4P5P6P7P8(B")
("rbf" "$(CP9(B")
("rmr" "$(CP:P;P<P=P>P?P@(B")
("rms" "$(CPAPBPCPDPEPFPGPHPIPJPKPLPMPNPO(B")
("rmf" "$(CPP(B")
("rma" "$(CPQPRPSPTPUPVPWPXPYPZP[P\P]P^(B")
("rmq" "$(CP_P`PaPbPcPdPe(B")
("rmd" "$(CPfPgPhPi(B")
("rl" "$(CPjPkPlPmPnPoPpPqPrPsPtPuPvPwPxPyPzP{P|P}P~Q!Q"Q#Q$Q%Q&Q'Q(Q)Q*Q+Q,Q-Q.Q/Q0Q1Q2Q3Q4Q5Q6Q7Q8Q9Q:Q;Q<Q=Q>Q?Q@QAQBQCQDQEQFQGQHQIQJQK(B")
("rls" "$(CQL(B")
("rlf" "$(CQMQNQOQP(B")
("rla" "$(CQQ(B")
("Rlr" "$(CQR(B")
("sk" "$(CQSQTQUQVQWQXQYQZQ[Q\Q]Q^Q_Q`Qa(B")
("skr" "$(CQbQcQdQeQfQgQhQi(B")
("sks" "$(CQjQkQlQmQnQoQpQqQr(B")
("skf" "$(CQsQt(B")
("ska" "$(CQuQvQwQxQyQzQ{Q|Q}(B")
("skq" "$(CQ~R!R"R#R$(B")
("skd" "$(CR%R&R'R(R)R*R+(B")
("so" "$(CR,R-R.R/R0R1(B")
("sod" "$(CR2(B")
("su" "$(CR3(B")
("sus" "$(CR4R5R6(B")
("sua" "$(CR7R8R9R:(B")
("sud" "$(CR;R<(B")
("sh" "$(CR=R>R?R@RARBRCRDRERFRGRHRIRJRKRLRMRN(B")
("shr" "$(CRORPRQRRRSRT(B")
("shs" "$(CRU(B")
("shd" "$(CRVRWRXRYRZR[R\(B")
("shl" "$(CR]R^R_R`RaRb(B")
("sy" "$(CRc(B")
("sn" "$(CRdReRfRgRhRiRjRk(B")
("sns" "$(CRl(B")
("snf" "$(CRm(B")
("sb" "$(CRnRo(B")
("smr" "$(CRpRq(B")
("sma" "$(CRr(B")
("smd" "$(CRsRtRuRvRwRx(B")
("sl" "$(CRyRz(B")
("slr" "$(CR{R|(B")
("ek" "$(CR}R~(B")
("eks" "$(CS!S"S#S$S%S&S'S(S)S*S+S,S-S.S/S0S1S2S3S4(B")
("ekf" "$(CS5S6S7S8S9(B")
("eka" "$(CS:S;S<S=S>S?S@SASBSCSDSESFSGSHSISJ(B")
("ekq" "$(CSKSLSMSNSO(B")
("ekd" "$(CSPSQSRSSSTSUSVSWSXSYSZ(B")
("eo" "$(CS[S\S]S^S_S`SaSbScSdSeSfSgShSiSj(B")
("eor" "$(CSk(B")
("ejr" "$(CSlSm(B")
("eh" "$(CSnSoSpSqSrSsStSuSvSwSxSySzS{S|S}S~T!T"T#T$T%T&T'T(T)T*T+T,T-T.T/T0T1T2T3T4T5T6T7(B")
("ehr" "$(CT8T9T:T;T<T=T>T?T@TA(B")
("ehs" "$(CTBTCTDTETFTGTHTITJTK(B")
("ehf" "$(CTLTM(B")
("ehd" "$(CTNTOTPTQTRTSTTTUTVTWTXTYTZT[T\T]T^(B")
("en" "$(CT_T`TaTbTcTdTeTfTgThTi(B")
("ens" "$(CTjTkTlTmTnTo(B")
("emr" "$(CTp(B")
("emd" "$(CTqTrTsTtTuTvTwTxTy(B")
("fk" "$(CTzT{T|T}T~U!U"U#U$(B")
("fkr" "$(CU%U&U'U(U)U*U+U,U-(B")
("fks" "$(CU.U/U0U1U2U3U4U5U6(B")
("fkf" "$(CU7U8(B")
("fka" "$(CU9U:U;U<U=U>U?U@UAUB(B")
("fkq" "$(CUCUDUE(B")
("fkd" "$(CUFUGUHUIUJUKULUM(B")
("fo" "$(CUNUOUPUQ(B")
("fod" "$(CUR(B")
("fir" "$(CUSUT(B")
("fid" "$(CUUUVUWUXUYUZU[U\U]U^U_U`Ua(B")
("fu" "$(CUbUcUdUeUfUgUhUiUjUkUlUmUnUoUpUqUrUs(B")
("fur" "$(CUtUuUvUwUxUyUz(B")
("fus" "$(CU{U|U}U~V!V"V#V$V%V&V'V((B")
("fuf" "$(CV)V*V+V,V-V.(B")
("fua" "$(CV/V0V1V2V3(B")
("fuq" "$(CV4(B")
("fud" "$(CV5V6V7V8V9V:V;V<V=V>V?V@VAVBVCVDVEVF(B")
("fP" "$(CVGVHVIVJVK(B")
("fh" "$(CVLVMVNVOVPVQVRVSVTVUVVVWVXVYVZV[V\V](B")
("fhr" "$(CV^V_V`VaVbVcVd(B")
("fhs" "$(CVe(B")
("fhd" "$(CVfVgVhViVjVkVl(B")
("fhl" "$(CVmVnVoVpVqVrVsVt(B")
("fy" "$(CVuVvVwVxVyVzV{V|V}V~W!W"(B")
("fyd" "$(CW#(B")
("fn" "$(CW$W%W&W'W(W)W*W+W,W-W.W/W0(B")
("fb" "$(CW1W2W3W4W5W6W7W8W9W:W;W<W=W>(B")
("fbr" "$(CW?W@WA(B")
("fbs" "$(CWBWCWDWEWFWG(B")
("fbf" "$(CWHWIWJWK(B")
("fbd" "$(CWL(B")
("fmr" "$(CWMWN(B")
("fma" "$(CWO(B")
("fmd" "$(CWPWQWRWSWTWU(B")
("fl" "$(CWVWWWXWYWZW[W\W]W^W_W`WaWbWcWdWeWfWgWhWiWjWkWlWmWnWo(B")
("fls" "$(CWpWqWrWsWtWuWvWwWx(B")
("fla" "$(CWyWzW{W|W}(B")
("flq" "$(CW~X!X"X#(B")
("ak" "$(CX$X%X&X'X(X)X*X+(B")
("akr" "$(CX,X-X.X/X0X1(B")
("aks" "$(CX2X3X4X5X6X7X8X9X:X;X<X=X>X?X@XAXBXCXD(B")
("akf" "$(CXEXFXGXHXIXJXK(B")
("akd" "$(CXLXMXNXOXPXQXRXSXTXUXVXW(B")
("ao" "$(CXXXYXZX[X\X]X^X_X`XaXbXcXdXe(B")
("aor" "$(CXfXgXhXiXj(B")
("aod" "$(CXkXlXmXnXoXp(B")
("aur" "$(CXqXr(B")
("aus" "$(CXsXtXuXvXwXxXyXzX{X|X}(B")
("auf" "$(CX~Y!(B")
("aud" "$(CY"Y#Y$Y%Y&Y'Y(Y)Y*Y+Y,Y-Y.Y/Y0(B")
("aP" "$(CY1(B")
("ah" "$(CY2Y3Y4Y5Y6Y7Y8Y9Y:Y;Y<Y=Y>Y?Y@YAYBYCYDYEYFYGYHYI(B")
("ahr" "$(CYJYKYLYMYNYOYP(B")
("ahf" "$(CYQYR(B")
("ahd" "$(CYSYTYU(B")
("ay" "$(CYVYWYXYYYZY[Y\Y]Y^Y_Y`Ya(B")
("an" "$(CYbYcYdYeYfYgYhYiYjYkYlYmYnYoYpYqYrYsYtYuYvYw(B")
("anr" "$(CYxYy(B")
("ans" "$(CYzY{Y|Y}Y~Z!Z"Z#Z$Z%Z&Z'(B")
("anf" "$(CZ(Z)Z*(B")
("al" "$(CZ+Z,Z-Z.Z/Z0Z1Z2Z3Z4Z5Z6Z7Z8Z9Z:Z;Z<Z=(B")
("als" "$(CZ>Z?Z@ZAZBZCZDZEZFZGZHZIZJ(B")
("alf" "$(CZKZLZM(B")
("qkr" "$(CZNZOZPZQZRZSZTZUZVZWZXZYZZZ[Z\Z]Z^Z_Z`(B")
("qks" "$(CZaZbZcZdZeZfZgZhZiZjZkZlZmZnZoZpZqZrZsZtZuZvZwZxZy(B")
("qkf" "$(CZzZ{Z|Z}Z~[!["[#[$[%[&(B")
("qkd" "$(C['[([)[*[+[,[-[.[/[0[1[2[3[4[5[6[7[8[9[:[;[<[=[>[?[@[A[B(B")
("qo" "$(C[C[D[E[F[G[H[I[J[K[L[M[N[O[P[Q[R[S[T[U[V(B")
("qor" "$(C[W[X[Y[Z[[[\[][^(B")
("qjs" "$(C[_[`[a[b[c[d[e[f[g[h(B")
("qjf" "$(C[i[j[k[l(B")
("qja" "$(C[m[n[o[p[q[r[s[t[u(B")
("qjq" "$(C[v[w(B")
("qur" "$(C[x[y[z[{[|[}[~\!\"\#\$(B")
("qus" "$(C\%\&\'\(\)\*\+(B")
("quf" "$(C\,\-\.\/(B")
("qud" "$(C\0\1\2\3\4\5\6\7\8\9\:\;\<\=\>\?\@(B")
("qh" "$(C\A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P(B")
("qhr" "$(C\Q\R\S\T\U\V\W\X\Y\Z\[\\\]\^\_\`\a(B")
("qhs" "$(C\b(B")
("qhf" "$(C\c(B")
("qhd" "$(C\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s(B")
("qn" "$(C\t\u\v\w\x\y\z\{\|\}\~]!]"]#]$]%]&]'](])]*]+],]-].]/]0]1]2]3]4]5]6]7]8]9]:];]<]=]>]?]@(B")
("qnr" "$(C]A(B")
("qns" "$(C]B]C]D]E]F]G]H]I]J]K]L]M]N]O]P]Q]R]S]T(B")
("qnf" "$(C]U]V]W]X]Y(B")
("qnd" "$(C]Z][]\]]]^]_(B")
("ql" "$(C]`]a]b]c]d]e]f]g]h]i]j]k]l]m]n]o]p]q]r]s]t]u]v]w]x]y]z]{]|]}]~^!^"^#^$^%^&^'^(^)^*^+^,(B")
("qls" "$(C^-^.^/^0^1^2^3^4^5^6^7^8^9^:(B")
("qld" "$(C^;^<^=^>(B")
("tk" "$(C^?^@^A^B^C^D^E^F^G^H^I^J^K^L^M^N^O^P^Q^R^S^T^U^V^W^X^Y^Z^[^\^]^^^_^`^a^b^c^d^e^f^g^h^i^j^k^l^m^n^o^p^q^r^s^t^u^v^w^x^y^z(B")
("tkr" "$(C^{^|^}^~(B")
("tks" "$(C_!_"_#_$_%_&_'_(_)_*_+_,(B")
("tkf" "$(C_-_._/_0_1(B")
("tka" "$(C_2_3_4_5_6_7_8_9(B")
("tkq" "$(C_:_;_<_=(B")
("tkd" "$(C_>_?_@_A_B_C_D_E_F_G_H_I_J_K_L_M_N_O_P_Q_R_S_T_U_V_W_X_Y_Z_[_\(B")
("to" "$(C_]_^__(B")
("tor" "$(C_`_a_b_c_d(B")
("tod" "$(C_e_f_g_h_i(B")
("tj" "$(C_j_k_l_m_n_o_p_q_r_s_t_u_v_w_x_y_z_{_|_}_~`!`"`#`$`%`&`'`(`)(B")
("tjr" "$(C`*`+`,`-`.`/`0`1`2`3`4`5`6`7`8(B")
("tjs" "$(C`9`:`;`<`=`>`?`@`A`B`C`D`E`F`G`H`I`J`K`L`M`N`O`P`Q`R`S`T`U`V`W`X(B")
("tjf" "$(C`Y`Z`[`\`]`^`_```a`b`c`d`e(B")
("tja" "$(C`f`g`h`i`j`k`l`m(B")
("tjq" "$(C`n`o`p`q(B")
("tjd" "$(C`r`s`t`u`v`w`x`y`z`{`|`}`~a!a"a#a$a%(B")
("tp" "$(Ca&a'a(a)a*a+a,a-a.(B")
("th" "$(Ca/a0a1a2a3a4a5a6a7a8a9a:a;a<a=a>a?a@aAaBaCaDaEaFaGaHaIaJaKaLaMaNaOaPaQaRaS(B")
("thr" "$(CaTaUaVaWaXaYaZa[a\(B")
("ths" "$(Ca]a^a_a`aaab(B")
("thf" "$(Cac(B")
("thd" "$(Cadaeafagahaiajak(B")
("tho" "$(Calamanaoap(B")
("thl" "$(Caqar(B")
("tn" "$(Casatauavawaxayaza{a|a}a~b!b"b#b$b%b&b'b(b)b*b+b,b-b.b/b0b1b2b3b4b5b6b7b8b9b:b;b<b=b>b?b@bAbBbCbDbEbFbGbHbIbJbKbLbMbNbObPbQ(B")
("tnr" "$(CbRbSbTbUbVbWbXbYbZb[b\b](B")
("tns" "$(Cb^b_b`babbbcbdbebfbgbhbibjbkblbmbnbobpbqbrbsbtbubvbwbx(B")
("tnf" "$(Cbybzb{b|(B")
("tnd" "$(Cb}b~c!(B")
("tmf" "$(Cc"c#c$(B")
("tmq" "$(Cc%c&c'c(c)(B")
("tmd" "$(Cc*c+c,c-c.c/c0c1c2c3(B")
("tl" "$(Cc4c5c6c7c8c9c:c;c<c=c>c?c@cAcBcCcDcEcFcGcHcIcJcKcLcMcNcO(B")
("tlr" "$(CcPcQcRcScTcUcVcWcXcYcZc[c\c]c^(B")
("tls" "$(Cc_c`cacbcccdcecfcgchcicjckclcmcncocpcqcrcsctcucv(B")
("tlf" "$(Ccwcxcycz(B")
("tla" "$(Cc{c|c}c~d!d"d#d$d%d&(B")
("tlq" "$(Cd'd(d)(B")
("Tkd" "$(Cd*(B")
("Tl" "$(Cd+(B")
("dk" "$(Cd,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;d<d=(B")
("dkr" "$(Cd>d?d@dAdBdCdDdEdFdGdHdIdJdK(B")
("dks" "$(CdLdMdNdOdPdQdRdSdTdU(B")
("dkf" "$(CdVdWdXdY(B")
("dka" "$(CdZd[d\d]d^d_d`da(B")
("dkq" "$(Cdbdcddde(B")
("dkd" "$(Cdfdgdhdidjdkdl(B")
("do" "$(Cdmdndodpdqdrdsdtdudvdw(B")
("dor" "$(Cdxdydzd{d|d}d~(B")
("dod" "$(Ce!e"e#e$(B")
("di" "$(Ce%e&e'e(e)e*e+e,e-e.e/(B")
("dir" "$(Ce0e1e2e3e4e5e6e7e8(B")
("did" "$(Ce9e:e;e<e=e>e?e@eAeBeCeDeEeFeGeHeIeJeKeLeMeNeOePeQeReSeTeUeVeW(B")
("dj" "$(CeXeYeZe[e\e]e^e_e`ea(B")
("djr" "$(Cebecedeeef(B")
("djs" "$(Cegeheiejekel(B")
("djf" "$(Cemen(B")
("dja" "$(Ceoepeqereset(B")
("djq" "$(Ceuev(B")
("dps" "$(Cew(B")
("du" "$(Cexeyeze{e|e}e~f!f"f#f$f%f&f'f(f)f*f+f,f-f.f/f0f1(B")
("dur" "$(Cf2f3f4f5f6f7f8f9f:f;f<f=f>(B")
("dus" "$(Cf?f@fAfBfCfDfEfFfGfHfIfJfKfLfMfNfOfPfQfRfSfTfUfVfWfXfYfZf[f\f]f^f_f`fafbfcfdfefffgfhfi(B")
("duf" "$(Cfjfkflfmfnfofpfqfrfs(B")
("dua" "$(Cftfufvfwfxfyfzf{f|f}f~g!g"g#g$(B")
("duq" "$(Cg%g&g'g((B")
("dud" "$(Cg)g*g+g,g-g.g/g0g1g2g3g4g5g6g7g8g9g:g;g<g=g>g?g@gAgBgCgDgEgFgGgHgIgJgKgLgMgNgOgP(B")
("dP" "$(CgQgRgSgTgUgVgWgXgYgZg[g\g]g^g_g`gagbgcgdgegfgggh(B")
("dh" "$(Cgigjgkglgmgngogpgqgrgsgtgugvgwgxgygzg{g|g}g~h!h"h#h$h%h&h'h((B")
("dhr" "$(Ch)h*h+h,h-(B")
("dhs" "$(Ch.h/h0h1h2h3(B")
("dhf" "$(Ch4(B")
("dhd" "$(Ch5h6h7h8h9h:h;h<h=(B")
("dhk" "$(Ch>h?h@hAhBhChDhE(B")
("dhks" "$(ChFhGhHhIhJhKhLhMhNhOhPhQhRhShThUhVhW(B")
("dhkf" "$(ChX(B")
("dhkd" "$(ChYhZh[h\h](B")
("dho" "$(Ch^h_h`ha(B")
("dhl" "$(Chbhchdhehf(B")
("dy" "$(Chghhhihjhkhlhmhnhohphqhrhshthuhvhwhxhyhzh{h|h}h~i!i"i#i$i%i&i'i(i)i*i+i,i-i.(B")
("dyr" "$(Ci/i0i1i2i3i4(B")
("dyd" "$(Ci5i6i7i8i9i:i;i<i=i>i?i@iAiBiCiDiEiFiGiHiIiJiKiL(B")
("dn" "$(CiMiNiOiPiQiRiSiTiUiViWiXiYiZi[i\i]i^i_i`iaibicidieifigihiiijikil(B")
("dnr" "$(Ciminioipiqirisitiu(B")
("dns" "$(Civiwixiyizi{i|i}i~j!j"j#j$(B")
("dnf" "$(Cj%j&j'(B")
("dnd" "$(Cj(j)(B")
("dnjs" "$(Cj*j+j,j-j.j/j0j1j2j3j4j5j6j7j8j9j:j;j<j=j>j?j@jAjBjCjD(B")
("dnjf" "$(CjEjFjG(B")
("dnl" "$(CjHjIjJjKjLjMjNjOjPjQjRjSjTjUjVjWjXjYjZj[j\j]j^j_j`(B")
("db" "$(Cjajbjcjdjejfjgjhjijjjkjljmjnjojpjqjrjsjtjujvjwjxjyjzj{j|j}j~k!k"k#k$k%k&k'k(k)k*k+k,k-k.k/k0k1k2k3k4k5k6k7k8k9k:(B")
("dbr" "$(Ck;k<k=k>k?k@kA(B")
("dbs" "$(CkBkCkDkEkFkGkHkIkJkKkLkMkN(B")
("dbf" "$(CkOkPkQkRkS(B")
("dbd" "$(CkTkUkVkWkX(B")
("dms" "$(CkYkZk[k\k]k^k_(B")
("dmf" "$(Ck`(B")
("dma" "$(Ckakbkckdkekf(B")
("dmq" "$(Ckgkhki(B")
("dmd" "$(Ckjkkklkm(B")
("dml" "$(Cknkokpkqkrksktkukvkwkxkykzk{k|k}k~l!l"(B")
("dl" "$(Cl#l$l%l&l'l(l)l*l+l,l-l.l/l0l1l2l3l4l5l6l7l8l9l:l;l<l=l>l?l@lAlBlClDlElFlGlH(B")
("dlr" "$(ClIlJlKlLlMlNlOlP(B")
("dls" "$(ClQlRlSlTlUlVlWlXlYlZl[l\l]l^l_l`lalblcldlelflglh(B")
("dlf" "$(Cliljlklllmlnlolplq(B")
("dla" "$(Clrlsltlulvlwlxlylzl{l|(B")
("dlq" "$(Cl}l~m!m"m#(B")
("dld" "$(Cm$m%m&m'(B")
("wk" "$(Cm(m)m*m+m,m-m.m/m0m1m2m3m4m5m6m7m8m9m:m;m<m=m>m?m@mA(B")
("wkr" "$(CmBmCmDmEmFmGmHmImJmKmLmMmN(B")
("wks" "$(CmOmPmQmRmS(B")
("wka" "$(CmTmUmVmWmXmY(B")
("wkq" "$(CmZ(B")
("wkd" "$(Cm[m\m]m^m_m`mambmcmdmemfmgmhmimjmkmlmmmnmompmqmrmsmtmumvmwmxmymzm{m|m}m~n!(B")
("wo" "$(Cn"n#n$n%n&n'n(n)n*n+n,n-n.n/n0n1n2(B")
("wod" "$(Cn3n4n5n6(B")
("wj" "$(Cn7n8n9n:n;n<n=n>n?n@nAnBnCnDnEnFnGnHnInJnKnLnMnNnOnPnQnR(B")
("wjr" "$(CnSnTnUnVnWnXnYnZn[n\n]n^n_n`nanbncndnenfngnhninjnk(B")
("wjs" "$(Cnlnmnnnonpnqnrnsntnunvnwnxnynzn{n|n}n~o!o"o#o$o%o&o'o(o)o*o+o,o-o.o/o0o1o2o3o4o5o6(B")
("wjf" "$(Co7o8o9o:o;o<o=o>(B")
("wja" "$(Co?o@oAoBoCoDoEoFoG(B")
("wjq" "$(CoHoIoJ(B")
("wjd" "$(CoKoLoMoNoOoPoQoRoSoToUoVoWoXoYoZo[o\o]o^o_o`oaobocodoeofogohoiojokolomonooopoqorosotouovowoxoyozo{o|o}o~p!p"p#(B")
("wp" "$(Cp$p%p&p'p(p)p*p+p,p-p.p/p0p1p2p3p4p5p6p7p8p9p:(B")
("wh" "$(Cp;p<p=p>p?p@pApBpCpDpEpFpGpHpIpJpKpLpMpNpOpPpQpRpSpTpUpVpWpXpYpZp[p\p]p^p_p`papbpcpdpepfpgph(B")
("whr" "$(Cpipjpkpl(B")
("whs" "$(Cpmpn(B")
("whf" "$(Cpopppq(B")
("whd" "$(Cprpsptpupvpwpxpypzp{p|p}p~q!q"q#q$(B")
("whk" "$(Cq%q&q'q(q)(B")
("whl" "$(Cq*(B")
("wn" "$(Cq+q,q-q.q/q0q1q2q3q4q5q6q7q8q9q:q;q<q=q>q?q@qAqBqCqDqEqFqGqHqIqJqKqLqMqNqOqPqQqR(B")
("wnr" "$(CqSqT(B")
("wns" "$(CqUqVqWqXqYqZq[q\q]q^q_q`qaqbqcqdqeqfqg(B")
("wnf" "$(Cqh(B")
("wnd" "$(Cqiqjqkql(B")
("wmr" "$(Cqm(B")
("wmf" "$(Cqn(B")
("wmq" "$(Cqoqpqq(B")
("wmd" "$(Cqrqsqtquqvqwqxqyqzq{q|(B")
("wl" "$(Cq}q~r!r"r#r$r%r&r'r(r)r*r+r,r-r.r/r0r1r2r3r4r5r6r7r8r9r:r;r<r=r>r?r@(B")
("wlr" "$(CrArBrCrDrE(B")
("wls" "$(CrFrGrHrIrJrKrLrMrNrOrPrQrRrSrTrUrVrWrXrYrZr[r\r]r^r_r`rarbrcrdrerfrgrh(B")
("wlf" "$(Crirjrkrlrmrnrorprqrrrsrtrurvrw(B")
("wla" "$(Crxry(B")
("wlq" "$(Crzr{r|r}r~s!s"(B")
("wld" "$(Cs#s$s%(B")
("ck" "$(Cs&s's(s)s*s+s,s-s.s/s0s1s2s3s4(B")
("ckr" "$(Cs5s6s7s8s9s:s;(B")
("cks" "$(Cs<s=s>s?s@sAsBsCsDsEsFsGsHsIsJ(B")
("ckf" "$(CsKsLsMsNsO(B")
("cka" "$(CsPsQsRsSsTsUsVsWsXsY(B")
("ckd" "$(CsZs[s\s]s^s_s`sasbscsdsesfsgshsisjskslsmsnso(B")
("co" "$(Cspsqsrssstsusvswsxsyszs{(B")
("cor" "$(Cs|s}s~t!(B")
("cj" "$(Ct"t#t$t%(B")
("cjr" "$(Ct&t't(t)t*t+t,t-t.t/t0t1t2t3t4(B")
("cjs" "$(Ct5t6t7t8t9t:t;t<t=t>t?t@tAtBtCtDtEtFtG(B")
("cjf" "$(CtHtItJtKtLtMtNtOtPtQ(B")
("cja" "$(CtRtStTtUtVtWtXtYtZt[(B")
("cjq" "$(Ct\t]t^t_t`tatbtctdte(B")
("cjd" "$(Ctftgthtitjtktltm(B")
("cp" "$(Ctntotptqtrtstttutvtw(B")
("ch" "$(Ctxtytzt{t|t}t~u!u"u#u$u%u&u'u(u)u*u+u,u-u.u/u0u1u2u3u4(B")
("chr" "$(Cu5u6u7u8u9u:(B")
("chs" "$(Cu;u<u=u>(B")
("chd" "$(Cu?u@uAuBuCuDuEuFuGuH(B")
("chkf" "$(CuI(B")
("chl" "$(CuJuKuL(B")
("cn" "$(CuMuNuOuPuQuRuSuTuUuVuWuXuYuZu[u\u]u^u_u`uaubuc(B")
("cnr" "$(Cudueufuguhuiujukulumunuo(B")
("cns" "$(Cupuqur(B")
("cnf" "$(Cusutuu(B")
("cnd" "$(Cuvuwuxuyuzu{(B")
("cnp" "$(Cu|u}u~v!(B")
("cnl" "$(Cv"v#v$v%v&v'v(v)v*v+v,v-v.v/(B")
("cmr" "$(Cv0v1v2v3v4(B")
("cmd" "$(Cv5(B")
("cl" "$(Cv6v7v8v9v:v;v<v=v>v?v@vAvBvCvDvEvFvGvHvIvJvKvLvM(B")
("clr" "$(CvNvOvP(B")
("cls" "$(CvQ(B")
("clf" "$(CvRvSvT(B")
("cla" "$(CvUvVvWvXvYvZv[v\v](B")
("clq" "$(Cv^(B")
("cld" "$(Cv_v`(B")
("zho" "$(Cva(B")
("xk" "$(Cvbvcvdvevfvgvhvivjvkvlvmvnvo(B")
("xkr" "$(Cvpvqvrvsvtvuvvvwvxvyvzv{v|v}v~w!(B")
("xks" "$(Cw"w#w$w%w&w'w(w)w*w+(B")
("xkf" "$(Cw,w-(B")
("xka" "$(Cw.w/w0w1(B")
("xkq" "$(Cw2w3w4(B")
("xkd" "$(Cw5w6w7w8w9(B")
("xo" "$(Cw:w;w<w=w>w?w@wAwBwCwDwEwFwG(B")
("xor" "$(CwHwIwJ(B")
("xod" "$(CwK(B")
("xj" "$(CwL(B")
("xh" "$(CwMwNwOwP(B")
("xhd" "$(CwQwRwSwTwUwVwW(B")
("xhl" "$(CwXwYwZw[w\w](B")
("xn" "$(Cw^w_w`wawbwc(B")
("xmr" "$(Cwdwe(B")
("xma" "$(Cwf(B")
("vk" "$(Cwgwhwiwjwkwlwmwnwowpwqwrwswtwuwv(B")
("vks" "$(Cwwwxwywzw{w|w}w~x!(B")
("vkf" "$(Cx"x#x$(B")
("vo" "$(Cx%x&x'x(x)x*x+x,x-x.x/(B")
("vod" "$(Cx0x1x2x3(B")
("vir" "$(Cx4(B")
("vus" "$(Cx5x6x7x8x9x:x;x<x=x>(B")
("vua" "$(Cx?(B")
("vud" "$(Cx@xAxBxCxD(B")
("vP" "$(CxExFxGxHxIxJxKxLxMxN(B")
("vh" "$(CxOxPxQxRxSxTxUxVxWxXxYxZx[x\x]x^x_x`xaxbxcxdxexfxgxhxixj(B")
("vhr" "$(Cxkxlxmxnxoxp(B")
("vy" "$(Cxqxrxsxtxuxvxwxxxyxzx{x|x}x~(B")
("vna" "$(Cy!y"(B")
("vnd" "$(Cy#y$y%y&y'(B")
("vl" "$(Cy(y)y*y+y,y-y.(B")
("vlf" "$(Cy/y0y1y2y3y4y5y6y7y8(B")
("vlq" "$(Cy9y:(B")
("gk" "$(Cy;y<y=y>y?y@yAyByCyDyEyFyGyH(B")
("gkr" "$(CyIyJyKyLyM(B")
("gks" "$(CyNyOyPyQyRySyTyUyVyWyXyYyZy[(B")
("gkf" "$(Cy\y](B")
("gka" "$(Cy^y_y`yaybycydyeyfygyhyi(B")
("gkq" "$(Cyjykylymynyoyp(B")
("gkd" "$(Cyqyrysytyuyvywyxyyyzy{y|y}y~z!z"z#(B")
("go" "$(Cz$z%z&z'z(z)z*z+z,z-z.z/z0z1z2z3z4z5(B")
("gor" "$(Cz6z7(B")
("god" "$(Cz8z9z:z;z<(B")
("gid" "$(Cz=z>z?z@zAzBzCzDzE(B")
("gj" "$(CzFzGzHzI(B")
("gjs" "$(CzJzKzLzM(B")
("gjf" "$(CzN(B")
("gja" "$(CzOzP(B")
("gur" "$(CzQzRzSzT(B")
("gus" "$(CzUzVzWzXzYzZz[z\z]z^z_z`zazbzczdzezfzgzhzi(B")
("guf" "$(Czjzkzlzm(B")
("gua" "$(Czn(B")
("guq" "$(Czozpzqzrzsztzuzvzwzxzyzz(B")
("gud" "$(Cz{z|z}z~{!{"{#{${%{&{'{({){*{+{,{-{.{/{0(B")
("gP" "$(C{1{2{3{4{5{6{7{8{9(B")
("gh" "$(C{:{;{<{={>{?{@{A{B{C{D{E{F{G{H{I{J{K{L{M{N{O{P{Q{R{S{T{U{V{W{X{Y{Z{[{\{]{^{_{`{a{b(B")
("ghr" "$(C{c{d{e(B")
("ghs" "$(C{f{g{h{i{j{k(B")
("ghf" "$(C{l{m{n(B")
("ghd" "$(C{o{p{q{r{s{t{u{v{w{x(B")
("ghk" "$(C{y{z{{{|{}{~|!|"|#|$|%|&|'|((B")
("ghkr" "$(C|)|*|+|,|-|.(B")
("ghks" "$(C|/|0|1|2|3|4|5|6|7|8|9|:|;|<|=|>|?(B")
("ghkf" "$(C|@|A|B|C|D(B")
("ghkd" "$(C|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z|[|\(B")
("ghl" "$(C|]|^|_|`|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p(B")
("ghlr" "$(C|q|r(B")
("ghld" "$(C|s|t|u(B")
("gy" "$(C|v|w|x|y|z|{|||}|~}!}"}#}$(B")
("gn" "$(C}%}&}'}(})}*}+},}-}.}/}0}1(B")
("gns" "$(C}2}3}4}5}6}7}8}9}:};(B")
("gnd" "$(C}<(B")
("gnjs" "$(C}=}>}?}@(B")
("gnp" "$(C}A}B}C(B")
("gnl" "$(C}D}E}F}G}H}I}J}K(B")
("gb" "$(C}L}M}N}O}P(B")
("gbf" "$(C}Q}R}S(B")
("gbd" "$(C}T}U}V}W}X(B")
("gmr" "$(C}Y(B")
("gms" "$(C}Z}[}\}](B")
("gmf" "$(C}^}_}`}a(B")
("gma" "$(C}b}c}d(B")
("gmq" "$(C}e}f}g}h(B")
("gmd" "$(C}i(B")
("gml" "$(C}j}k}l}m}n}o}p}q}r}s}t}u}v}w}x}y}z}{}|}}(B")
("glf" "$(C}~(B"))
("rk" "伽佳假價加可呵哥嘉嫁家暇架枷柯歌珂痂稼苛茄街袈訶賈跏軻迦駕")
("rkr" "刻却各恪慤殼珏脚覺角閣")
("rks" "侃刊墾奸姦干幹懇揀杆柬桿澗癎看磵稈竿簡肝艮艱諫間")
("rkf" "乫喝曷渴碣竭葛褐蝎鞨")
("rka" "勘坎堪嵌感憾戡敢柑橄減甘疳監瞰紺邯鑑鑒龕")
("rkq" "匣岬甲胛鉀閘")
("rkd" "剛堈姜岡崗康强彊慷江畺疆糠絳綱羌腔舡薑襁講鋼降鱇")
("ro" "介价個凱塏愷愾慨改槪漑疥皆盖箇芥蓋豈鎧開")
("ror" "喀客")
("rod" "坑更粳羹")
("rir" "醵")
("rj" "倨去居巨拒据據擧渠炬祛距踞車遽鉅鋸")
("rjs" "乾件健巾建愆楗腱虔蹇鍵騫")
("rjf" "乞傑杰桀")
("rja" "儉劍劒檢瞼鈐黔")
("rjq" "劫怯迲")
("rp" "偈憩揭")
("rur" "擊格檄激膈覡隔")
("rus" "堅牽犬甄絹繭肩見譴遣鵑")
("ruf" "抉決潔結缺訣")
("rua" "兼慊箝謙鉗鎌")
("rud" "京俓倞傾儆勁勍卿坰境庚徑慶憬擎敬景暻更梗涇炅烱璟璥瓊痙硬磬竟競絅經耕耿脛莖警輕逕鏡頃頸驚鯨")
("rP" "係啓堺契季屆悸戒桂械棨溪界癸磎稽系繫繼計誡谿階鷄")
("rh" "古叩告呱固姑孤尻庫拷攷故敲暠枯槁沽痼皐睾稿羔考股膏苦苽菰藁蠱袴誥賈辜錮雇顧高鼓")
("rhr" "哭斛曲梏穀谷鵠")
("rhs" "困坤崑昆梱棍滾琨袞鯤")
("rhf" "汨滑骨")
("rhd" "供公共功孔工恐恭拱控攻珙空蚣貢鞏")
("rhw" "串")
("rhk" "寡戈果瓜科菓誇課跨過鍋顆")
("rhkr" "廓槨藿郭")
("rhks" "串冠官寬慣棺款灌琯瓘管罐菅觀貫關館")
("rhkf" "刮恝括适")
("rhkd" "侊光匡壙廣曠洸炚狂珖筐胱鑛")
("rho" "卦掛罫")
("rhl" "乖傀塊壞怪愧拐槐魁")
("rhld" "宏紘肱轟")
("ry" "交僑咬喬嬌嶠巧攪敎校橋狡皎矯絞翹膠蕎蛟較轎郊餃驕鮫")
("rn" "丘久九仇俱具勾區口句咎嘔坵垢寇嶇廐懼拘救枸柩構歐毆毬求溝灸狗玖球瞿矩究絿耉臼舅舊苟衢謳購軀逑邱鉤銶駒驅鳩鷗龜")
("rnr" "國局菊鞠鞫麴")
("rns" "君窘群裙軍郡")
("rnf" "堀屈掘窟")
("rnd" "宮弓穹窮芎躬")
("rnjs" "倦券勸卷圈拳捲權淃眷")
("rnjf" "厥獗蕨蹶闕")
("rnp" "机櫃潰詭軌饋")
("rnl" "句晷歸貴鬼龜")
("rb" "叫圭奎揆槻珪硅窺竅糾葵規赳逵閨")
("rbs" "勻均畇筠菌鈞龜")
("rbf" "橘")
("rmr" "克剋劇戟棘極隙")
("rms" "僅劤勤懃斤根槿瑾筋芹菫覲謹近饉")
("rmf" "契")
("rma" "今妗擒昑檎琴禁禽芩衾衿襟金錦")
("rmq" "伋及急扱汲級給")
("rmd" "亘兢矜肯")
("rl" "企伎其冀嗜器圻基埼夔奇妓寄岐崎己幾忌技旗旣朞期杞棋棄機欺氣汽沂淇玘琦琪璂璣畸畿碁磯祁祇祈祺箕紀綺羈耆耭肌記譏豈起錡錤飢饑騎騏驥麒")
("rls" "緊")
("rlf" "佶吉拮桔")
("rla" "金")
("Rlr" "喫")
("sk" "儺喇奈娜懦懶拏拿癩羅蘿螺裸邏那")
("skr" "樂洛烙珞落諾酪駱")
("sks" "亂卵暖欄煖爛蘭難鸞")
("skf" "捏捺")
("ska" "南嵐枏楠湳濫男藍襤")
("skq" "拉納臘蠟衲")
("skd" "囊娘廊朗浪狼郎")
("so" "乃來內奈柰耐")
("sod" "冷")
("su" "女")
("sus" "年撚秊")
("sua" "念恬拈捻")
("sud" "寧寗")
("sh" "努勞奴弩怒擄櫓爐瑙盧老蘆虜路露駑魯鷺")
("shr" "碌祿綠菉錄鹿")
("shs" "論")
("shd" "壟弄濃籠聾膿農")
("shl" "惱牢磊腦賂雷")
("sy" "尿")
("sn" "壘屢樓淚漏累縷陋")
("sns" "嫩")
("snf" "訥")
("sb" "杻紐")
("smr" "勒肋")
("sma" "凜")
("smd" "凌稜綾能菱陵")
("sl" "尼泥")
("slr" "匿溺")
("ek" "多茶")
("eks" "丹亶但單團壇彖斷旦檀段湍短端簞緞蛋袒鄲鍛")
("ekf" "撻澾獺疸達")
("eka" "啖坍憺擔曇淡湛潭澹痰聃膽蕁覃談譚錟")
("ekq" "沓畓答踏遝")
("ekd" "唐堂塘幢戇撞棠當糖螳黨")
("eo" "代垈坮大對岱帶待戴擡玳臺袋貸隊黛")
("eor" "宅")
("ejr" "德悳")
("eh" "倒刀到圖堵塗導屠島嶋度徒悼挑掉搗桃棹櫂淘渡滔濤燾盜睹禱稻萄覩賭跳蹈逃途道都鍍陶韜")
("ehr" "毒瀆牘犢獨督禿篤纛讀")
("ehs" "墩惇敦旽暾沌焞燉豚頓")
("ehf" "乭突")
("ehd" "仝冬凍動同憧東桐棟洞潼疼瞳童胴董銅")
("en" "兜斗杜枓痘竇荳讀豆逗頭")
("ens" "屯臀芚遁遯鈍")
("emr" "得")
("emd" "嶝橙燈登等藤謄鄧騰")
("fk" "喇懶拏癩羅蘿螺裸邏")
("fkr" "樂洛烙珞絡落諾酪駱")
("fks" "丹亂卵欄欒瀾爛蘭鸞")
("fkf" "剌辣")
("fka" "嵐擥攬欖濫籃纜藍襤覽")
("fkq" "拉臘蠟")
("fkd" "廊朗浪狼琅瑯螂郞")
("fo" "來崍徠萊")
("fod" "冷")
("fir" "掠略")
("fid" "亮倆兩凉梁樑粮粱糧良諒輛量")
("fu" "侶儷勵呂廬慮戾旅櫚濾礪藜蠣閭驢驪麗黎")
("fur" "力曆歷瀝礫轢靂")
("fus" "憐戀攣漣煉璉練聯蓮輦連鍊")
("fuf" "冽列劣洌烈裂")
("fua" "廉斂殮濂簾")
("fuq" "獵")
("fud" "令伶囹寧岺嶺怜玲笭羚翎聆逞鈴零靈領齡")
("fP" "例澧禮醴隷")
("fh" "勞怒撈擄櫓潞瀘爐盧老蘆虜路輅露魯鷺鹵")
("fhr" "碌祿綠菉錄鹿麓")
("fhs" "論")
("fhd" "壟弄朧瀧瓏籠聾")
("fhl" "儡瀨牢磊賂賚賴雷")
("fy" "了僚寮廖料燎療瞭聊蓼遼鬧")
("fyd" "龍")
("fn" "壘婁屢樓淚漏瘻累縷蔞褸鏤陋")
("fb" "劉旒柳榴流溜瀏琉瑠留瘤硫謬類")
("fbr" "六戮陸")
("fbs" "侖倫崙淪綸輪")
("fbf" "律慄栗率")
("fbd" "隆")
("fmr" "勒肋")
("fma" "凜")
("fmd" "凌楞稜綾菱陵")
("fl" "俚利厘吏唎履悧李梨浬犁狸理璃異痢籬罹羸莉裏裡里釐離鯉")
("fls" "吝潾燐璘藺躪隣鱗麟")
("fla" "林淋琳臨霖")
("flq" "砬立笠粒")
("ak" "摩瑪痲碼磨馬魔麻")
("akr" "寞幕漠膜莫邈")
("aks" "万卍娩巒彎慢挽晩曼滿漫灣瞞萬蔓蠻輓饅鰻")
("akf" "唜抹末沫茉襪靺")
("akd" "亡妄忘忙望網罔芒茫莽輞邙")
("ao" "埋妹媒寐昧枚梅每煤罵買賣邁魅")
("aor" "脈貊陌驀麥")
("aod" "孟氓猛盲盟萌")
("aur" "冪覓")
("aus" "免冕勉棉沔眄眠綿緬面麵")
("auf" "滅蔑")
("aud" "冥名命明暝椧溟皿瞑茗蓂螟酩銘鳴")
("aP" "袂")
("ah" "侮冒募姆帽慕摸摹暮某模母毛牟牡瑁眸矛耗芼茅謀謨貌")
("ahr" "木沐牧目睦穆鶩")
("ahf" "歿沒")
("ahd" "夢朦蒙")
("ay" "卯墓妙廟描昴杳渺猫竗苗錨")
("an" "務巫憮懋戊拇撫无楙武毋無珷畝繆舞茂蕪誣貿霧鵡")
("anr" "墨默")
("ans" "們刎吻問文汶紊紋聞蚊門雯")
("anf" "勿沕物")
("al" "味媚尾嵋彌微未梶楣渼湄眉米美薇謎迷靡黴")
("als" "岷悶愍憫敏旻旼民泯玟珉緡閔")
("alf" "密蜜謐")
("qkr" "剝博拍搏撲朴樸泊珀璞箔粕縛膊舶薄迫雹駁")
("qks" "伴半反叛拌搬攀斑槃泮潘班畔瘢盤盼磐磻礬絆般蟠返頒飯")
("qkf" "勃拔撥渤潑發跋醱鉢髮魃")
("qkd" "倣傍坊妨尨幇彷房放方旁昉枋榜滂磅紡肪膀舫芳蒡蚌訪謗邦防龐")
("qo" "倍俳北培徘拜排杯湃焙盃背胚裴裵褙賠輩配陪")
("qor" "伯佰帛柏栢白百魄")
("qjs" "幡樊煩燔番磻繁蕃藩飜")
("qjf" "伐筏罰閥")
("qja" "凡帆梵氾汎泛犯範范")
("qjq" "法琺")
("qur" "僻劈壁擘檗璧癖碧蘗闢霹")
("qus" "便卞弁變辨辯邊")
("quf" "別瞥鱉鼈")
("qud" "丙倂兵屛幷昞昺柄棅炳甁病秉竝輧餠騈")
("qh" "保堡報寶普步洑湺潽珤甫菩補褓譜輔")
("qhr" "伏僕匐卜宓復服福腹茯蔔複覆輹輻馥鰒")
("qhs" "本")
("qhf" "乶")
("qhd" "俸奉封峯峰捧棒烽熢琫縫蓬蜂逢鋒鳳")
("qn" "不付俯傅剖副否咐埠夫婦孚孵富府復扶敷斧浮溥父符簿缶腐腑膚艀芙莩訃負賦賻赴趺部釜阜附駙鳧")
("qnr" "北")
("qns" "分吩噴墳奔奮忿憤扮昐汾焚盆粉糞紛芬賁雰")
("qnf" "不佛弗彿拂")
("qnd" "崩朋棚硼繃鵬")
("ql" "丕備匕匪卑妃婢庇悲憊扉批斐枇榧比毖毗毘沸泌琵痺砒碑秕秘粃緋翡肥脾臂菲蜚裨誹譬費鄙非飛鼻")
("qls" "嚬嬪彬斌檳殯浜濱瀕牝玭貧賓頻")
("qld" "憑氷聘騁")
("tk" "乍事些仕伺似使俟僿史司唆嗣四士奢娑寫寺射巳師徙思捨斜斯柶査梭死沙泗渣瀉獅砂社祀祠私篩紗絲肆舍莎蓑蛇裟詐詞謝賜赦辭邪飼駟麝")
("tkr" "削數朔索")
("tks" "傘刪山散汕珊産疝算蒜酸霰")
("tkf" "乷撒殺煞薩")
("tka" "三參杉森渗芟蔘衫")
("tkq" "揷澁鈒颯")
("tkd" "上傷像償商喪嘗孀尙峠常床庠廂想桑橡湘爽牀狀相祥箱翔裳觴詳象賞霜")
("to" "塞璽賽")
("tor" "嗇塞穡索色")
("tod" "牲生甥省笙")
("tj" "墅壻嶼序庶徐恕抒捿敍暑曙書栖棲犀瑞筮絮緖署胥舒薯西誓逝鋤黍鼠")
("tjr" "夕奭席惜昔晳析汐淅潟石碩蓆釋錫")
("tjs" "仙僊先善嬋宣扇敾旋渲煽琁瑄璇璿癬禪線繕羨腺膳船蘚蟬詵跣選銑鐥饍鮮")
("tjf" "卨屑楔泄洩渫舌薛褻設說雪齧")
("tja" "剡暹殲纖蟾贍閃陝")
("tjq" "攝涉燮葉")
("tjd" "城姓宬性惺成星晟猩珹盛省筬聖聲腥誠醒")
("tp" "世勢歲洗稅笹細說貰")
("th" "召嘯塑宵小少巢所掃搔昭梳沼消溯瀟炤燒甦疏疎瘙笑篠簫素紹蔬蕭蘇訴逍遡邵銷韶騷")
("thr" "俗屬束涑粟續謖贖速")
("ths" "孫巽損蓀遜飡")
("thf" "率")
("thd" "宋悚松淞訟誦送頌")
("tho" "刷殺灑碎鎖")
("thl" "衰釗")
("tn" "修受嗽囚垂壽嫂守岫峀帥愁戍手授搜收數樹殊水洙漱燧狩獸琇璲瘦睡秀穗竪粹綏綬繡羞脩茱蒐蓚藪袖誰讐輸遂邃酬銖銹隋隧隨雖需須首髓鬚")
("tnr" "叔塾夙孰宿淑潚熟琡璹肅菽")
("tns" "巡徇循恂旬栒楯橓殉洵淳珣盾瞬筍純脣舜荀蓴蕣詢諄醇錞順馴")
("tnf" "戌術述鉥")
("tnd" "崇崧嵩")
("tmf" "瑟膝蝨")
("tmq" "濕拾習褶襲")
("tmd" "丞乘僧勝升承昇繩蠅陞")
("tl" "侍匙嘶始媤尸屎屍市弑恃施是時枾柴猜矢示翅蒔蓍視試詩諡豕豺")
("tlr" "埴寔式息拭植殖湜熄篒蝕識軾食飾")
("tls" "伸侁信呻娠宸愼新晨燼申神紳腎臣莘薪藎蜃訊身辛辰迅")
("tlf" "失室實悉")
("tla" "審尋心沁沈深瀋甚芯諶")
("tlq" "什十拾")
("Tkd" "雙")
("Tl" "氏")
("dk" "亞俄兒啞娥峨我牙芽莪蛾衙訝阿雅餓鴉鵝")
("dkr" "堊岳嶽幄惡愕握樂渥鄂鍔顎鰐齷")
("dks" "安岸按晏案眼雁鞍顔鮟")
("dkf" "斡謁軋閼")
("dka" "唵岩巖庵暗癌菴闇")
("dkq" "壓押狎鴨")
("dkd" "仰央怏昻殃秧鴦")
("do" "厓哀埃崖愛曖涯碍艾隘靄")
("dor" "厄扼掖液縊腋額")
("dod" "櫻罌鶯鸚")
("di" "也倻冶夜惹揶椰爺耶若野")
("dir" "弱掠略約若葯蒻藥躍")
("did" "亮佯兩凉壤孃恙揚攘敭暘梁楊樣洋瀁煬痒瘍禳穰糧羊良襄諒讓釀陽量養")
("dj" "圄御於漁瘀禦語馭魚齬")
("djr" "億憶抑檍臆")
("djs" "偃堰彦焉言諺")
("djf" "孼蘖")
("dja" "俺儼嚴奄掩淹")
("djq" "嶪業")
("dps" "円")
("du" "予余勵呂女如廬旅歟汝濾璵礖礪與艅茹輿轝閭餘驪麗黎")
("dur" "亦力域役易曆歷疫繹譯轢逆驛")
("dus" "嚥堧姸娟宴年延憐戀捐挻撚椽沇沿涎涓淵演漣烟然煙煉燃燕璉硏硯秊筵緣練縯聯衍軟輦蓮連鉛鍊鳶")
("duf" "列劣咽悅涅烈熱裂說閱")
("dua" "厭廉念捻染殮炎焰琰艶苒簾閻髥鹽")
("duq" "曄獵燁葉")
("dud" "令囹塋寧嶺嶸影怜映暎楹榮永泳渶潁濚瀛瀯煐營獰玲瑛瑩瓔盈穎纓羚聆英詠迎鈴鍈零霙靈領")
("dP" "乂倪例刈叡曳汭濊猊睿穢芮藝蘂禮裔詣譽豫醴銳隸霓預")
("dh" "五伍俉傲午吾吳嗚塢墺奧娛寤悟惡懊敖旿晤梧汚澳烏熬獒筽蜈誤鰲鼇")
("dhr" "屋沃獄玉鈺")
("dhs" "溫瑥瘟穩縕蘊")
("dhf" "兀")
("dhd" "壅擁瓮甕癰翁邕雍饔")
("dhk" "渦瓦窩窪臥蛙蝸訛")
("dhks" "婉完宛梡椀浣玩琓琬碗緩翫脘腕莞豌阮頑")
("dhkf" "曰")
("dhkd" "往旺枉汪王")
("dho" "倭娃歪矮")
("dhl" "外嵬巍猥畏")
("dy" "了僚僥凹堯夭妖姚寥寮尿嶢拗搖撓擾料曜樂橈燎燿瑤療窈窯繇繞耀腰蓼蟯要謠遙遼邀饒")
("dyr" "慾欲浴縟褥辱")
("dyd" "俑傭冗勇埇墉容庸慂榕涌湧溶熔瑢用甬聳茸蓉踊鎔鏞龍")
("dn" "于佑偶優又友右宇寓尤愚憂旴牛玗瑀盂祐禑禹紆羽芋藕虞迂遇郵釪隅雨雩")
("dnr" "勖彧旭昱栯煜稶郁頊")
("dns" "云暈橒殞澐熉耘芸蕓運隕雲韻")
("dnf" "蔚鬱亐")
("dnd" "熊雄")
("dnjs" "元原員圓園垣媛嫄寃怨愿援沅洹湲源爰猿瑗苑袁轅遠阮院願鴛")
("dnjf" "月越鉞")
("dnl" "位偉僞危圍委威尉慰暐渭爲瑋緯胃萎葦蔿蝟衛褘謂違韋魏")
("db" "乳侑儒兪劉唯喩孺宥幼幽庾悠惟愈愉揄攸有杻柔柚柳楡楢油洧流游溜濡猶猷琉瑜由留癒硫紐維臾萸裕誘諛諭踰蹂遊逾遺酉釉鍮類")
("dbr" "六堉戮毓肉育陸")
("dbs" "倫允奫尹崙淪潤玧胤贇輪鈗閏")
("dbf" "律慄栗率聿")
("dbd" "戎瀜絨融隆")
("dms" "垠恩慇殷誾銀隱")
("dmf" "乙")
("dma" "吟淫蔭陰音飮")
("dmq" "揖泣邑")
("dmd" "凝應膺鷹")
("dml" "依倚儀宜意懿擬椅毅疑矣義艤薏蟻衣誼議醫")
("dl" "二以伊利吏夷姨履已弛彛怡易李梨泥爾珥理異痍痢移罹而耳肄苡荑裏裡貽貳邇里離飴餌")
("dlr" "匿溺瀷益翊翌翼謚")
("dls" "人仁刃印吝咽因姻寅引忍湮燐璘絪茵藺蚓認隣靭靷鱗麟")
("dlf" "一佚佾壹日溢逸鎰馹")
("dla" "任壬妊姙恁林淋稔臨荏賃")
("dlq" "入卄立笠粒")
("dld" "仍剩孕芿")
("wk" "仔刺咨姉姿子字孜恣慈滋炙煮玆瓷疵磁紫者自茨蔗藉諮資雌")
("wkr" "作勺嚼斫昨灼炸爵綽芍酌雀鵲")
("wks" "孱棧殘潺盞")
("wka" "岑暫潛箴簪蠶")
("wkq" "雜")
("wkd" "丈仗匠場墻壯奬將帳庄張掌暲杖樟檣欌漿牆狀獐璋章粧腸臟臧莊葬蔣薔藏裝贓醬長障")
("wo" "再哉在宰才材栽梓渽滓災縡裁財載齋齎")
("wod" "爭箏諍錚")
("wj" "佇低儲咀姐底抵杵楮樗沮渚狙猪疽箸紵苧菹著藷詛貯躇這邸雎齟")
("wjr" "勣吊嫡寂摘敵滴狄炙的積笛籍績翟荻謫賊赤跡蹟迪迹適鏑")
("wjs" "佃佺傳全典前剪塡塼奠專展廛悛戰栓殿氈澱煎琠田甸畑癲筌箋箭篆纏詮輾轉鈿銓錢鐫電顚顫餞")
("wjf" "切截折浙癤竊節絶")
("wja" "占岾店漸点粘霑鮎點")
("wjq" "接摺蝶")
("wjd" "丁井亭停偵呈姃定幀庭廷征情挺政整旌晶晸柾楨檉正汀淀淨渟湞瀞炡玎珽町睛碇禎程穽精綎艇訂諪貞鄭酊釘鉦鋌錠霆靖靜頂鼎")
("wp" "制劑啼堤帝弟悌提梯濟祭第臍薺製諸蹄醍除際霽題齊")
("wh" "俎兆凋助嘲弔彫措操早晁曺曹朝條棗槽漕潮照燥爪璪眺祖祚租稠窕粗糟組繰肇藻蚤詔調趙躁造遭釣阻雕鳥")
("whr" "族簇足鏃")
("whs" "存尊")
("whf" "卒拙猝")
("whd" "倧宗從悰慫棕淙琮種終綜縱腫踪踵鍾鐘")
("whk" "佐坐左座挫")
("whl" "罪")
("wn" "主住侏做姝胄呪周嗾奏宙州廚晝朱柱株注洲湊澍炷珠疇籌紂紬綢舟蛛註誅走躊輳週酎酒鑄駐")
("wnr" "竹粥")
("wns" "俊儁准埈寯峻晙樽浚準濬焌畯竣蠢逡遵雋駿")
("wnf" "茁")
("wnd" "中仲衆重")
("wmr" "卽")
("wmf" "櫛")
("wmq" "楫汁葺")
("wmd" "增憎曾拯烝甑症繒蒸證贈")
("wl" "之只咫地址志持指摯支旨智枝枳止池沚漬知砥祉祗紙肢脂至芝芷蜘誌識贄趾遲")
("wlr" "直稙稷織職")
("wls" "唇嗔塵振搢晉晋桭榛殄津溱珍瑨璡畛疹盡眞瞋秦縉縝臻蔯袗診賑軫辰進鎭陣陳震")
("wlf" "侄叱姪嫉帙桎瓆疾秩窒膣蛭質跌迭")
("wla" "斟朕")
("wlq" "什執潗緝輯鏶集")
("wld" "徵懲澄")
("ck" "且侘借叉嗟嵯差次此磋箚茶蹉車遮")
("ckr" "捉搾着窄錯鑿齪")
("cks" "撰澯燦璨瓚竄簒纂粲纘讚贊鑽餐饌")
("ckf" "刹察擦札紮")
("cka" "僭參塹慘慙懺斬站讒讖")
("ckd" "倉倡創唱娼廠彰愴敞昌昶暢槍滄漲猖瘡窓脹艙菖蒼")
("co" "債埰寀寨彩採砦綵菜蔡采釵")
("cor" "冊柵策責")
("cj" "凄妻悽處")
("cjr" "倜刺剔尺慽戚拓擲斥滌瘠脊蹠陟隻")
("cjs" "仟千喘天川擅泉淺玔穿舛薦賤踐遷釧闡阡韆")
("cjf" "凸哲喆徹撤澈綴輟轍鐵")
("cja" "僉尖沾添甛瞻簽籤詹諂")
("cjq" "堞妾帖捷牒疊睫諜貼輒")
("cjd" "廳晴淸聽菁請靑鯖")
("cp" "切剃替涕滯締諦逮遞體")
("ch" "初剿哨憔抄招梢椒楚樵炒焦硝礁礎秒稍肖艸苕草蕉貂超酢醋醮")
("chr" "促囑燭矗蜀觸")
("chs" "寸忖村邨")
("chd" "叢塚寵悤憁摠總聰蔥銃")
("chkf" "撮")
("chl" "催崔最")
("cn" "墜抽推椎楸樞湫皺秋芻萩諏趨追鄒酋醜錐錘鎚雛騶鰍")
("cnr" "丑畜祝竺筑築縮蓄蹙蹴軸逐")
("cns" "春椿瑃")
("cnf" "出朮黜")
("cnd" "充忠沖蟲衝衷")
("cnp" "悴膵萃贅")
("cnl" "取吹嘴娶就炊翠聚脆臭趣醉驟鷲")
("cmr" "側仄厠惻測")
("cmd" "層")
("cl" "侈値嗤峙幟恥梔治淄熾痔痴癡稚穉緇緻置致蚩輜雉馳齒")
("clr" "則勅飭")
("cls" "親")
("clf" "七柒漆")
("cla" "侵寢枕沈浸琛砧針鍼")
("clq" "蟄")
("cld" "秤稱")
("zho" "快")
("xk" "他咤唾墮妥惰打拖朶楕舵陀馱駝")
("xkr" "倬卓啄坼度托拓擢晫柝濁濯琢琸託鐸")
("xks" "呑嘆坦彈憚歎灘炭綻誕")
("xkf" "奪脫")
("xka" "探眈耽貪")
("xkq" "塔搭榻")
("xkd" "宕帑湯糖蕩")
("xo" "兌台太怠態殆汰泰笞胎苔跆邰颱")
("xor" "宅擇澤")
("xod" "撑")
("xj" "攄")
("xh" "兎吐土討")
("xhd" "慟桶洞痛筒統通")
("xhl" "堆槌腿褪退頹")
("xn" "偸套妬投透鬪")
("xmr" "慝特")
("xma" "闖")
("vk" "坡婆巴把播擺杷波派爬琶破罷芭跛頗")
("vks" "判坂板版瓣販辦鈑阪")
("vkf" "八叭捌")
("vo" "佩唄悖敗沛浿牌狽稗覇貝")
("vod" "彭澎烹膨")
("vir" "愎")
("vus" "便偏扁片篇編翩遍鞭騙")
("vua" "貶")
("vud" "坪平枰萍評")
("vP" "吠嬖幣廢弊斃肺蔽閉陛")
("vh" "佈包匍匏咆哺圃布怖抛抱捕暴泡浦疱砲胞脯苞葡蒲袍褒逋鋪飽鮑")
("vhr" "幅暴曝瀑爆輻")
("vy" "俵剽彪慓杓標漂瓢票表豹飇飄驃")
("vna" "品稟")
("vnd" "楓諷豊風馮")
("vl" "彼披疲皮被避陂")
("vlf" "匹弼必泌珌畢疋筆苾馝")
("vlq" "乏逼")
("gk" "下何厦夏廈昰河瑕荷蝦賀遐霞鰕")
("gkr" "壑學虐謔鶴")
("gks" "寒恨悍旱汗漢澣瀚罕翰閑閒限韓")
("gkf" "割轄")
("gka" "函含咸啣喊檻涵緘艦銜陷鹹")
("gkq" "合哈盒蛤閤闔陜")
("gkd" "亢伉姮嫦巷恒抗杭桁沆港缸肛航行降項")
("go" "亥偕咳垓奚孩害懈楷海瀣蟹解該諧邂駭骸")
("gor" "劾核")
("god" "倖幸杏荇行")
("gid" "享向嚮珦鄕響餉饗香")
("gj" "噓墟虛許")
("gjs" "憲櫶獻軒")
("gjf" "歇")
("gja" "險驗")
("gur" "奕爀赫革")
("gus" "俔峴弦懸晛泫炫玄玹現眩睍絃絢縣舷衒見賢鉉顯")
("guf" "孑穴血頁")
("gua" "嫌")
("guq" "俠協夾峽挾浹狹脅脇莢鋏頰")
("gud" "亨兄刑型形泂滎瀅灐炯熒珩瑩荊螢衡逈邢鎣馨")
("gP" "兮彗惠慧暳蕙蹊醯鞋")
("gh" "乎互呼壕壺好岵弧戶扈昊晧毫浩淏湖滸澔濠濩灝狐琥瑚瓠皓祜糊縞胡芦葫蒿虎號蝴護豪鎬頀顥")
("ghr" "惑或酷")
("ghs" "婚昏混渾琿魂")
("ghf" "忽惚笏")
("ghd" "哄弘汞泓洪烘紅虹訌鴻")
("ghk" "化和嬅樺火畵禍禾花華話譁貨靴")
("ghkr" "廓擴攫確碻穫")
("ghks" "丸喚奐宦幻患換歡晥桓渙煥環紈還驩鰥")
("ghkf" "活滑猾豁闊")
("ghkd" "凰幌徨恍惶愰慌晃晄榥況湟滉潢煌璜皇篁簧荒蝗遑隍黃")
("ghl" "匯回廻徊恢悔懷晦會檜淮澮灰獪繪膾茴蛔誨賄")
("ghlr" "劃獲")
("ghld" "宖橫鐄")
("gy" "哮嚆孝效斅曉梟涍淆爻肴酵驍")
("gn" "侯候厚后吼喉嗅帿後朽煦珝逅")
("gns" "勛勳塤壎焄熏燻薰訓暈")
("gnd" "薨")
("gnjs" "喧暄煊萱")
("gnp" "卉喙毁")
("gnl" "彙徽揮暉煇諱輝麾")
("gb" "休携烋畦虧")
("gbf" "恤譎鷸")
("gbd" "兇凶匈洶胸")
("gmr" "黑")
("gms" "昕欣炘痕")
("gmf" "吃屹紇訖")
("gma" "欠欽歆")
("gmq" "吸恰洽翕")
("gmd" "興")
("gml" "僖凞喜噫囍姬嬉希憙憘戱晞曦熙熹熺犧禧稀羲")
("glf" "詰"))
;;; hanja.el ends here

1156
leim/quail/hanja3.el
View file

File diff suppressed because it is too large Load diff

1152
leim/quail/hebrew.el
View file

File diff suppressed because it is too large Load diff

160
leim/quail/lao.el
View file

@ -1,4 +1,4 @@
;;; lao.el --- Quail package for inputting Lao characters -*-coding: iso-2022-7bit;-*-
;;; lao.el --- Quail package for inputting Lao characters -*-coding: utf-8;-*-
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;; 2006, 2007, 2008, 2009, 2010, 2011
@ -48,104 +48,104 @@
("#" . "3")
("$" . "4")
("&" . "5")
("%" . "(1l(B")
("'" . "(1'(B")
("%" . "໌")
("'" . "ງ")
("(" . "7")
(")" . "8")
("*" . "6")
("+" . ["(1mh(B"])
("," . "(1A(B")
("-" . "(1*(B")
("." . "(1c(B")
("/" . "(1=(B")
("0" . "(1"(B")
("1" . "(1B(B")
("2" . "(1?(B")
("3" . "(1b(B")
("4" . "(16(B")
("5" . "(1X(B")
("6" . "(1Y(B")
("7" . "(1$(B")
("8" . "(15(B")
("9" . "(1((B")
("+" . ["ໍ່"])
("," . "ມ")
("-" . "ຊ")
("." . "ໃ")
("/" . "ຝ")
("0" . "ຂ")
("1" . "ຢ")
("2" . "ຟ")
("3" . "ໂ")
("4" . "ຖ")
("5" . "ຸ")
("6" . "ູ")
("7" . "ຄ")
("8" . "ຕ")
("9" . "ຈ")
(":" . "%")
(";" . "(1G(B")
("<" . "(1}(B")
("=" . "(1m(B")
(";" . "ວ")
("<" . "ໝ")
("=" . "ໍ")
(">" . "$")
("?" . ")")
("@" . "2")
("A" . ["(1Qi(B"])
("B" . ["(1Vi(B"])
("C" . "(1O(B")
("A" . ["ັ້"])
("B" . ["ຶ້"])
("C" . "ຯ")
("D" . ".")
("E" . ["(1Si(B"])
("E" . ["ຳ້"])
("F" . ",")
("G" . ":")
("H" . "(1j(B")
("I" . "(1N(B")
("J" . "(1k(B")
("H" . "໊")
("I" . "ຮ")
("J" . "໋")
("K" . "!")
("L" . "?")
("M" . "(1f(B")
("N" . ["(1Wi(B"])
("O" . "(1|(B")
("P" . "(1](B")
("Q" . ["(1[i(B"])
("M" . "ໆ")
("N" . ["ື້"])
("O" . "ໜ")
("P" . "ຽ")
("Q" . ["ົ້"])
("R" . "_")
("S" . ";")
("T" . "+")
("U" . ["(1Ui(B"])
("U" . ["ີ້"])
("V" . "x")
("W" . "0")
("X" . "(")
("Y" . ["(1Ti(B"])
("Y" . ["ິ້"])
("Z" . "\"")
("[" . "(1:(B")
("]" . "(1E(B")
("^" . "(1\(B")
("[" . "ບ")
("]" . "ລ")
("^" . "ຼ")
("_" . "9")
("`" . "(1'(B")
("a" . "(1Q(B")
("b" . "(1V(B")
("c" . "(1a(B")
("d" . "(1!(B")
("e" . "(1S(B")
("f" . "(14(B")
("g" . "(1`(B")
("h" . "(1i(B")
("i" . "(1C(B")
("j" . "(1h(B")
("k" . "(1R(B")
("l" . "(1J(B")
("m" . "(17(B")
("n" . "(1W(B")
("o" . "(19(B")
("p" . "(1-(B")
("q" . "(1[(B")
("r" . "(1>(B")
("s" . "(1K(B")
("t" . "(1P(B")
("u" . "(1U(B")
("v" . "(1M(B")
("w" . "(1d(B")
("x" . "(1;(B")
("y" . "(1T(B")
("z" . "(1<(B")
("`" . "ງ")
("a" . "ັ")
("b" . "ຶ")
("c" . "ແ")
("d" . "ກ")
("e" . "ຳ")
("f" . "ດ")
("g" . "ເ")
("h" . "້")
("i" . "ຣ")
("j" . "່")
("k" . "າ")
("l" . "ສ")
("m" . "ທ")
("n" . "ື")
("o" . "ນ")
("p" . "ຍ")
("q" . "ົ")
("r" . "ພ")
("s" . "ຫ")
("t" . "ະ")
("u" . "ີ")
("v" . "ອ")
("w" . "ໄ")
("x" . "ປ")
("y" . "ິ")
("z" . "ຜ")
("{" . "-")
("|" . ["(1K\(B"])
("|" . ["ຫຼ"])
("}" . "/")
("~" . "(1l(B")
("\\0" . "(1p(B")
("\\1" . "(1q(B")
("\\2" . "(1r(B")
("\\3" . "(1s(B")
("\\4" . "(1t(B")
("\\5" . "(1u(B")
("\\6" . "(1v(B")
("\\7" . "(1w(B")
("\\8" . "(1x(B")
("\\9" . "(1y(B")
("~" . "໌")
("\\0" . "໐")
("\\1" . "໑")
("\\2" . "໒")
("\\3" . "໓")
("\\4" . "໔")
("\\5" . "໕")
("\\6" . "໖")
("\\7" . "໗")
("\\8" . "໘")
("\\9" . "໙")
)
"Alist of key sequences vs the corresponding Lao string to input.
This variable is for the input method \"lao\".
@ -155,7 +155,7 @@ you need to re-load it to properly re-initialize related alists.")
;; Temporary variable to initialize lao-consonant-key-alist, etc.
(defconst lao-key-alist-vector
(let ((tail lao-key-alist)
consonant-key-alist semivowel-key-alist vowel-key-alist
consonant-key-alist semivowel-key-alist vowel-key-alist
voweltone-key-alist tone-key-alist other-key-alist
elt phonetic-type)
(while tail
@ -178,7 +178,7 @@ you need to re-load it to properly re-initialize related alists.")
(setq semivowel-key-alist (cons elt semivowel-key-alist)))
(t
(setq other-key-alist (cons elt other-key-alist)))))
(vector consonant-key-alist semivowel-key-alist vowel-key-alist
(vector consonant-key-alist semivowel-key-alist vowel-key-alist
voweltone-key-alist tone-key-alist other-key-alist)))
(defconst lao-consonant-key-alist (aref lao-key-alist-vector 0))
@ -192,7 +192,7 @@ you need to re-load it to properly re-initialize related alists.")
(makunbound 'lao-key-alist-vector)
(quail-define-package
"lao" "Lao" "(1E(B" t
"lao" "Lao" "ລ" t
"Lao input method simulating Lao keyboard layout based on Thai TIS620"
nil t t t t nil nil nil 'quail-lao-update-translation nil t)

10
leim/quail/lrt.el
View file

@ -1,4 +1,4 @@
;;; lrt.el --- Quail package for inputting Lao characters by LRT method -*-coding: iso-2022-7bit;-*-
;;; lrt.el --- Quail package for inputting Lao characters by LRT method -*-coding: utf-8;-*-
;; Copyright (C) 1998, 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@ -52,11 +52,11 @@
(quail-define-package
"lao-lrt" "Lao" "(1E(BR" t
"lao-lrt" "Lao" "ລR" t
"Lao input method using LRT (Lao Roman Transcription).
`\\' (backslash) + number-key => (1p(B,(1q(B,(1r(B,... LAO DIGIT ZERO, ONE, TWO, ...
`\\' (backslash) + `\\' => (1f(B LAO KO LA (REPETITION)
`\\' (backslash) + `$' => (1O(B LAO ELLIPSIS
`\\' (backslash) + number-key => ໐,໑,໒,... LAO DIGIT ZERO, ONE, TWO, ...
`\\' (backslash) + `\\' => ໆ LAO KO LA (REPETITION)
`\\' (backslash) + `$' => ຯ LAO ELLIPSIS
"
nil 'forget-last-selection 'deterministic 'kbd-translate 'show-layout
nil nil nil 'quail-lao-update-translation nil t)

566
leim/quail/slovak.el
View file

@ -1,10 +1,10 @@
;;; slovak.el --- Quail package for inputting Slovak -*-coding: iso-2022-7bit;-*-
;;; slovak.el --- Quail package for inputting Slovak -*-coding: utf-8;-*-
;; Copyright (C) 1998, 2001-2013 Free Software Foundation, Inc.
;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>
;; Authors: Tibor Šimko <tibor.simko@fmph.uniba.sk>
;; Milan Zamazal <pdm@zamazal.org>
;; Maintainer: Pavel Jan,Bm(Bk <Pavel@Janik.cz>
;; Maintainer: Pavel Janík <Pavel@Janik.cz>
;; Keywords: i18n, multilingual, input method, Slovak
;; This file is part of GNU Emacs.
@ -40,15 +40,15 @@
(quail-define-rules
("1" ?+)
("2" ?,B5(B)
("3" ?,B9(B)
("4" ?,Bh(B)
("5" ?,B;(B)
("6" ?,B>(B)
("7" ?,B}(B)
("8" ?,Ba(B)
("9" ?,Bm(B)
("0" ?,Bi(B)
("2" ?ľ)
("3" ?š)
("4" ?č)
("5" ?ť)
("6" ?ž)
("7" ?ý)
("8" ?á)
("9" ?í)
("0" ?é)
("!" ?1)
("@" ?2)
("#" ?3)
@ -62,15 +62,15 @@
("-" ?=)
("_" ?%)
("=" ?')
("[" ?,Bz(B)
("[" ?ú)
("{" ?/)
("]" ?,Bd(B)
("]" ?ä)
("}" ?\()
("\\" ?,Br(B)
("\\" ?ň)
("|" ?\))
(";" ?,Bt(B)
(";" ?ô)
(":" ?\")
("'" ?,B'(B)
("'" ?§)
("\"" ?!)
("<" ??)
(">" ?:)
@ -82,56 +82,56 @@
("z" ?y)
("Y" ?Z)
("Z" ?Y)
("=a" ?,Ba(B)
("+a" ?,Bd(B)
("+=a" ?,Bd(B)
("+c" ?,Bh(B)
("+d" ?,Bo(B)
("=e" ?,Bi(B)
("+e" ?,Bl(B)
("=i" ?,Bm(B)
("=l" ?,Be(B)
("+l" ?,B5(B)
("+n" ?,Br(B)
("=o" ?,Bs(B)
("+o" ?,Bt(B)
("~o" ?,Bt(B)
("+=o" ?,Bv(B)
("=r" ?,B`(B)
("+r" ?,Bx(B)
("=s" ?,B_(B)
("+s" ?,B9(B)
("+t" ?,B;(B)
("=u" ?,Bz(B)
("+u" ?,By(B)
("+=u" ?,B|(B)
("=z" ?,B}(B)
("+y" ?,B>(B)
("=A" ?,BA(B)
("+A" ?,BD(B)
("+=A" ?,BD(B)
("+C" ?,BH(B)
("+D" ?,BO(B)
("=E" ?,BI(B)
("+E" ?,BL(B)
("=I" ?,BM(B)
("=L" ?,BE(B)
("+L" ?,B%(B)
("+N" ?,BR(B)
("=O" ?,BS(B)
("+O" ?,BT(B)
("~O" ?,BT(B)
("+=O" ?,BV(B)
("=R" ?,B@(B)
("+R" ?,BX(B)
("=S" ?,B_(B)
("+S" ?,B)(B)
("+T" ?,B+(B)
("=U" ?,BZ(B)
("+U" ?,BY(B)
("+=U" ?,B\(B)
("=Z" ?,B](B)
("+Y" ?,B.(B)
("=a" ?á)
("+a" ?ä)
("+=a" ?ä)
("+c" ?č)
("+d" ?ď)
("=e" ?é)
("+e" ?ě)
("=i" ?í)
("=l" ?ĺ)
("+l" ?ľ)
("+n" ?ň)
("=o" ?ó)
("+o" ?ô)
("~o" ?ô)
("+=o" ?ö)
("=r" ?ŕ)
("+r" ?ř)
("=s" ?ß)
("+s" ?š)
("+t" ?ť)
("=u" ?ú)
("+u" ?ů)
("+=u" ?ü)
("=z" ?ý)
("+y" ?ž)
("=A" ?Á)
("+A" ?Ä)
("+=A" ?Ä)
("+C" ?Č)
("+D" ?Ď)
("=E" ?É)
("+E" ?Ě)
("=I" ?Í)
("=L" ?Ĺ)
("+L" ?Ľ)
("+N" ?Ň)
("=O" ?Ó)
("+O" ?Ô)
("~O" ?Ô)
("+=O" ?Ö)
("=R" ?Ŕ)
("+R" ?Ř)
("=S" ?ß)
("+S" ?Š)
("+T" ?Ť)
("=U" ?Ú)
("+U" ?Ů)
("+=U" ?Ü)
("=Z" ?Ý)
("+Y" ?Ž)
("=q" ?`)
("=2" ?@)
("=3" ?#)
@ -177,75 +177,75 @@ All other keys are the same as on standard US keyboard."
(quail-define-rules
("[[[[" ?\[)
("2" ?,B5(B)
("3" ?,B9(B)
("4" ?,Bh(B)
("5" ?,B;(B)
("6" ?,B>(B)
("7" ?,B}(B)
("8" ?,Ba(B)
("9" ?,Bm(B)
("0" ?,Bi(B)
("[a" ?,Ba(B)
("[[a" ?,Bd(B)
("[[[a" ?,Bd(B)
("[c" ?,Bh(B)
("[[c" ?,Bh(B)
("[d" ?,Bo(B)
("[[d" ?,Bo(B)
("[e" ?,Bi(B)
("[[e" ?,Bl(B)
("[i" ?,Bm(B)
("[l" ?,Be(B)
("[[l" ?,B5(B)
("[n" ?,Br(B)
("[[n" ?,Br(B)
("[o" ?,Bs(B)
("[[o" ?,Bt(B)
("[[[o" ?,Bv(B)
("[r" ?,B`(B)
("[[r" ?,Bx(B)
("[s" ?,B9(B)
("[[s" ?,B9(B)
("[[[s" ?,B_(B)
("[t" ?,B;(B)
("[[t" ?,B;(B)
("[u" ?,Bz(B)
("[[u" ?,By(B)
("[[[u" ?,B|(B)
("[y" ?,B}(B)
("[z" ?,B>(B)
("[[z" ?,B>(B)
("[A" ?,BA(B)
("[[A" ?,BD(B)
("[[[A" ?,BD(B)
("[C" ?,BH(B)
("[[C" ?,BH(B)
("[D" ?,BO(B)
("[[D" ?,BO(B)
("[E" ?,BI(B)
("[[E" ?,BL(B)
("[I" ?,BM(B)
("[L" ?,BE(B)
("[[L" ?,B%(B)
("[N" ?,BR(B)
("[[N" ?,BR(B)
("[O" ?,BS(B)
("[[O" ?,BT(B)
("[[[O" ?,BV(B)
("[R" ?,B@(B)
("[[R" ?,BX(B)
("[S" ?,B)(B)
("[[S" ?,B)(B)
("[[[S" ?,B_(B)
("[T" ?,B+(B)
("[[T" ?,B+(B)
("[U" ?,BZ(B)
("[[U" ?,BY(B)
("[[[U" ?,B\(B)
("[Y" ?,B](B)
("[Z" ?,B.(B)
("[[Z" ?,B.(B)
("2" ?ľ)
("3" ?š)
("4" ?č)
("5" ?ť)
("6" ?ž)
("7" ?ý)
("8" ?á)
("9" ?í)
("0" ?é)
("[a" ?á)
("[[a" ?ä)
("[[[a" ?ä)
("[c" ?č)
("[[c" ?č)
("[d" ?ď)
("[[d" ?ď)
("[e" ?é)
("[[e" ?ě)
("[i" ?í)
("[l" ?ĺ)
("[[l" ?ľ)
("[n" ?ň)
("[[n" ?ň)
("[o" ?ó)
("[[o" ?ô)
("[[[o" ?ö)
("[r" ?ŕ)
("[[r" ?ř)
("[s" ?š)
("[[s" ?š)
("[[[s" ?ß)
("[t" ?ť)
("[[t" ?ť)
("[u" ?ú)
("[[u" ?ů)
("[[[u" ?ü)
("[y" ?ý)
("[z" ?ž)
("[[z" ?ž)
("[A" ?Á)
("[[A" ?Ä)
("[[[A" ?Ä)
("[C" ?Č)
("[[C" ?Č)
("[D" ?Ď)
("[[D" ?Ď)
("[E" ?É)
("[[E" ?Ě)
("[I" ?Í)
("[L" ?Ĺ)
("[[L" ?Ľ)
("[N" ?Ň)
("[[N" ?Ň)
("[O" ?Ó)
("[[O" ?Ô)
("[[[O" ?Ö)
("[R" ?Ŕ)
("[[R" ?Ř)
("[S" ?Š)
("[[S" ?Š)
("[[[S" ?ß)
("[T" ?Ť)
("[[T" ?Ť)
("[U" ?Ú)
("[[U" ?Ů)
("[[[U" ?Ü)
("[Y" ?Ý)
("[Z" ?Ž)
("[[Z" ?Ž)
([kp-1] ?1)
([kp-2] ?2)
([kp-3] ?3)
@ -270,15 +270,15 @@ All other keys are the same as on standard US keyboard."
nil t nil nil t nil nil nil nil nil t)
(quail-define-rules
("2" ?,B5(B)
("3" ?,B9(B)
("4" ?,Bh(B)
("5" ?,B;(B)
("6" ?,B>(B)
("7" ?,B}(B)
("8" ?,Ba(B)
("9" ?,Bm(B)
("0" ?,Bi(B)
("2" ?ľ)
("3" ?š)
("4" ?č)
("5" ?ť)
("6" ?ž)
("7" ?ý)
("8" ?á)
("9" ?í)
("0" ?é)
("==" ?=)
("++" ?+)
("=+" ?+)
@ -300,54 +300,54 @@ All other keys are the same as on standard US keyboard."
("+8" ?8)
("+9" ?9)
("+0" ?0)
("=a" ?,Ba(B)
("+a" ?,Bd(B)
("+=a" ?,Bd(B)
("+c" ?,Bh(B)
("+d" ?,Bo(B)
("=e" ?,Bi(B)
("+e" ?,Bl(B)
("=i" ?,Bm(B)
("=l" ?,Be(B)
("+l" ?,B5(B)
("+n" ?,Br(B)
("=o" ?,Bs(B)
("+o" ?,Bt(B)
("+=o" ?,Bv(B)
("=r" ?,B`(B)
("+r" ?,Bx(B)
("=s" ?,B_(B)
("+s" ?,B9(B)
("+t" ?,B;(B)
("=u" ?,Bz(B)
("+u" ?,By(B)
("+=u" ?,B|(B)
("=y" ?,B}(B)
("+z" ?,B>(B)
("=A" ?,BA(B)
("+A" ?,BD(B)
("+=A" ?,BD(B)
("+C" ?,BH(B)
("+D" ?,BO(B)
("=E" ?,BI(B)
("+E" ?,BL(B)
("=I" ?,BM(B)
("=L" ?,BE(B)
("+L" ?,B%(B)
("+N" ?,BR(B)
("=O" ?,BS(B)
("+O" ?,BT(B)
("+=O" ?,BV(B)
("=R" ?,B@(B)
("+R" ?,BX(B)
("=S" ?,B_(B)
("+S" ?,B)(B)
("+T" ?,B+(B)
("=U" ?,BZ(B)
("+U" ?,BY(B)
("+=U" ?,B\(B)
("=Y" ?,B](B)
("+Z" ?,B.(B)
("=a" ?á)
("+a" ?ä)
("+=a" ?ä)
("+c" ?č)
("+d" ?ď)
("=e" ?é)
("+e" ?ě)
("=i" ?í)
("=l" ?ĺ)
("+l" ?ľ)
("+n" ?ň)
("=o" ?ó)
("+o" ?ô)
("+=o" ?ö)
("=r" ?ŕ)
("+r" ?ř)
("=s" ?ß)
("+s" ?š)
("+t" ?ť)
("=u" ?ú)
("+u" ?ů)
("+=u" ?ü)
("=y" ?ý)
("+z" ?ž)
("=A" ?Á)
("+A" ?Ä)
("+=A" ?Ä)
("+C" ?Č)
("+D" ?Ď)
("=E" ?É)
("+E" ?Ě)
("=I" ?Í)
("=L" ?Ĺ)
("+L" ?Ľ)
("+N" ?Ň)
("=O" ?Ó)
("+O" ?Ô)
("+=O" ?Ö)
("=R" ?Ŕ)
("+R" ?Ř)
("=S" ?ß)
("+S" ?Š)
("+T" ?Ť)
("=U" ?Ú)
("+U" ?Ů)
("+=U" ?Ü)
("=Y" ?Ý)
("+Z" ?Ž)
([kp-1] ?1)
([kp-2] ?2)
([kp-3] ?3)
@ -374,96 +374,96 @@ All other keys are the same as on standard US keyboard."
("[]" ?\])
("][" ?\[)
("]]" ?\])
("[a" ?,Ba(B)
("[[a" ?,Bd(B)
("[[[a" ?,Bd(B)
("]a" ?,Bd(B)
("][a" ?,Bd(B)
("[c" ?,Bh(B)
("[[c" ?,Bh(B)
("]c" ?,Bh(B)
("[d" ?,Bo(B)
("[[d" ?,Bo(B)
("]d" ?,Bo(B)
("[e" ?,Bi(B)
("[[e" ?,Bl(B)
("]e" ?,Bl(B)
("[i" ?,Bm(B)
("[l" ?,Be(B)
("[[l" ?,B5(B)
("]l" ?,B5(B)
("[n" ?,Br(B)
("[[n" ?,Br(B)
("]n" ?,Br(B)
("[[o" ?,Bt(B)
("[[[o" ?,Bv(B)
("[o" ?,Bs(B)
("]o" ?,Bt(B)
("][o" ?,Bv(B)
("[r" ?,B`(B)
("[[r" ?,Bx(B)
("]r" ?,Bx(B)
("[s" ?,B9(B)
("[[s" ?,B9(B)
("[[[s" ?,B_(B)
("]s" ?,B9(B)
("[t" ?,B;(B)
("[[t" ?,B;(B)
("]t" ?,B;(B)
("[u" ?,Bz(B)
("[[u" ?,By(B)
("[[[u" ?,B|(B)
("]u" ?,By(B)
("][u" ?,B|(B)
("[y" ?,B}(B)
("[z" ?,B>(B)
("[[z" ?,B>(B)
("]z" ?,B>(B)
("[A" ?,BA(B)
("[[A" ?,BD(B)
("[[[A" ?,BD(B)
("]A" ?,BD(B)
("][A" ?,BD(B)
("[C" ?,BH(B)
("[[C" ?,BH(B)
("]C" ?,BH(B)
("[D" ?,BO(B)
("[[D" ?,BO(B)
("]D" ?,BO(B)
("[E" ?,BI(B)
("[[E" ?,BL(B)
("]E" ?,BL(B)
("[I" ?,BM(B)
("[L" ?,BE(B)
("[[L" ?,B%(B)
("]L" ?,B%(B)
("[N" ?,BR(B)
("[[N" ?,BR(B)
("]N" ?,BR(B)
("[O" ?,BS(B)
("[[O" ?,BT(B)
("[[[O" ?,BV(B)
("]O" ?,BT(B)
("][O" ?,BV(B)
("[R" ?,B@(B)
("[[R" ?,BX(B)
("]R" ?,BX(B)
("[S" ?,B)(B)
("[[S" ?,B)(B)
("[[[S" ?,B_(B)
("]S" ?,B)(B)
("[T" ?,B+(B)
("[[T" ?,B+(B)
("]T" ?,B+(B)
("[U" ?,BZ(B)
("[[U" ?,BY(B)
("[[[U" ?,B\(B)
("]U" ?,BY(B)
("][U" ?,B\(B)
("[Y" ?,B](B)
("[Z" ?,B.(B)
("[[Z" ?,B.(B)
("]Z" ?,B.(B)
("[a" ?á)
("[[a" ?ä)
("[[[a" ?ä)
("]a" ?ä)
("][a" ?ä)
("[c" ?č)
("[[c" ?č)
("]c" ?č)
("[d" ?ď)
("[[d" ?ď)
("]d" ?ď)
("[e" ?é)
("[[e" ?ě)
("]e" ?ě)
("[i" ?í)
("[l" ?ĺ)
("[[l" ?ľ)
("]l" ?ľ)
("[n" ?ň)
("[[n" ?ň)
("]n" ?ň)
("[[o" ?ô)
("[[[o" ?ö)
("[o" ?ó)
("]o" ?ô)
("][o" ?ö)
("[r" ?ŕ)
("[[r" ?ř)
("]r" ?ř)
("[s" ?š)
("[[s" ?š)
("[[[s" ?ß)
("]s" ?š)
("[t" ?ť)
("[[t" ?ť)
("]t" ?ť)
("[u" ?ú)
("[[u" ?ů)
("[[[u" ?ü)
("]u" ?ů)
("][u" ?ü)
("[y" ?ý)
("[z" ?ž)
("[[z" ?ž)
("]z" ?ž)
("[A" ?Á)
("[[A" ?Ä)
("[[[A" ?Ä)
("]A" ?Ä)
("][A" ?Ä)
("[C" ?Č)
("[[C" ?Č)
("]C" ?Č)
("[D" ?Ď)
("[[D" ?Ď)
("]D" ?Ď)
("[E" ?É)
("[[E" ?Ě)
("]E" ?Ě)
("[I" ?Í)
("[L" ?Ĺ)
("[[L" ?Ľ)
("]L" ?Ľ)
("[N" ?Ň)
("[[N" ?Ň)
("]N" ?Ň)
("[O" ?Ó)
("[[O" ?Ô)
("[[[O" ?Ö)
("]O" ?Ô)
("][O" ?Ö)
("[R" ?Ŕ)
("[[R" ?Ř)
("]R" ?Ř)
("[S" ?Š)
("[[S" ?Š)
("[[[S" ?ß)
("]S" ?Š)
("[T" ?Ť)
("[[T" ?Ť)
("]T" ?Ť)
("[U" ?Ú)
("[[U" ?Ů)
("[[[U" ?Ü)
("]U" ?Ů)
("][U" ?Ü)
("[Y" ?Ý)
("[Z" ?Ž)
("[[Z" ?Ž)
("]Z" ?Ž)
([kp-1] ?1)
([kp-2] ?2)
([kp-3] ?3)

324
leim/quail/symbol-ksc.el
View file

@ -1,4 +1,4 @@
;;; symbol-ksc.el --- Quail-package for Korean Symbol (KSC5601) -*-coding: iso-2022-7bit;-*-
;;; symbol-ksc.el --- Quail-package for Korean Symbol (KSC5601) -*-coding: utf-8;-*-
;; Copyright (C) 1997, 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@ -35,168 +35,168 @@
(require 'korea-util)
(quail-define-package
"korean-symbol" "Korean" "$(C=I9z(B" t
"$(CGQ1[=I9z@T7BG%(B:
$(C!<(B($(C!=0}H#?-1b!<(Barrow$(C!=H-;l!<(Bsex$(C!=!N!O!<(Bindex$(C!=C7@Z(B $(C!<(Baccent$(C!=>G<>F.(B
$(C!<(B)$(C!=0}H#4]1b!<(Bmusic$(C!=@=>G!<(Bdot$(C!=A!(B $(C!<(Bquote$(C!=5{?HG%!<(Bxtext$(C!=!W!X"R"."/(B
$(C!<(BUnit$(C!=!I!J!K"5!<(Bmath$(C!=<vGP1bH#!<(Bpic$(C!=;sG|9.@Z!<(Bline$(C!=<19.@Z(B
$(C!<(Bunit$(C!=4\@'(B $(C!<(Bfrac$(C!=:P<v(B $(C!<(Btextline$(C!=!)!*!+!,!-(B
$(C!<(Bwn$(C!="_!<(Bks$(C!="^!<(BNo$(C!="`!<"a!="a(B $(C!<(Bdag$(C!="S(B $(C!<(Bddag$(C!="T!<(Bpercent$(C!="6(B
$(C!<(Bam$(C!="c!<(Bpm$(C!="d!<"b!="b!<(BTel$(C!="e!<(Bwon$(C!=#\(B $(C!<(Byen$(C!=!M(B $(C!<(Bpound$(C!=!L(B
$(C!<(BEng$(C!=#A#B#C!&(B $(C!<(Benum$(C!=#0#1#2!&(B $(C!<(BRuss$(C!=,!,",#!&!<(BGreek$(C!=%A%B%C!&(B
$(C!<(Beng$(C!=#a#b#c!&(B $(C!<(Beasc$(C!=?5>n(BASCII$(C!<(Bruss$(C!=,Q,R,S!&!<(Bgreek$(C!=%a%b%c!&(B
$(C!<(BRom$(C!=%0%1%2!&(B $(C!<(BScan$(C!=(!("(#!&(B $(C!<(Bhira$(C!=*!*"*#(B
$(C!<(Brom$(C!=%!%"%#!&(B $(C!<(Bscan$(C!=)!)")#!&(B $(C!<(Bkata$(C!=+!+"+#(B
$(C!<(Bojaso$(C!=(1!-(>!<(Bpjaso$(C!=)1!-)>!<(Boeng$(C!=(M!-(f!<(Bpeng$(C!=)M!-)f(B
$(C!<(Bogana$(C!=(?!-(L!<(Bpgana$(C!=)?!-)L!<(Bonum$(C!=(g!-(u!<(Bpnum$(C!=)g!-)u(B
$(C!<@Z<R!=(B2$(C9z=D(B + $(C$U(B(S) $(C$o(B(t_) $(C$q(B(D) $(C$p(B(DD) $(C$a(B(aD) $(C$v(B(_d) $(C$u(B(G) $(C$}(B(uk)")
"korean-symbol" "Korean" "심벌" t
"한글심벌입력표:
【(】괄호열기【arrow】화살【sex】♂♀【index】첨자 【accent】악센트
【)】괄호닫기【music】음악【dot】점 【quote】따옴표【xtext】§※¡¿
【Unit】℃Å￠℉【math】수학기호【pic】상형문자【line】선문자
【unit】단위 【frac】분수 【textline】­―∥＼∼
【wn】㈜【ks】㉿【No】№【㏇】㏇ 【dag】† 【ddag】‡【percent】‰
【am】㏂【pm】㏘【™】™【Tel】℡【won】￦ 【yen】￥ 【pound】￡
【Eng】ＡＢＣ… 【enum】０１２… 【Russ】АБВ…【Greek】ΑΒΓ…
【eng】ａｂｃ… 【easc】영어ASCII【russ】абв…【greek】αβγ…
【Rom】ⅠⅡⅢ… 【Scan】ÆЪ… 【hira】ぁあぃ
【rom】ⅰⅱⅲ… 【scan】æđð… 【kata】ァアィ
【ojaso】㉠∼㉭【pjaso】㈀∼㈍【oeng】ⓐ∼ⓩ【peng】⒜∼⒵
【ogana】㉮∼㉻【pgana】㈎∼㈛【onum】①∼⑮【pnum】⑴∼⒂
【자소】2벌식 + ㅥ(S) ㅿ(t_) ㆁ(D) ㆀ(DD) ㅱ(aD) ㆆ(_d) ㆅ(G) ㆍ(uk)")
(quail-define-rules
("(" "$(C!2!4!6!8!:!<(B")
(")" "$(C!3!5!7!9!;!=(B")
("math" "$(C!>!?!@!A!B!C!D!E!P!Q!R!S!T!U!V!k!l!m!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~"!"""#"$"1"2"3(B")
("pic" "$(C!Y!Z![!\!]!^!_!`!a!b!c!d!e"7"8"9":";"<"=">"?"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O"P"Q"4(B")
("arrow" "$(C!f!g!h!i!j"U"V"W"X"Y(B")
("music" "$(C"Z"["\"](B")
("won" "$(C#\(B")
("yen" "$(C!M(B")
("pound" "$(C!L(B")
("xtext" "$(C!W!X"R"."/(B")
("dot" "$(C!$!%!&!'"0(B")
("quote" "$(C!"!#!(!.!/!0!1!F!G!H"%")(B")
("textline" "$(C!)!*!+!,!-(B")
("Unit" "$(C!I!J!K"5(B")
("sex" "$(C!N!O(B")
("accent" "$(C"&"'"("*"+","-(B")
("percent" "$(C"6(B")
("dag" "$(C"S(B")
("ddag" "$(C"T(B")
("wn" "$(C"_(B")
("ks" "$(C"^(B")
("No" "$(C"`(B")
("Co" "$(C"a(B")
("TM" "$(C"b(B")
("am" "$(C"c(B")
("pm" "$(C"d(B")
("Tel" "$(C"e(B")
("easc" "$(C#!#"###$#%#&#'#(#)#*#+#,#-#.#/#:#;#<#=#>#?#@#[#]#^#_#`#{#|#}#~(B")
("enum" "$(C#0#1#2#3#4#5#6#7#8#9(B")
("Eng" "$(C#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O#P#Q#R#S#T#U#V#W#X#Y#Z(B")
("eng" "$(C#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o#p#q#r#s#t#u#v#w#x#y#z(B")
("r" "$(C$!(B")
("R" "$(C$"(B")
("rt" "$(C$#(B")
("s" "$(C$$(B")
("sw" "$(C$%(B")
("sg" "$(C$&(B")
("e" "$(C$'(B")
("E" "$(C$((B")
("f" "$(C$)(B")
("fr" "$(C$*(B")
("fa" "$(C$+(B")
("fq" "$(C$,(B")
("ft" "$(C$-(B")
("fx" "$(C$.(B")
("fv" "$(C$/(B")
("fg" "$(C$0(B")
("a" "$(C$1(B")
("q" "$(C$2(B")
("Q" "$(C$3(B")
("qt" "$(C$4(B")
("t" "$(C$5(B")
("T" "$(C$6(B")
("d" "$(C$7(B")
("w" "$(C$8(B")
("W" "$(C$9(B")
("c" "$(C$:(B")
("z" "$(C$;(B")
("x" "$(C$<(B")
("v" "$(C$=(B")
("g" "$(C$>(B")
("k" "$(C$?(B")
("o" "$(C$@(B")
("i" "$(C$A(B")
("O" "$(C$B(B")
("j" "$(C$C(B")
("p" "$(C$D(B")
("u" "$(C$E(B")
("P" "$(C$F(B")
("h" "$(C$G(B")
("hk" "$(C$H(B")
("ho" "$(C$I(B")
("hl" "$(C$J(B")
("y" "$(C$K(B")
("n" "$(C$L(B")
("nj" "$(C$M(B")
("np" "$(C$N(B")
("nl" "$(C$O(B")
("b" "$(C$P(B")
("m" "$(C$Q(B")
("ml" "$(C$R(B")
("l" "$(C$S(B")
("S" "$(C$U(B")
("se" "$(C$V(B")
("st" "$(C$W(B")
("st_" "$(C$X(B")
("frt" "$(C$Y(B")
("fqt" "$(C$[(B")
("fe" "$(C$Z(B")
("ft_" "$(C$\(B")
("f_d" "$(C$](B")
("aq" "$(C$^(B")
("at" "$(C$_(B")
("at_" "$(C$`(B")
("aD" "$(C$a(B")
("qr" "$(C$b(B")
("qe" "$(C$c(B")
("qtr" "$(C$d(B")
("qte" "$(C$e(B")
("qw" "$(C$f(B")
("qx" "$(C$g(B")
("qD" "$(C$h(B")
("QD" "$(C$i(B")
("tr" "$(C$j(B")
("ts" "$(C$k(B")
("te" "$(C$l(B")
("tq" "$(C$m(B")
("tw" "$(C$n(B")
("t_" "$(C$o(B")
("DD" "$(C$p(B")
("D" "$(C$q(B")
("Dt" "$(C$r(B")
("Dt_" "$(C$s(B")
("vD" "$(C$t(B")
("G" "$(C$u(B")
("_d" "$(C$v(B")
("yi" "$(C$w(B")
("yO" "$(C$x(B")
("yl" "$(C$y(B")
("bu" "$(C$z(B")
("bP" "$(C${(B")
("bl" "$(C$|(B")
("uk" "$(C$}(B")
("ukl" "$(C$~(B")
("Rom" "$(C%0%1%2%3%4%5%6%7%8%9(B")
("rom" "$(C%!%"%#%$%%%&%'%(%)%*(B")
("Greek" "$(C%A%B%C%D%E%F%G%H%I%J%K%L%M%N%O%P%Q%R%S%T%U%V%W%X(B")
("greek" "$(C%a%b%c%d%e%f%g%h%i%j%k%l%m%n%o%p%q%r%s%t%u%v%w%x(B")
("line" "$(C&!&"&#&$&%&&&'&(&)&*&+&,&-&.&/&0&1&2&3&4&5&6&7&8&9&:&;&<&=&>&?&@&A&B&C&D&E&F&G&H&I&J&K&L&M&N&O&P&Q&R&S&T&U&V&W&X&Y&Z&[&\&]&^&_&`&a&b&c&d(B")
("unit" "$(C'!'"'#'$'%'&'''(')'*'+','-'.'/'0'1'2'3'4'5'6'7'8'9':';'<'='>'?'@'A'B'C'D'E'F'G'H'I'J'K'L'M'N'O'P'Q'R'S'T'U'V'W'X'Y'Z'['\']'^'_'`'a'b'c'd'e'f'g'h'i'j'k'l'm'n'o(B")
("Scan" "$(C(!("(#($(&((()(*(+(,(-(.(/(B")
("ojaso" "$(C(1(2(3(4(5(6(7(8(9(:(;(<(=(>(B")
("ogana" "$(C(?(@(A(B(C(D(E(F(G(H(I(J(K(L(B")
("oeng" "$(C(M(N(O(P(Q(R(S(T(U(V(W(X(Y(Z([(\(](^(_(`(a(b(c(d(e(f(B")
("onum" "$(C(g(h(i(j(k(l(m(n(o(p(q(r(s(t(u(B")
("frac" "$(C(v(w(x(y(z({(|(}(~(B")
("scan" "$(C)!)")#)$)%)&)')()))*)+),)-).)/)0(B")
("pjaso" "$(C)1)2)3)4)5)6)7)8)9):);)<)=)>(B>")
("pgana" "$(C)?)@)A)B)C)D)E)F)G)H)I)J)K)L(B")
("peng" "$(C)M)N)O)P)Q)R)S)T)U)V)W)X)Y)Z)[)\)])^)_)`)a)b)c)d)e)f(B")
("pnum" "$(C)g)h)i)j)k)l)m)n)o)p)q)r)s)t)u(B")
("index" "$(C)v)w)x)y)z){)|)})~(B")
("hira" "$(C*!*"*#*$*%*&*'*(*)***+*,*-*.*/*0*1*2*3*4*5*6*7*8*9*:*;*<*=*>*?*@*A*B*C*D*E*F*G*H*I*J*K*L*M*N*O*P*Q*R*S*T*U*V*W*X*Y*Z*[*\*]*^*_*`*a*b*c*d*e*f*g*h*i*j*k*l*m*n*o*p*q*r*s(B")
("kata" "$(C+!+"+#+$+%+&+'+(+)+*+++,+-+.+/+0+1+2+3+4+5+6+7+8+9+:+;+<+=+>+?+@+A+B+C+D+E+F+G+H+I+J+K+L+M+N+O+P+Q+R+S+T+U+V+W+X+Y+Z+[+\+]+^+_+`+a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v(B")
("Russ" "$(C,!,",#,$,%,&,',(,),*,+,,,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,<,=,>,?,@,A(B")
("russ" "$(C,Q,R,S,T,U,V,W,X,Y,Z,[,\,],^,_,`,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q(B"))
("(" "〔〈《「『【")
(")" "〕〉》」』】")
("math" "±×÷≠≤≥∞∴∠⊥⌒∂∇≡≒〓≪≫√∽∝∵∫∬∈∋⊆⊇⊂⊃∪∩∧∨￢⇒⇔∀∃∮∑∏")
("pic" "☆★○●◎◇◆□■△▲▽▼◁◀▷▶♤♠♡♥♧♣⊙◈▣◐◑▒▤▥▨▧▦▩♨☏☎☜☞¤")
("arrow" "→←↑↓↔↕↗↙↖↘")
("music" "♭♩♪♬")
("won" "￦")
("yen" "￥")
("pound" "￡")
("xtext" "§※¶¡¿")
("dot" "·‥…¨ː")
("quote" "、。〃‘’“”°′″´˝")
("textline" "­―∥＼∼")
("Unit" "℃Å￠℉")
("sex" "♂♀")
("accent" "～ˇ˘˚˙¸˛")
("percent" "‰")
("dag" "†")
("ddag" "‡")
("wn" "㈜")
("ks" "㉿")
("No" "№")
("Co" "㏇")
("TM" "™")
("am" "㏂")
("pm" "㏘")
("Tel" "℡")
("easc" "！＂＃＄％＆＇（）＊＋，－．／：；＜＝＞？＠［］＾＿｀｛｜｝￣")
("enum" "０１２３４５６７８９")
("Eng" "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ")
("eng" "ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ")
("r" "ㄱ")
("R" "ㄲ")
("rt" "ㄳ")
("s" "ㄴ")
("sw" "ㄵ")
("sg" "ㄶ")
("e" "ㄷ")
("E" "ㄸ")
("f" "ㄹ")
("fr" "ㄺ")
("fa" "ㄻ")
("fq" "ㄼ")
("ft" "ㄽ")
("fx" "ㄾ")
("fv" "ㄿ")
("fg" "ㅀ")
("a" "ㅁ")
("q" "ㅂ")
("Q" "ㅃ")
("qt" "ㅄ")
("t" "ㅅ")
("T" "ㅆ")
("d" "ㅇ")
("w" "ㅈ")
("W" "ㅉ")
("c" "ㅊ")
("z" "ㅋ")
("x" "ㅌ")
("v" "ㅍ")
("g" "ㅎ")
("k" "ㅏ")
("o" "ㅐ")
("i" "ㅑ")
("O" "ㅒ")
("j" "ㅓ")
("p" "ㅔ")
("u" "ㅕ")
("P" "ㅖ")
("h" "ㅗ")
("hk" "ㅘ")
("ho" "ㅙ")
("hl" "ㅚ")
("y" "ㅛ")
("n" "ㅜ")
("nj" "ㅝ")
("np" "ㅞ")
("nl" "ㅟ")
("b" "ㅠ")
("m" "ㅡ")
("ml" "ㅢ")
("l" "ㅣ")
("S" "ㅥ")
("se" "ㅦ")
("st" "ㅧ")
("st_" "ㅨ")
("frt" "ㅩ")
("fqt" "ㅫ")
("fe" "ㅪ")
("ft_" "ㅬ")
("f_d" "ㅭ")
("aq" "ㅮ")
("at" "ㅯ")
("at_" "ㅰ")
("aD" "ㅱ")
("qr" "ㅲ")
("qe" "ㅳ")
("qtr" "ㅴ")
("qte" "ㅵ")
("qw" "ㅶ")
("qx" "ㅷ")
("qD" "ㅸ")
("QD" "ㅹ")
("tr" "ㅺ")
("ts" "ㅻ")
("te" "ㅼ")
("tq" "ㅽ")
("tw" "ㅾ")
("t_" "ㅿ")
("DD" "ㆀ")
("D" "ㆁ")
("Dt" "ㆂ")
("Dt_" "ㆃ")
("vD" "ㆄ")
("G" "ㆅ")
("_d" "ㆆ")
("yi" "ㆇ")
("yO" "ㆈ")
("yl" "ㆉ")
("bu" "ㆊ")
("bP" "ㆋ")
("bl" "ㆌ")
("uk" "ㆍ")
("ukl" "ㆎ")
("Rom" "ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩ")
("rom" "ⅰⅱⅲⅳⅴⅵⅶⅷⅸⅹ")
("Greek" "ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ")
("greek" "αβγδεζηθικλμνξοπρστυφχψω")
("line" "─│┌┐┘└├┬┤┴┼━┃┏┓┛┗┣┳┫┻╋┠┯┨┷┿┝┰┥┸╂┒┑┚┙┖┕┎┍┞┟┡┢┦┧┩┪┭┮┱┲┵┶┹┺┽┾╀╁╃╄╅╆╇╈╉╊")
("unit" "㎕㎖㎗ℓ㎘㏄㎣㎤㎥㎦㎙㎚㎛㎜㎝㎞㎟㎠㎡㎢㏊㎍㎎㎏㏏㎈㎉㏈㎧㎨㎰㎱㎲㎳㎴㎵㎶㎷㎸㎹㎀㎁㎂㎃㎄㎺㎻㎼㎽㎾㎿㎐㎑㎒㎓㎔Ω㏀㏁㎊㎋㎌㏖㏅㎭㎮㎯㏛㎩㎪㎫㎬㏝㏐㏓㏃㏉㏜㏆")
("Scan" "ÆЪĦIJĿŁØŒºÞŦŊ")
("ojaso" "㉠㉡㉢㉣㉤㉥㉦㉧㉨㉩㉪㉫㉬㉭")
("ogana" "㉮㉯㉰㉱㉲㉳㉴㉵㉶㉷㉸㉹㉺㉻")
("oeng" "ⓐⓑⓒⓓⓔⓕⓖⓗⓘⓙⓚⓛⓜⓝⓞⓟⓠⓡⓢⓣⓤⓥⓦⓧⓨⓩ")
("onum" "①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮")
("frac" "½⅓⅔¼¾⅛⅜⅝⅞")
("scan" "æđðħıijĸŀłøœßþŧŋʼn")
("pjaso" "㈀㈁㈂㈃㈄㈅㈆㈇㈈㈉㈊㈋㈌㈍>")
("pgana" "㈎㈏㈐㈑㈒㈓㈔㈕㈖㈗㈘㈙㈚㈛")
("peng" "⒜⒝⒞⒟⒠⒡⒢⒣⒤⒥⒦⒧⒨⒩⒪⒫⒬⒭⒮⒯⒰⒱⒲⒳⒴⒵")
("pnum" "⑴⑵⑶⑷⑸⑹⑺⑻⑼⑽⑾⑿⒀⒁⒂")
("index" "¹²³⁴ⁿ₁₂₃₄")
("hira" "ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢっつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわゐゑをん")
("kata" "ァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヰヱヲンヴヵヶ")
("Russ" "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ")
("russ" "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"))
;;; symbol-ksc.el ends here

84
leim/quail/thai.el
View file

@ -1,4 +1,4 @@
;;; thai.el --- Quail package for inputting Thai characters -*-coding: iso-2022-7bit;-*-
;;; thai.el --- Quail package for inputting Thai characters -*-coding: utf-8;-*-
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;; 2005, 2006, 2007, 2008, 2009, 2010, 2011
@ -42,13 +42,13 @@
;; Thai Kesmanee keyboard support.
(quail-define-package
"thai-kesmanee" "Thai" ",T!!(B>" t
"thai-kesmanee" "Thai" "กก>" t
"Thai Kesmanee input method with TIS620 keyboard layout
The difference from the ordinal Thai keyboard:
',T_(B' and ',To(B' are assigned to '\\' and '|' respectively,
',T#(B' and ',T%(B' are assigned to '`' and '~' respectively,
Don't know where to assign characters ',Tz(B' and ',T{(B'."
'฿' and '๏' are assigned to '\\' and '|' respectively,
'ฃ' and 'ฅ' are assigned to '`' and '~' respectively,
Don't know where to assign characters '๚' and '๛'."
nil t t t t nil nil nil nil nil t)
(thai-generate-quail-map
@ -56,38 +56,38 @@ The difference from the ordinal Thai keyboard:
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; control codes
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; control codes
;; This data is quite old.
;; 0 "#" "." ",Tr(B" ",Ts(B" ",Tt(B" ",TQi(B" ",T'(B" ; SPC .. '
;; ",Tv(B" ",Tw(B" ",Tu(B" ",Ty(B" ",TA(B" ",T"(B" ",Tc(B" ",T=(B" ; ( .. /
;; ",T((B" ",TE(B" "/" "_" ",T@(B" ",T6(B" ",TX(B" ",TV(B" ; 0 .. 7
;; ",T$(B" ",T5(B" ",T+(B" ",TG(B" ",T2(B" ",T*(B" ",TL(B" ",TF(B" ; 8 .. ?
;; ",Tq(B" ",TD(B" ",TZ(B" ",T)(B" ",T/(B" ",T.(B" ",Tb(B" ",T,(B" ; @ .. G
;; ",Tg(B" ",T3(B" ",Tk(B" ",TI(B" ",TH(B" ",Tn(B" ",Tl(B" ",TO(B" ; H .. O
;; ",T-(B" ",Tp(B" ",T1(B" ",T&(B" ",T8(B" ",Tj(B" ",TN(B" "\"" ; P .. W
;; ")" ",Tm(B" "(" ",T:(B" ",T_(B" ",TE(B" ",TY(B" ",Tx(B" ; X .. _
;; ",T#(B" ",T?(B" ",TT(B" ",Ta(B" ",T!(B" ",TS(B" ",T4(B" ",T`(B" ; ` .. g
;; ",Ti(B" ",TC(B" ",Th(B" ",TR(B" ",TJ(B" ",T7(B" ",TW(B" ",T9(B" ; h .. o
;; ",TB(B" ",Tf(B" ",T>(B" ",TK(B" ",TP(B" ",TU(B" ",TM(B" ",Td(B" ; p .. w
;; ",T;(B" ",TQ(B" ",T<(B" ",T0(B" ",To(B" "," ",T%(B" 0 ; x .. DEL
;; 0 "#" "." "๒" "๓" "๔" "ั้" "ง" ; SPC .. '
;; "๖" "๗" "๕" "๙" "ม" "ข" "ใ" "ฝ" ; ( .. /
;; "จ" "ล" "/" "_" "ภ" "ถ" "ุ" "ึ" ; 0 .. 7
;; "ค" "ต" "ซ" "ว" "ฒ" "ช" "ฬ" "ฦ" ; 8 .. ?
;; "๑" "ฤ" "ฺ" "ฉ" "ฏ" "ฎ" "โ" "ฌ" ; @ .. G
;; "็" "ณ" "๋" "ษ" "ศ" "๎" "์" "ฯ" ; H .. O
;; "ญ" "๐" "ฑ" "ฆ" "ธ" "๊" "ฮ" "\"" ; P .. W
;; ")" "ํ" "(" "บ" "฿" "ล" "ู" "๘" ; X .. _
;; "ฃ" "ฟ" "ิ" "แ" "ก" "ำ" "ด" "เ" ; ` .. g
;; "้" "ร" "่" "า" "ส" "ท" "ื" "น" ; h .. o
;; "ย" "ๆ" "พ" "ห" "ะ" "ี" "อ" "ไ" ; p .. w
;; "ป" "ั" "ผ" "ฐ" "๏" "," "ฅ" 0 ; x .. DEL
;; This is the correct data nowadays.
0 "+" "." ",Tr(B" ",Ts(B" ",Tt(B" ",T_(B" ",T'(B" ; SPC .. '
",Tv(B" ",Tw(B" ",Tu(B" ",Ty(B" ",TA(B" ",T"(B" ",Tc(B" ",T=(B" ; ( .. /
",T((B" ",Te(B" "/" "-" ",T@(B" ",T6(B" ",TX(B" ",TV(B" ; 0 .. 7
",T$(B" ",T5(B" ",T+(B" ",TG(B" ",T2(B" ",T*(B" ",TL(B" ",TF(B" ; 8 .. ?
",Tq(B" ",TD(B" ",TZ(B" ",T)(B" ",T/(B" ",T.(B" ",Tb(B" ",T,(B" ; @ .. G
",Tg(B" ",T3(B" ",Tk(B" ",TI(B" ",TH(B" "?" ",Tl(B" ",TO(B" ; H .. O
",T-(B" ",Tp(B" ",T1(B" ",T&(B" ",T8(B" ",Tj(B" ",TN(B" "\"" ; P .. W
"\)" ",Tm(B" "\(" ",T:(B" ",T#(B" ",TE(B" ",TY(B" ",Tx(B" ; X .. _
"_" ",T?(B" ",TT(B" ",Ta(B" ",T!(B" ",TS(B" ",T4(B" ",T`(B" ; ` .. g
",Ti(B" ",TC(B" ",Th(B" ",TR(B" ",TJ(B" ",T7(B" ",TW(B" ",T9(B" ; h .. o
",TB(B" ",Tf(B" ",T>(B" ",TK(B" ",TP(B" ",TU(B" ",TM(B" ",Td(B" ; p .. w
",T;(B" ",TQ(B" ",T<(B" ",T0(B" ",T%(B" "," "%" 0 ; x .. DEL
0 "+" "." "๒" "๓" "๔" "฿" "ง" ; SPC .. '
"๖" "๗" "๕" "๙" "ม" "ข" "ใ" "ฝ" ; ( .. /
"จ" "ๅ" "/" "-" "ภ" "ถ" "ุ" "ึ" ; 0 .. 7
"ค" "ต" "ซ" "ว" "ฒ" "ช" "ฬ" "ฦ" ; 8 .. ?
"๑" "ฤ" "ฺ" "ฉ" "ฏ" "ฎ" "โ" "ฌ" ; @ .. G
"็" "ณ" "๋" "ษ" "ศ" "?" "์" "ฯ" ; H .. O
"ญ" "๐" "ฑ" "ฆ" "ธ" "๊" "ฮ" "\"" ; P .. W
"\)" "ํ" "\(" "บ" "ฃ" "ล" "ู" "๘" ; X .. _
"_" "ฟ" "ิ" "แ" "ก" "ำ" "ด" "เ" ; ` .. g
"้" "ร" "่" "า" "ส" "ท" "ื" "น" ; h .. o
"ย" "ๆ" "พ" "ห" "ะ" "ี" "อ" "ไ" ; p .. w
"ป" "ั" "ผ" "ฐ" "ฅ" "," "%" 0 ; x .. DEL
])
;; Thai Pattachote keyboard support.
(quail-define-package
"thai-pattachote" "Thai" ",T!;(B>" t
"thai-pattachote" "Thai" "กป>" t
"Thai Pattachote input method with TIS620 keyboard layout"
nil t t t t nil nil nil nil nil t)
@ -95,18 +95,18 @@ The difference from the ordinal Thai keyboard:
[
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; control codes
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; control codes
0 "+" ",T1(B" "/" "," "?" "_" ",T"(B" ; SPC .. '
"(" ")" "." "%" ",TP(B" ",Tq(B" ",T((B" ",T>(B" ; ( .. /
",Tp(B" "=" ",Tr(B" ",Ts(B" ",Tt(B" ",Tu(B" ",TY(B" ",Tw(B" ; 0 .. 7
",Tx(B" ",Ty(B" ",T&(B" ",Td(B" ",T?(B" ",Tv(B" ",T2(B" ",TL(B" ; 8 .. ?
"\"" ",Tk(B" ",TQ(B" ",T0(B" ",TS(B" ",Tf(B" ",T3(B" ",Tl(B" ; @ .. G
",TW(B" ",T+(B" ",T<(B" ",T*(B" ",Tb(B" ",TN(B" ",TH(B" ",T6(B" ; H .. O
",T2(B" ",Tj(B" ",T-(B" ",T8(B" ",TI(B" ",T=(B" ",T@(B" ",TD(B" ; P .. W
",T.(B" ",TV(B" ",T.(B" ",Tc(B" ",TZ(B" ",T2(B" ",TX(B" "-" ; X .. _
",T#(B" ",Ti(B" ",TT(B" ",TE(B" ",T'(B" ",TB(B" ",T!(B" ",TQ(B" ; ` .. g
",TU(B" ",TA(B" ",TR(B" ",T9(B" ",T`(B" ",TJ(B" ",T$(B" ",TG(B" ; h .. o
",Ta(B" ",Tg(B" ",TM(B" ",T7(B" ",TC(B" ",T4(B" ",TK(B" ",T5(B" ; p .. w
",T;(B" ",Th(B" ",T:(B" ",TO(B" ",Tm(B" ",TF(B" ",T%(B" 0 ; x .. DEL
0 "+" "ฑ" "/" "," "?" "_" "ข" ; SPC .. '
"(" ")" "." "%" "ะ" "๑" "จ" "พ" ; ( .. /
"๐" "=" "๒" "๓" "๔" "๕" "ู" "๗" ; 0 .. 7
"๘" "๙" "ฆ" "ไ" "ฟ" "๖" "ฒ" "ฬ" ; 8 .. ?
"\"" "๋" "ั" "ฐ" "ำ" "ๆ" "ณ" "์" ; @ .. G
"ื" "ซ" "ผ" "ช" "โ" "ฮ" "ศ" "ถ" ; H .. O
"ฒ" "๊" "ญ" "ธ" "ษ" "ฝ" "ภ" "ฤ" ; P .. W
"ฎ" "ึ" "ฎ" "ใ" "ฺ" "ฒ" "ุ" "-" ; X .. _
"ฃ" "้" "ิ" "ล" "ง" "ย" "ก" "ั" ; ` .. g
"ี" "ม" "า" "น" "เ" "ส" "ค" "ว" ; h .. o
"แ" "็" "อ" "ท" "ร" "ด" "ห" "ต" ; p .. w
"ป" "่" "บ" "ฯ" "ํ" "ฦ" "ฅ" 0 ; x .. DEL
])
;;; thai.el ends here

188
leim/quail/tibetan.el
View file

@ -1,4 +1,4 @@
;;; tibetan.el --- Quail package for inputting Tibetan characters -*-coding: iso-2022-7bit;-*-
;;; tibetan.el --- Quail package for inputting Tibetan characters -*-coding: utf-8-emacs;-*-
;; Copyright (C) 1997, 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@ -68,82 +68,82 @@
;;; Wylie transcription based input methods.
;; Special alist for `$(7"A(B'. It must be treated as a subjoined
;; Special alist for `འ'. It must be treated as a subjoined
;; consonant if it follows a consonant.
;; * Removed by Tomabechi 2000/06/10 *
;; 'a chung must be explicitly typed as a vowel ("fa")
;; $(7"A(B is now treated as normal base consonants
;; (defconst tibetan-wylie-quote-alist '(("'" . ?$(7"A(B)))
;; འ is now treated as normal base consonants
;; (defconst tibetan-wylie-quote-alist '(("'" . ?འ)))
;; Special alist to avoid default stacking.
(defconst tibetan-wylie-non-stacking-alist
'(("-d" . "$(7"2(B")
("-y" . "$(7"B(B")))
'(("-d" . "ད")
("-y" . "ཡ")))
;; Punctuation characters are not transcribed.
(defconst tibetan-wylie-punctuation-alist
'(("." . " ")
(":" . "$(7"`(B")
(" " . "$(7!;(B")
("/" . "$(7!=(B")
("//" . "$(7!>(B")
("////" . ["$(7!>(B $(7!>(B"])
("$" . "$(7!?(B")
("/\"" . "$(7!@(B") ; Not defined in Ext. Wylie.
("&" . "$(7!@(B")
(";" . "$(7!A(B")
("%" . "$(7!D(B")
("!" . "$(7!8(B")
("<" . "$(7!l(B")
(">" . "$(7!m(B")
("@" . "$(7"f(B")
("*" . ["$(7!4!5(B"])
("#" . ["$(7!4!5!5(B"])
("^" . "$(7!6(B")
("0" . "$(7!P(B")
("1" . "$(7!Q(B")
("2" . "$(7!R(B")
("3" . "$(7!S(B")
("4" . "$(7!T(B")
("5" . "$(7!U(B")
("6" . "$(7!V(B")
("7" . "$(7!W(B")
("8" . "$(7!X(B")
("9" . "$(7!Y(B")
("-0" . "$(7!c(B")
("-1" . "$(7!Z(B")
("-2" . "$(7![(B")
("-3" . "$(7!\(B")
("-4" . "$(7!](B")
("-5" . "$(7!^(B")
("-6" . "$(7!_(B")
("-7" . "$(7!`(B")
("-8" . "$(7!a(B")
("-9" . "$(7!b(B")
("|" . "$(7!0!1!2!3!7!9!:!B!C!E!F!G!H!I!J!K!L!M!N!O!d!f!h!j!k!n!o#O#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#`(B")))
(":" . "ཿ")
(" " . "་")
("/" . "།")
("//" . "༎")
("////" . ["༎ ༎"])
("$" . "༏")
("/\"" . "༐") ; Not defined in Ext. Wylie.
("&" . "༐")
(";" . "༑")
("%" . "༔")
("!" . "༈")
("<" . "༼")
(">" . "༽")
("@" . "྅")
("*" . ["༄༅"])
("#" . ["༄༅༅"])
("^" . "༆")
("0" . "༠")
("1" . "༡")
("2" . "༢")
("3" . "༣")
("4" . "༤")
("5" . "༥")
("6" . "༦")
("7" . "༧")
("8" . "༨")
("9" . "༩")
("-0" . "༳")
("-1" . "༪")
("-2" . "༫")
("-3" . "༬")
("-4" . "༭")
("-5" . "༮")
("-6" . "༯")
("-7" . "༰")
("-8" . "༱")
("-9" . "༲")
("|" . "ༀ༁༂༃༇༉༊༒༓༕༖༗༘༙༚༛༜༝༞༟༴༶༸༺༻༾༿྾྿࿀࿁࿂࿃࿄࿅࿆࿇࿈࿉࿊࿋࿌࿏")))
(quail-define-package "tibetan-wylie" "Tibetan" "TIBw" t
"Tibetan character input by Extended Wylie key assignment.
+-------------------------------------+
|$(7"!!;(B k |$(7""!;(B kh |$(7"#!;(B g |$(7"$!;(B gh |$(7"%!;(B ng| $(7"S(B i $(7!=(B /
|$(7"&!;(B c |$(7"'!;(B ch |$(7"(!;(B j | |$(7"*!;(B ny| $(7"U(B u $(7!>(B //
|$(7"+!;(B T |$(7",!;(B TH |$(7"-!;(B D |$(7".!;(B DH |$(7"/!;(B N | $(7"[(B e $(7!>(B $(7!>(B ////
|$(7"0!;(B t |$(7"1!;(B th |$(7"2!;(B d |$(7"3!;(B dh |$(7"4!;(B n | $(7"](B o $(7!A(B ;
|$(7"5!;(B p |$(7"6!;(B ph |$(7"7!;(B b |$(7"8!;(B bh |$(7"9!;(B m | $(7"\(B ai (ee, E) $(7!?(B $
|$(7":!;(B ts|$(7";!;(B tsh|$(7"<!;(B dz |$(7"=!;(B dzh|$(7">!;(B w | $(7"^(B au (oo, O) $(7!@(B &
|$(7"?!;(B zh|$(7"@!;(B z |$(7"A!;(B ' | |$(7"B!;(B y | $(7"a(B I $(7!4!5(B *
|$(7"C!;(B r |$(7"D!;(B l |$(7"E!;(B sh |$(7"F!;(B SH |$(7"G!;(B s | $(7"`(B : $(7!4!5!5(B #
|$(7"H!;(B h |$(7"I!;(B A |$(7"J!;(B kSH| | | $(7"_(B M $(7!l(B $(7!m(B < >
+-------------------------------------+ $(7!D(B %
(The consonant $(7"I!;(B must be typed explicitly.)
|ཀ་ k |ཁ་ kh |ག་ g |གྷ་ gh |ང་ ng| ི i ། /
|ཅ་ c |ཆ་ ch |ཇ་ j | |ཉ་ ny| ུ u ༎ //
|ཊ་ T |ཋ་ TH |ཌ་ D |ཌྷ་ DH |ཎ་ N | ེ e ༎ ༎ ////
|ཏ་ t |ཐ་ th |ད་ d |དྷ་ dh |ན་ n | ོ o ༑ ;
|པ་ p |ཕ་ ph |བ་ b |བྷ་ bh |མ་ m | ཻ ai (ee, E) ༏ $
|ཙ་ ts|ཚ་ tsh|ཛ་ dz |ཛྷ་ dzh|ཝ་ w | ཽ au (oo, O) ༐ &
|ཞ་ zh|ཟ་ z |འ་ ' | |ཡ་ y | ྀ I ༄༅ *
|ར་ r |ལ་ l |ཤ་ sh |ཥ་ SH |ས་ s | ཿ : ༄༅༅ #
|ཧ་ h |ཨ་ A |ཀྵ་ kSH| | | ཾ M ༼ ༽ < >
+-------------------------------------+ ༔ %
(The consonant ཨ་ must be typed explicitly.)
NOT SPECIFIED IN EXT. WYLIE:
+--------------------------------------------------------+
|$(7"c(B = ~ |$(7"d(B = ` |$(7"e(B = , |$(7"f(B = @ |$(7!g(B = _o|$(7!e(B = _O|$(7!6(B = ^|
|ྂ = ~ |ྃ = ` |྄ = , |྅ = @ |༷ = _o|༵ = _O|༆ = ^|
+--------------------------------------------------------+
|$(7"i(B = x |$(7"j(B = X |$(7"g(B = v |$(7"h(B = V |$(7"k(B = q |$(7"l(B = Q |
|ྈ = x |ྉ = X |྆ = v |྇ = V |ྊ = q |ྋ = Q |
+-----------------------------------------------+
SPECIAL KEYS
@ -284,7 +284,7 @@
("h," . "+s") ; sa
("h." . "+h") ; ha
("h/" . "+A") ; Aa
;; Special rule for `$(7"B(B' to avoid stacking.
;; Special rule for `ཡ' to avoid stacking.
("E" . "-y")
))
@ -318,39 +318,39 @@
(error "No Tibetan transcription for %s" (cdr elt))))))
(defconst tibetan-punctuation-tibkey-alist
'(("1" . "$(7!Q(B")
("!" . "$(7!4(B") ; nyi zla long
("2" . "$(7!R(B")
("@" . "$(7!5(B") ; nyi zla simple
("3" . "$(7!S(B")
'(("1" . "༡")
("!" . "༄") ; nyi zla long
("2" . "༢")
("@" . "༅") ; nyi zla simple
("3" . "༣")
;;; ("#" )
("4" . "$(7!T(B")
("4" . "༤")
;;; ("$" )
("5" . "$(7!U(B")
("%" . "$(7!D(B")
("6" . "$(7!V(B")
("^" . "$(7!1(B")
("7" . "$(7!W(B")
("8" . "$(7!X(B")
("5" . "༥")
("%" . "༔")
("6" . "༦")
("^" . "༁")
("7" . "༧")
("8" . "༨")
;;; ("*" ) ; avagraha, not supported yet
("9" . "$(7!Y(B")
("(" . "$(7!l(B")
("0" . "$(7!P(B")
(")" . "$(7!m(B")
("9" . "༩")
("(" . "༼")
("0" . "༠")
(")" . "༽")
;;; ("-" ) ; emphatic, not yet supported
;;; ("_" ) ; id.
;;; ("=" ) ; special sign, not yet supported
("+" . "$(7!A(B")
("\\" . "$(7!?(B")
("|" . "$(7!8(B")
("I" . "$(7"f(B") ; avagraha
(":" . "$(7"`(B")
;;; (">" ?$(7!;(B) ; to be assigned to SPC
("+" . "༑")
("\\" . "༏")
("|" . "༈")
("I" . "྅") ; avagraha
(":" . "ཿ")
;;; (">" ?་) ; to be assigned to SPC
(">" . " ")
("?" . "$(7!=(B")
("??" . "$(7!>(B")
("????" . ["$(7!>(B $(7!>(B"])
(" " . "$(7!;(B")
("?" . "།")
("??" . "༎")
("????" . ["༎ ༎"])
(" " . "་")
))
;; Convert TibKey string to Tibetan-Roman transcription string.
@ -401,26 +401,26 @@
[NOT SHIFTED]
+-------------------------------------------------------+
|`$(7"d(B|1$(7!Q(B|2$(7!R(B|3$(7!S(B|4$(7!T(B|5$(7!U(B|6$(7!V(B|7$(7!W(B|8$(7!X(B|9$(7!Y(B|0$(7!P(B|- |= |\\$(7!8(B|
|`ྃ|1༡|2༢|3༣|4༤|5༥|6༦|7༧|8༨|9༩|0༠|- |= |\\༈|
+-------------------------------------------------------+
|q$(7"!(B|w$(7""(B|e$(7"#(B|r$(7"%(B|t$(7"&(B|y$(7"'(B|u$(7"((B|i$(7"*(B|o$(7"0(B|p$(7"1(B|[$(7"2(B|]$(7"4(B|
|qཀ|wཁ|eག|rང|tཅ|yཆ|uཇ|iཉ|oཏ|pཐ|[ད|]ན|
+-----------------------------------------------+
|a$(7"5(B| s$(7"6(B| d$(7"7(B|f$(7"9(B|g$(7"U(B|h |j$(7"](B|k$(7":(B|l$(7";(B|;$(7"<(B|'$(7">(B|
|aཔ| sཕ| dབ|fམ|gུ|h |jོ|kཙ|lཚ|;ཛ|'ཝ|
+---------------------------------------------+
|z$(7"?(B|x$(7"@(B|c$(7"A(B|v$(7"B(B|b$(7"C(B|n$(7"D(B|m$(7"E(B|,$(7"G(B|.$(7"H(B|/$(7"I(B|
|zཞ|xཟ|cའ|vཡ|bར|nལ|mཤ|,ས|.ཧ|/ཨ|
+---------------------------------------+
The key 'h' is used for consonant stacking.
[SHIFTED]
+----------------------------------------------------------+
|~$(7"c(B|!$(7!4(B|@$(7!5(B|# |$ |%$(7!D(B |^$(7!1(B|& |* |($(7!l(B|)$(7!m(B|_ |+$(7!A(B| |$(7!8(B|
|~ྂ|!༄|@༅|# |$ |%༔ |^༁|& |* |(༼|)༽|_ |+༑| |༈|
+----------------------------------------------------------+
|Q$(7"J(B|W |E |R |T$(7"a(B|Y |U |I$(7"f(B|O$(7"+(B|P$(7",(B|{$(7"-(B|}$(7"/(B|
|Qཀྵ|W |E |R |Tྀ|Y |U |I྅|Oཊ|Pཋ|{ཌ|}ཎ|
+-----------------------------------------------+
|A |S |D |F$(7"_(B|G$(7"S(B|H$(7"e(B|J$(7"[(B|K |L |:$(7"`(B|\"$(7#>(B|
|A |S |D |Fཾ|Gི|H྄|Jེ|K |L |:ཿ|\"ྭ|
+-------------------------------------------+
|Z |X |C$(7"R(B|V$(7#B(B|B$(7#C(B|N$(7#D(B|M$(7"F(B|< |> |?$(7!=(B |
|Z |X |Cཱ|Vྱ|Bྲ|Nླ|Mཥ|< |> |?། |
+---------------------------------------+
DIFFERENCE FROM THE ORIGINAL TIBKEY:
@ -431,8 +431,8 @@
vowel sign for 'a'.
2. Tsheg is assigned to SPC key. You can input a space
by typing '>'.
4. To avoid the default stacking $(7$B(B and to obtain $(7"#"B(B,
type 'E' instead of 'v' (=$(7"B(B).
4. To avoid the default stacking <EFBFBD><EFBFBD><EFBFBD><EFBFBD> and to obtain གཡ,
type 'E' instead of 'v' (=ཡ).
3. There are many characters that are not supported in the
current implementation (especially special signs). I hope
I'll complete in a future revision.

22
leim/quail/viqr.el
View file

@ -1,4 +1,4 @@
;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system -*-coding: iso-2022-7bit;-*-
;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system -*-coding: utf-8;-*-
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;; 2006, 2007, 2008, 2009, 2010, 2011
@ -48,21 +48,21 @@
effect | postfix | examples
------------+---------+----------
breve | ( | a( -> ,1e(B
circumflex | ^ | a^ -> ,1b(B
horn | + | o+ -> ,1=(B
breve | ( | a( -> ă
circumflex | ^ | a^ -> â
horn | + | o+ -> ơ
------------+---------+----------
acute | ' | a' -> ,1a(B
grave | ` | a` -> ,1`(B
hook above | ? | a? -> ,1d(B
tilde | ~ | a~ -> ,1c(B
dot below | . | a. -> ,1U(B
acute | ' | a' -> á
grave | ` | a` -> à
hook above | ? | a? -> ả
tilde | ~ | a~ -> ã
dot below | . | a. -> ạ
------------+---------+----------
d bar | dd | dd -> ,1p(B
d bar | dd | dd -> đ
------------+---------+----------
no compose | \\ | a\\. -> a.
------------+---------+----------
combination| (~ | a(~ -> ,1G(B
combination| (~ | a(~ -> ẵ
" nil t t nil nil t nil nil nil nil t)

428
leim/quail/vntelex.el
View file

@ -40,30 +40,30 @@
Vowels with circumflex:
aa -> ,1b(B, EE -> ,2j(B, etc.
aa -> â, EE -> Ê, etc.
Other diacritics:
effect postfix examples
------------------------------
breve w aw -> ,1e(B
horn w ow -> ,1=(B
breve w aw -> ă
horn w ow -> ơ
acute s as -> ,1a(B
grave f af -> ,1`(B
hook above r ar -> ,1d(B
tilde x ax -> ,1c(B
dot below j aj -> ,1U(B
acute s as -> á
grave f af -> à
hook above r ar -> ả
tilde x ax -> ã
dot below j aj -> ạ
d bar dd -> ,1p(B
d bar dd -> đ
Combinations:
AWF -> ,2"(B, owx -> ,1^(B, etc.
AWF -> Ằ, owx -> ỡ, etc.
Alternatives:
EE = Ee -> ,2j(B, AWF = Awf -> ,2"(B, etc.
EE = Ee -> Ê, AWF = Awf -> Ằ, etc.
Doubling the postfix (but not in combinations) separates the letter
and postfix: Eee -> Ee, ajj -> aj, etc.
@ -81,208 +81,208 @@ and postfix: Eee -> Ee, ajj -> aj, etc.
t) ; SIMPLE
(quail-define-rules
("af" ?,1`(B) ; LATIN SMALL LETTER A WITH GRAVE
("AF" ?,2`(B) ; LATIN CAPITAL LETTER A WITH GRAVE
("Af" ?,2`(B)
("as" ?,1a(B) ; LATIN SMALL LETTER A WITH ACUTE
("AS" ?,2a(B) ; LATIN CAPITAL LETTER A WITH ACUTE
("As" ?,2a(B)
("aa" ?,1b(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX
("AA" ?,2b(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
("Aa" ?,2b(B)
("ax" ?,1c(B) ; LATIN SMALL LETTER A WITH TILDE
("AX" ?,2c(B) ; LATIN CAPITAL LETTER A WITH TILDE
("Ax" ?,2c(B)
("ef" ?,1h(B) ; LATIN SMALL LETTER E WITH GRAVE
("EF" ?,2h(B) ; LATIN CAPITAL LETTER E WITH GRAVE
("Ef" ?,2h(B)
("es" ?,1i(B) ; LATIN SMALL LETTER E WITH ACUTE
("ES" ?,2i(B) ; LATIN CAPITAL LETTER E WITH ACUTE
("Es" ?,2i(B)
("ee" ?,1j(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX
("EE" ?,2j(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
("Ee" ?,2j(B)
("if" ?,1l(B) ; LATIN SMALL LETTER I WITH GRAVE
("IF" ?,2l(B) ; LATIN CAPITAL LETTER I WITH GRAVE
("If" ?,2l(B)
("is" ?,1m(B) ; LATIN SMALL LETTER I WITH ACUTE
("IS" ?,2m(B) ; LATIN CAPITAL LETTER I WITH ACUTE
("Is" ?,2m(B)
("of" ?,1r(B) ; LATIN SMALL LETTER O WITH GRAVE
("OF" ?,2r(B) ; LATIN CAPITAL LETTER O WITH GRAVE
("Of" ?,2r(B)
("os" ?,1s(B) ; LATIN SMALL LETTER O WITH ACUTE
("OS" ?,2s(B) ; LATIN CAPITAL LETTER O WITH ACUTE
("Os" ?,2s(B)
("oo" ?,1t(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX
("OO" ?,2t(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
("Oo" ?,2t(B)
("ox" ?,1u(B) ; LATIN SMALL LETTER O WITH TILDE
("OX" ?,2u(B) ; LATIN CAPITAL LETTER O WITH TILDE
("Ox" ?,2u(B)
("uf" ?,1y(B) ; LATIN SMALL LETTER U WITH GRAVE
("UF" ?,2y(B) ; LATIN CAPITAL LETTER U WITH GRAVE
("Uf" ?,2y(B)
("us" ?,1z(B) ; LATIN SMALL LETTER U WITH ACUTE
("US" ?,2z(B) ; LATIN CAPITAL LETTER U WITH ACUTE
("Us" ?,2z(B)
("ys" ?,1}(B) ; LATIN SMALL LETTER Y WITH ACUTE
("YS" ?,2}(B) ; LATIN CAPITAL LETTER Y WITH ACUTE
("Ys" ?,2}(B)
("aw" ?,1e(B) ; LATIN SMALL LETTER A WITH BREVE
("AW" ?,2e(B) ; LATIN CAPITAL LETTER A WITH BREVE
("Aw" ?,2e(B)
("ix" ?,1n(B) ; LATIN SMALL LETTER I WITH TILDE
("IX" ?,2n(B) ; LATIN CAPITAL LETTER I WITH TILDE
("Ix" ?,2n(B)
("ux" ?,1{(B) ; LATIN SMALL LETTER U WITH TILDE
("UX" ?,2{(B) ; LATIN CAPITAL LETTER U WITH TILDE
("Ux" ?,2{(B)
("ow" ?,1=(B) ; LATIN SMALL LETTER O WITH HORN
("OW" ?,2=(B) ; LATIN CAPITAL LETTER O WITH HORN
("Ow" ?,2=(B)
("uw" ?,1_(B) ; LATIN SMALL LETTER U WITH HORN
("UW" ?,2_(B) ; LATIN CAPITAL LETTER U WITH HORN
("Uw" ?,2_(B)
("aj" ?,1U(B) ; LATIN SMALL LETTER A WITH DOT BELOW
("AJ" ?,2U(B) ; LATIN CAPITAL LETTER A WITH DOT BELOW
("Aj" ?,2U(B)
("ar" ?,1d(B) ; LATIN SMALL LETTER A WITH HOOK ABOVE
("AR" ?,2d(B) ; LATIN CAPITAL LETTER A WITH HOOK ABOVE
("Ar" ?,2d(B)
("aas" ?,1$(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
("AAS" ?,2$(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
("Aas" ?,2$(B)
("aaf" ?,1%(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
("AAF" ?,2%(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
("Aaf" ?,2%(B)
("aar" ?,1&(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
("AAR" ?,2&(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
("Aar" ?,2&(B)
("aax" ?,1g(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE
("AAX" ?,2g(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
("Aax" ?,2g(B)
("aaj" ?,1'(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
("AAJ" ?,2'(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
("Aaj" ?,2'(B)
("aws" ?,1!(B) ; LATIN SMALL LETTER A WITH BREVE AND ACUTE
("AWS" ?,2!(B) ; LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
("Aws" ?,2!(B)
("awf" ?,1"(B) ; LATIN SMALL LETTER A WITH BREVE AND GRAVE
("AWF" ?,2"(B) ; LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
("Awf" ?,2"(B)
("awr" ?,1F(B) ; LATIN SMALL LETTER A WITH BREVE AND HOOK ABOVE
("AWR" ?,2F(B) ; LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE
("Awr" ?,2F(B)
("awx" ?,1G(B) ; LATIN SMALL LETTER A WITH BREVE AND TILDE
("AWX" ?,2G(B) ; LATIN CAPITAL LETTER A WITH BREVE AND TILDE
("Awx" ?,2G(B)
("awj" ?,1#(B) ; LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
("AWJ" ?,2#(B) ; LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
("Awj" ?,2#(B)
("ej" ?,1)(B) ; LATIN SMALL LETTER E WITH DOT BELOW
("EJ" ?,2)(B) ; LATIN CAPITAL LETTER E WITH DOT BELOW
("Ej" ?,2)(B)
("er" ?,1k(B) ; LATIN SMALL LETTER E WITH HOOK ABOVE
("ER" ?,2k(B) ; LATIN CAPITAL LETTER E WITH HOOK ABOVE
("Er" ?,2k(B)
("ex" ?,1((B) ; LATIN SMALL LETTER E WITH TILDE
("EX" ?,2((B) ; LATIN CAPITAL LETTER E WITH TILDE
("Ex" ?,2((B)
("ees" ?,1*(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
("EES" ?,2*(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
("Ees" ?,2*(B)
("eef" ?,1+(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
("EEF" ?,2+(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
("Eef" ?,2+(B)
("eer" ?,1,(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
("EER" ?,2,(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
("Eer" ?,2,(B)
("eex" ?,1-(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
("EEX" ?,2-(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
("Eex" ?,2-(B)
("eej" ?,1.(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
("EEJ" ?,2.(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
("Eej" ?,2.(B)
("ir" ?,1o(B) ; LATIN SMALL LETTER I WITH HOOK ABOVE
("IR" ?,2o(B) ; LATIN CAPITAL LETTER I WITH HOOK ABOVE
("Ir" ?,2o(B)
("ij" ?,18(B) ; LATIN SMALL LETTER I WITH DOT BELOW
("IJ" ?,28(B) ; LATIN CAPITAL LETTER I WITH DOT BELOW
("Ij" ?,28(B)
("oj" ?,1w(B) ; LATIN SMALL LETTER O WITH DOT BELOW
("OJ" ?,2w(B) ; LATIN CAPITAL LETTER O WITH DOT BELOW
("Oj" ?,2w(B)
("or" ?,1v(B) ; LATIN SMALL LETTER O WITH HOOK ABOVE
("OR" ?,2v(B) ; LATIN CAPITAL LETTER O WITH HOOK ABOVE
("Or" ?,2v(B)
("oos" ?,1/(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
("OOS" ?,2/(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
("Oos" ?,2/(B)
("oof" ?,10(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
("OOF" ?,20(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
("Oof" ?,20(B)
("oor" ?,11(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
("OOR" ?,21(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
("Oor" ?,21(B)
("oox" ?,12(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
("OOX" ?,22(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
("Oox" ?,22(B)
("ooj" ?,15(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
("OOJ" ?,25(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
("Ooj" ?,25(B)
("ows" ?,1>(B) ; LATIN SMALL LETTER O WITH HORN AND ACUTE
("OWS" ?,2>(B) ; LATIN CAPITAL LETTER O WITH HORN AND ACUTE
("Ows" ?,2>(B)
("owf" ?,16(B) ; LATIN SMALL LETTER O WITH HORN AND GRAVE
("OWF" ?,26(B) ; LATIN CAPITAL LETTER O WITH HORN AND GRAVE
("Owf" ?,26(B)
("owr" ?,17(B) ; LATIN SMALL LETTER O WITH HORN AND HOOK ABOVE
("OWR" ?,27(B) ; LATIN CAPITAL LETTER O WITH HORN AND HOOK ABOVE
("Owr" ?,27(B)
("owx" ?,1^(B) ; LATIN SMALL LETTER O WITH HORN AND TILDE
("OWX" ?,2^(B) ; LATIN CAPITAL LETTER O WITH HORN AND TILDE
("Owx" ?,2^(B)
("owj" ?,1~(B) ; LATIN SMALL LETTER O WITH HORN AND DOT BELOW
("OWJ" ?,2~(B) ; LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW
("Owj" ?,2~(B)
("uj" ?,1x(B) ; LATIN SMALL LETTER U WITH DOT BELOW
("UJ" ?,2x(B) ; LATIN CAPITAL LETTER U WITH DOT BELOW
("Uj" ?,2x(B)
("ur" ?,1|(B) ; LATIN SMALL LETTER U WITH HOOK ABOVE
("UR" ?,2|(B) ; LATIN CAPITAL LETTER U WITH HOOK ABOVE
("Ur" ?,2|(B)
("uws" ?,1Q(B) ; LATIN SMALL LETTER U WITH HORN AND ACUTE
("UWS" ?,2Q(B) ; LATIN CAPITAL LETTER U WITH HORN AND ACUTE
("Uws" ?,2Q(B)
("uwf" ?,1W(B) ; LATIN SMALL LETTER U WITH HORN AND GRAVE
("UWF" ?,2W(B) ; LATIN CAPITAL LETTER U WITH HORN AND GRAVE
("Uwf" ?,2W(B)
("uwr" ?,1X(B) ; LATIN SMALL LETTER U WITH HORN AND HOOK ABOVE
("UWR" ?,2X(B) ; LATIN CAPITAL LETTER U WITH HORN AND HOOK ABOVE
("Uwr" ?,2X(B)
("uwx" ?,1f(B) ; LATIN SMALL LETTER U WITH HORN AND TILDE
("UWX" ?,2f(B) ; LATIN CAPITAL LETTER U WITH HORN AND TILDE
("Uwx" ?,2f(B)
("uwj" ?,1q(B) ; LATIN SMALL LETTER U WITH HORN AND DOT BELOW
("UWJ" ?,2q(B) ; LATIN CAPITAL LETTER U WITH HORN AND DOT BELOW
("Uwj" ?,2q(B)
("yf" ?,1O(B) ; LATIN SMALL LETTER Y WITH GRAVE
("YF" ?,2O(B) ; LATIN CAPITAL LETTER Y WITH GRAVE
("Yf" ?,2O(B)
("yj" ?,1\(B) ; LATIN SMALL LETTER Y WITH DOT BELOW
("YJ" ?,2\(B) ; LATIN CAPITAL LETTER Y WITH DOT BELOW
("Yj" ?,2\(B)
("yr" ?,1V(B) ; LATIN SMALL LETTER Y WITH HOOK ABOVE
("YR" ?,2V(B) ; LATIN CAPITAL LETTER Y WITH HOOK ABOVE
("Yr" ?,2V(B)
("yx" ?,1[(B) ; LATIN SMALL LETTER Y WITH TILDE
("YX" ?,2[(B) ; LATIN CAPITAL LETTER Y WITH TILDE
("Yx" ?,2[(B)
("dd" ?,1p(B) ; LATIN SMALL LETTER D WITH STROKE
("DD" ?,2p(B) ; LATIN CAPITAL LETTER D WITH STROKE
("Dd" ?,2p(B)
;("$$" ?$,1tK(B) ; U+20AB DONG SIGN (#### check)
("af" ?à) ; LATIN SMALL LETTER A WITH GRAVE
("AF" ?À) ; LATIN CAPITAL LETTER A WITH GRAVE
("Af" ?À)
("as" ?á) ; LATIN SMALL LETTER A WITH ACUTE
("AS" ?Á) ; LATIN CAPITAL LETTER A WITH ACUTE
("As" ?Á)
("aa" ?â) ; LATIN SMALL LETTER A WITH CIRCUMFLEX
("AA" ?Â) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
("Aa" ?Â)
("ax" ?ã) ; LATIN SMALL LETTER A WITH TILDE
("AX" ?Ã) ; LATIN CAPITAL LETTER A WITH TILDE
("Ax" ?Ã)
("ef" ?è) ; LATIN SMALL LETTER E WITH GRAVE
("EF" ?È) ; LATIN CAPITAL LETTER E WITH GRAVE
("Ef" ?È)
("es" ?é) ; LATIN SMALL LETTER E WITH ACUTE
("ES" ?É) ; LATIN CAPITAL LETTER E WITH ACUTE
("Es" ?É)
("ee" ?ê) ; LATIN SMALL LETTER E WITH CIRCUMFLEX
("EE" ?Ê) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
("Ee" ?Ê)
("if" ?ì) ; LATIN SMALL LETTER I WITH GRAVE
("IF" ?Ì) ; LATIN CAPITAL LETTER I WITH GRAVE
("If" ?Ì)
("is" ?í) ; LATIN SMALL LETTER I WITH ACUTE
("IS" ?Í) ; LATIN CAPITAL LETTER I WITH ACUTE
("Is" ?Í)
("of" ?ò) ; LATIN SMALL LETTER O WITH GRAVE
("OF" ?Ò) ; LATIN CAPITAL LETTER O WITH GRAVE
("Of" ?Ò)
("os" ?ó) ; LATIN SMALL LETTER O WITH ACUTE
("OS" ?Ó) ; LATIN CAPITAL LETTER O WITH ACUTE
("Os" ?Ó)
("oo" ?ô) ; LATIN SMALL LETTER O WITH CIRCUMFLEX
("OO" ?Ô) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
("Oo" ?Ô)
("ox" ?õ) ; LATIN SMALL LETTER O WITH TILDE
("OX" ?Õ) ; LATIN CAPITAL LETTER O WITH TILDE
("Ox" ?Õ)
("uf" ?ù) ; LATIN SMALL LETTER U WITH GRAVE
("UF" ?Ù) ; LATIN CAPITAL LETTER U WITH GRAVE
("Uf" ?Ù)
("us" ?ú) ; LATIN SMALL LETTER U WITH ACUTE
("US" ?Ú) ; LATIN CAPITAL LETTER U WITH ACUTE
("Us" ?Ú)
("ys" ?ý) ; LATIN SMALL LETTER Y WITH ACUTE
("YS" ?Ý) ; LATIN CAPITAL LETTER Y WITH ACUTE
("Ys" ?Ý)
("aw" ?ă) ; LATIN SMALL LETTER A WITH BREVE
("AW" ?Ă) ; LATIN CAPITAL LETTER A WITH BREVE
("Aw" ?Ă)
("ix" ?ĩ) ; LATIN SMALL LETTER I WITH TILDE
("IX" ?Ĩ) ; LATIN CAPITAL LETTER I WITH TILDE
("Ix" ?Ĩ)
("ux" ?ũ) ; LATIN SMALL LETTER U WITH TILDE
("UX" ?Ũ) ; LATIN CAPITAL LETTER U WITH TILDE
("Ux" ?Ũ)
("ow" ?ơ) ; LATIN SMALL LETTER O WITH HORN
("OW" ?Ơ) ; LATIN CAPITAL LETTER O WITH HORN
("Ow" ?Ơ)
("uw" ?ư) ; LATIN SMALL LETTER U WITH HORN
("UW" ?Ư) ; LATIN CAPITAL LETTER U WITH HORN
("Uw" ?Ư)
("aj" ?ạ) ; LATIN SMALL LETTER A WITH DOT BELOW
("AJ" ?Ạ) ; LATIN CAPITAL LETTER A WITH DOT BELOW
("Aj" ?Ạ)
("ar" ?ả) ; LATIN SMALL LETTER A WITH HOOK ABOVE
("AR" ?Ả) ; LATIN CAPITAL LETTER A WITH HOOK ABOVE
("Ar" ?Ả)
("aas" ?ấ) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
("AAS" ?Ấ) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
("Aas" ?Ấ)
("aaf" ?ầ) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
("AAF" ?Ầ) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
("Aaf" ?Ầ)
("aar" ?ẩ) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
("AAR" ?Ẩ) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
("Aar" ?Ẩ)
("aax" ?ẫ) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE
("AAX" ?Ẫ) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
("Aax" ?Ẫ)
("aaj" ?ậ) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
("AAJ" ?Ậ) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
("Aaj" ?Ậ)
("aws" ?ắ) ; LATIN SMALL LETTER A WITH BREVE AND ACUTE
("AWS" ?Ắ) ; LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
("Aws" ?Ắ)
("awf" ?ằ) ; LATIN SMALL LETTER A WITH BREVE AND GRAVE
("AWF" ?Ằ) ; LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
("Awf" ?Ằ)
("awr" ?ẳ) ; LATIN SMALL LETTER A WITH BREVE AND HOOK ABOVE
("AWR" ?Ẳ) ; LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE
("Awr" ?Ẳ)
("awx" ?ẵ) ; LATIN SMALL LETTER A WITH BREVE AND TILDE
("AWX" ?Ẵ) ; LATIN CAPITAL LETTER A WITH BREVE AND TILDE
("Awx" ?Ẵ)
("awj" ?ặ) ; LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
("AWJ" ?Ặ) ; LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
("Awj" ?Ặ)
("ej" ?ẹ) ; LATIN SMALL LETTER E WITH DOT BELOW
("EJ" ?Ẹ) ; LATIN CAPITAL LETTER E WITH DOT BELOW
("Ej" ?Ẹ)
("er" ?ẻ) ; LATIN SMALL LETTER E WITH HOOK ABOVE
("ER" ?Ẻ) ; LATIN CAPITAL LETTER E WITH HOOK ABOVE
("Er" ?Ẻ)
("ex" ?ẽ) ; LATIN SMALL LETTER E WITH TILDE
("EX" ?Ẽ) ; LATIN CAPITAL LETTER E WITH TILDE
("Ex" ?Ẽ)
("ees" ?ế) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
("EES" ?Ế) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
("Ees" ?Ế)
("eef" ?ề) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
("EEF" ?Ề) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
("Eef" ?Ề)
("eer" ?ể) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
("EER" ?Ể) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
("Eer" ?Ể)
("eex" ?ễ) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
("EEX" ?Ễ) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
("Eex" ?Ễ)
("eej" ?ệ) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
("EEJ" ?Ệ) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
("Eej" ?Ệ)
("ir" ?ỉ) ; LATIN SMALL LETTER I WITH HOOK ABOVE
("IR" ?Ỉ) ; LATIN CAPITAL LETTER I WITH HOOK ABOVE
("Ir" ?Ỉ)
("ij" ?ị) ; LATIN SMALL LETTER I WITH DOT BELOW
("IJ" ?Ị) ; LATIN CAPITAL LETTER I WITH DOT BELOW
("Ij" ?Ị)
("oj" ?ọ) ; LATIN SMALL LETTER O WITH DOT BELOW
("OJ" ?Ọ) ; LATIN CAPITAL LETTER O WITH DOT BELOW
("Oj" ?Ọ)
("or" ?ỏ) ; LATIN SMALL LETTER O WITH HOOK ABOVE
("OR" ?Ỏ) ; LATIN CAPITAL LETTER O WITH HOOK ABOVE
("Or" ?Ỏ)
("oos" ?ố) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
("OOS" ?Ố) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
("Oos" ?Ố)
("oof" ?ồ) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
("OOF" ?Ồ) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
("Oof" ?Ồ)
("oor" ?ổ) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
("OOR" ?Ổ) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
("Oor" ?Ổ)
("oox" ?ỗ) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
("OOX" ?Ỗ) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
("Oox" ?Ỗ)
("ooj" ?ộ) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
("OOJ" ?Ộ) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
("Ooj" ?Ộ)
("ows" ?ớ) ; LATIN SMALL LETTER O WITH HORN AND ACUTE
("OWS" ?Ớ) ; LATIN CAPITAL LETTER O WITH HORN AND ACUTE
("Ows" ?Ớ)
("owf" ?ờ) ; LATIN SMALL LETTER O WITH HORN AND GRAVE
("OWF" ?Ờ) ; LATIN CAPITAL LETTER O WITH HORN AND GRAVE
("Owf" ?Ờ)
("owr" ?ở) ; LATIN SMALL LETTER O WITH HORN AND HOOK ABOVE
("OWR" ?Ở) ; LATIN CAPITAL LETTER O WITH HORN AND HOOK ABOVE
("Owr" ?Ở)
("owx" ?ỡ) ; LATIN SMALL LETTER O WITH HORN AND TILDE
("OWX" ?Ỡ) ; LATIN CAPITAL LETTER O WITH HORN AND TILDE
("Owx" ?Ỡ)
("owj" ?ợ) ; LATIN SMALL LETTER O WITH HORN AND DOT BELOW
("OWJ" ?Ợ) ; LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW
("Owj" ?Ợ)
("uj" ?ụ) ; LATIN SMALL LETTER U WITH DOT BELOW
("UJ" ?Ụ) ; LATIN CAPITAL LETTER U WITH DOT BELOW
("Uj" ?Ụ)
("ur" ?ủ) ; LATIN SMALL LETTER U WITH HOOK ABOVE
("UR" ?Ủ) ; LATIN CAPITAL LETTER U WITH HOOK ABOVE
("Ur" ?Ủ)
("uws" ?ứ) ; LATIN SMALL LETTER U WITH HORN AND ACUTE
("UWS" ?Ứ) ; LATIN CAPITAL LETTER U WITH HORN AND ACUTE
("Uws" ?Ứ)
("uwf" ?ừ) ; LATIN SMALL LETTER U WITH HORN AND GRAVE
("UWF" ?Ừ) ; LATIN CAPITAL LETTER U WITH HORN AND GRAVE
("Uwf" ?Ừ)
("uwr" ?ử) ; LATIN SMALL LETTER U WITH HORN AND HOOK ABOVE
("UWR" ?Ử) ; LATIN CAPITAL LETTER U WITH HORN AND HOOK ABOVE
("Uwr" ?Ử)
("uwx" ?ữ) ; LATIN SMALL LETTER U WITH HORN AND TILDE
("UWX" ?Ữ) ; LATIN CAPITAL LETTER U WITH HORN AND TILDE
("Uwx" ?Ữ)
("uwj" ?ự) ; LATIN SMALL LETTER U WITH HORN AND DOT BELOW
("UWJ" ?Ự) ; LATIN CAPITAL LETTER U WITH HORN AND DOT BELOW
("Uwj" ?Ự)
("yf" ?ỳ) ; LATIN SMALL LETTER Y WITH GRAVE
("YF" ?Ỳ) ; LATIN CAPITAL LETTER Y WITH GRAVE
("Yf" ?Ỳ)
("yj" ?ỵ) ; LATIN SMALL LETTER Y WITH DOT BELOW
("YJ" ?Ỵ) ; LATIN CAPITAL LETTER Y WITH DOT BELOW
("Yj" ?Ỵ)
("yr" ?ỷ) ; LATIN SMALL LETTER Y WITH HOOK ABOVE
("YR" ?Ỷ) ; LATIN CAPITAL LETTER Y WITH HOOK ABOVE
("Yr" ?Ỷ)
("yx" ?ỹ) ; LATIN SMALL LETTER Y WITH TILDE
("YX" ?Ỹ) ; LATIN CAPITAL LETTER Y WITH TILDE
("Yx" ?Ỹ)
("dd" ?đ) ; LATIN SMALL LETTER D WITH STROKE
("DD" ?Đ) ; LATIN CAPITAL LETTER D WITH STROKE
("Dd" ?Đ)
;("$$" ?₫) ; U+20AB DONG SIGN (#### check)
("aff" ["af"])
("AFF" ["AF"])
@ -422,7 +422,7 @@ and postfix: Eee -> Ee, ajj -> aj, etc.
)
;; Local Variables:
;; coding: iso-2022-7bit
;; coding: utf-8
;; End:
;;; vntelex.el ends here

292
leim/quail/vnvni.el
View file

@ -43,21 +43,21 @@ Diacritics:
effect postfix examples
------------------------------
circumflex 6 a6 -> ,Ab(B
breve 8 a8 -> ,1e(B
horn 7 o7 -> ,1=(B
circumflex 6 a6 -> â
breve 8 a8 -> ă
horn 7 o7 -> ơ
acute 1 a1 -> ,1a(B
grave 2 a2 -> ,1`(B
hook above 3 a3 -> ,1d(B
tilde 4 a4 -> ,1c(B
dot below 5 a5 -> ,1U(B
acute 1 a1 -> á
grave 2 a2 -> à
hook above 3 a3 -> ả
tilde 4 a4 -> ã
dot below 5 a5 -> ạ
d bar 9 d9 -> ,1p(B
d bar 9 d9 -> đ
Combinations:
A82 -> ,2"(B, o74 -> ,1^(B, etc.
A82 -> Ằ, o74 -> ỡ, etc.
Doubling the postfix (but not in combinations) separates the letter
and postfix: E66 -> E6, a55 -> a5, etc.
@ -75,141 +75,141 @@ and postfix: E66 -> E6, a55 -> a5, etc.
t) ; SIMPLE
(quail-define-rules
("a2" ?,1`(B) ; LATIN SMALL LETTER A WITH GRAVE
("A2" ?,2`(B) ; LATIN CAPITAL LETTER A WITH GRAVE
("a1" ?,1a(B) ; LATIN SMALL LETTER A WITH ACUTE
("A1" ?,2a(B) ; LATIN CAPITAL LETTER A WITH ACUTE
("a6" ?,1b(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX
("A6" ?,2b(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
("a4" ?,1c(B) ; LATIN SMALL LETTER A WITH TILDE
("A4" ?,2c(B) ; LATIN CAPITAL LETTER A WITH TILDE
("e2" ?,1h(B) ; LATIN SMALL LETTER E WITH GRAVE
("E2" ?,2h(B) ; LATIN CAPITAL LETTER E WITH GRAVE
("e1" ?,1i(B) ; LATIN SMALL LETTER E WITH ACUTE
("E1" ?,2i(B) ; LATIN CAPITAL LETTER E WITH ACUTE
("e6" ?,1j(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX
("E6" ?,2j(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
("i2" ?,1l(B) ; LATIN SMALL LETTER I WITH GRAVE
("I2" ?,2l(B) ; LATIN CAPITAL LETTER I WITH GRAVE
("i1" ?,1m(B) ; LATIN SMALL LETTER I WITH ACUTE
("I1" ?,2m(B) ; LATIN CAPITAL LETTER I WITH ACUTE
("o2" ?,1r(B) ; LATIN SMALL LETTER O WITH GRAVE
("O2" ?,2r(B) ; LATIN CAPITAL LETTER O WITH GRAVE
("o1" ?,1s(B) ; LATIN SMALL LETTER O WITH ACUTE
("O1" ?,2s(B) ; LATIN CAPITAL LETTER O WITH ACUTE
("o6" ?,1t(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX
("O6" ?,2t(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
("o4" ?,1u(B) ; LATIN SMALL LETTER O WITH TILDE
("O4" ?,2u(B) ; LATIN CAPITAL LETTER O WITH TILDE
("u2" ?,1y(B) ; LATIN SMALL LETTER U WITH GRAVE
("U2" ?,2y(B) ; LATIN CAPITAL LETTER U WITH GRAVE
("u1" ?,1z(B) ; LATIN SMALL LETTER U WITH ACUTE
("U1" ?,2z(B) ; LATIN CAPITAL LETTER U WITH ACUTE
("y1" ?,1}(B) ; LATIN SMALL LETTER Y WITH ACUTE
("Y1" ?,2}(B) ; LATIN CAPITAL LETTER Y WITH ACUTE
("a8" ?,1e(B) ; LATIN SMALL LETTER A WITH BREVE
("A8" ?,2e(B) ; LATIN CAPITAL LETTER A WITH BREVE
("i4" ?,1n(B) ; LATIN SMALL LETTER I WITH TILDE
("I4" ?,2n(B) ; LATIN CAPITAL LETTER I WITH TILDE
("u4" ?,1{(B) ; LATIN SMALL LETTER U WITH TILDE
("U4" ?,2{(B) ; LATIN CAPITAL LETTER U WITH TILDE
("o7" ?,1=(B) ; LATIN SMALL LETTER O WITH HORN
("O7" ?,2=(B) ; LATIN CAPITAL LETTER O WITH HORN
("u7" ?,1_(B) ; LATIN SMALL LETTER U WITH HORN
("U7" ?,2_(B) ; LATIN CAPITAL LETTER U WITH HORN
("a5" ?,1U(B) ; LATIN SMALL LETTER A WITH DOT BELOW
("A5" ?,2U(B) ; LATIN CAPITAL LETTER A WITH DOT BELOW
("a3" ?,1d(B) ; LATIN SMALL LETTER A WITH HOOK ABOVE
("A3" ?,2d(B) ; LATIN CAPITAL LETTER A WITH HOOK ABOVE
("a61" ?,1$(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
("A61" ?,2$(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
("a62" ?,1%(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
("A62" ?,2%(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
("a63" ?,1&(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND HO6K ABOVE
("A63" ?,2&(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HO6K ABOVE
("a64" ?,1g(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE
("A64" ?,2g(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
("a65" ?,1'(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
("A65" ?,2'(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
("a81" ?,1!(B) ; LATIN SMALL LETTER A WITH BREVE AND ACUTE
("A81" ?,2!(B) ; LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
("a82" ?,1"(B) ; LATIN SMALL LETTER A WITH BREVE AND GRAVE
("A82" ?,2"(B) ; LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
("a83" ?,1F(B) ; LATIN SMALL LETTER A WITH BREVE AND HO6K ABOVE
("A83" ?,2F(B) ; LATIN CAPITAL LETTER A WITH BREVE AND HO6K ABOVE
("a84" ?,1G(B) ; LATIN SMALL LETTER A WITH BREVE AND TILDE
("A84" ?,2G(B) ; LATIN CAPITAL LETTER A WITH BREVE AND TILDE
("a85" ?,1#(B) ; LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
("A85" ?,2#(B) ; LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
("e5" ?,1)(B) ; LATIN SMALL LETTER E WITH DOT BELOW
("E5" ?,2)(B) ; LATIN CAPITAL LETTER E WITH DOT BELOW
("e3" ?,1k(B) ; LATIN SMALL LETTER E WITH HO6K ABOVE
("E3" ?,2k(B) ; LATIN CAPITAL LETTER E WITH HO6K ABOVE
("e4" ?,1((B) ; LATIN SMALL LETTER E WITH TILDE
("E4" ?,2((B) ; LATIN CAPITAL LETTER E WITH TILDE
("e61" ?,1*(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
("E61" ?,2*(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
("e62" ?,1+(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
("E62" ?,2+(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
("e63" ?,1,(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND HO6K ABOVE
("E63" ?,2,(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HO6K ABOVE
("e64" ?,1-(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
("E64" ?,2-(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
("e65" ?,1.(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
("E65" ?,2.(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
("i3" ?,1o(B) ; LATIN SMALL LETTER I WITH HO6K ABOVE
("I3" ?,2o(B) ; LATIN CAPITAL LETTER I WITH HO6K ABOVE
("i5" ?,18(B) ; LATIN SMALL LETTER I WITH DOT BELOW
("I5" ?,28(B) ; LATIN CAPITAL LETTER I WITH DOT BELOW
("o5" ?,1w(B) ; LATIN SMALL LETTER O WITH DOT BELOW
("O5" ?,2w(B) ; LATIN CAPITAL LETTER O WITH DOT BELOW
("o3" ?,1v(B) ; LATIN SMALL LETTER O WITH HO6K ABOVE
("O3" ?,2v(B) ; LATIN CAPITAL LETTER O WITH HO6K ABOVE
("o61" ?,1/(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
("O61" ?,2/(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
("o62" ?,10(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
("O62" ?,20(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
("o63" ?,11(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND HO6K ABOVE
("O63" ?,21(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HO6K ABOVE
("o64" ?,12(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
("O64" ?,22(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
("o65" ?,15(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELO7
("O65" ?,25(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELO7
("o71" ?,1>(B) ; LATIN SMALL LETTER O WITH HORN AND ACUTE
("O71" ?,2>(B) ; LATIN CAPITAL LETTER O WITH HORN AND ACUTE
("o72" ?,16(B) ; LATIN SMALL LETTER O WITH HORN AND GRAVE
("O72" ?,26(B) ; LATIN CAPITAL LETTER O WITH HORN AND GRAVE
("o73" ?,17(B) ; LATIN SMALL LETTER O WITH HORN AND HO6K ABOVE
("O73" ?,27(B) ; LATIN CAPITAL LETTER O WITH HORN AND HO6K ABOVE
("o74" ?,1^(B) ; LATIN SMALL LETTER O WITH HORN AND TILDE
("O74" ?,2^(B) ; LATIN CAPITAL LETTER O WITH HORN AND TILDE
("o75" ?,1~(B) ; LATIN SMALL LETTER O WITH HORN AND DOT BELO7
("O75" ?,2~(B) ; LATIN CAPITAL LETTER O WITH HORN AND DOT BELO7
("u5" ?,1x(B) ; LATIN SMALL LETTER U WITH DOT BELO7
("U5" ?,2x(B) ; LATIN CAPITAL LETTER U WITH DOT BELO7
("u3" ?,1|(B) ; LATIN SMALL LETTER U WITH HO6K ABOVE
("U3" ?,2|(B) ; LATIN CAPITAL LETTER U WITH HO6K ABOVE
("u71" ?,1Q(B) ; LATIN SMALL LETTER U WITH HORN AND ACUTE
("U71" ?,2Q(B) ; LATIN CAPITAL LETTER U WITH HORN AND ACUTE
("u72" ?,1W(B) ; LATIN SMALL LETTER U WITH HORN AND GRAVE
("U72" ?,2W(B) ; LATIN CAPITAL LETTER U WITH HORN AND GRAVE
("u73" ?,1X(B) ; LATIN SMALL LETTER U WITH HORN AND HO6K ABOVE
("U73" ?,2X(B) ; LATIN CAPITAL LETTER U WITH HORN AND HO6K ABOVE
("u74" ?,1f(B) ; LATIN SMALL LETTER U WITH HORN AND TILDE
("U74" ?,2f(B) ; LATIN CAPITAL LETTER U WITH HORN AND TILDE
("u75" ?,1q(B) ; LATIN SMALL LETTER U WITH HORN AND DOT BELO7
("U75" ?,2q(B) ; LATIN CAPITAL LETTER U WITH HORN AND DOT BELO7
("y2" ?,1O(B) ; LATIN SMALL LETTER Y WITH GRAVE
("Y2" ?,2O(B) ; LATIN CAPITAL LETTER Y WITH GRAVE
("y5" ?,1\(B) ; LATIN SMALL LETTER Y WITH DOT BELO7
("Y5" ?,2\(B) ; LATIN CAPITAL LETTER Y WITH DOT BELO7
("y3" ?,1V(B) ; LATIN SMALL LETTER Y WITH HO6K ABOVE
("Y3" ?,2V(B) ; LATIN CAPITAL LETTER Y WITH HO6K ABOVE
("y4" ?,1[(B) ; LATIN SMALL LETTER Y WITH TILDE
("Y4" ?,2[(B) ; LATIN CAPITAL LETTER Y WITH TILDE
("d9" ?,1p(B) ; LATIN SMALL LETTER D WITH STROKE
("D9" ?,2p(B) ; LATIN CAPITAL LETTER D WITH STROKE
;("$$" ?$,1tK(B) ; U+20AB DONG SIGN (#### check)
("a2" ?à) ; LATIN SMALL LETTER A WITH GRAVE
("A2" ?À) ; LATIN CAPITAL LETTER A WITH GRAVE
("a1" ?á) ; LATIN SMALL LETTER A WITH ACUTE
("A1" ?Á) ; LATIN CAPITAL LETTER A WITH ACUTE
("a6" ?â) ; LATIN SMALL LETTER A WITH CIRCUMFLEX
("A6" ?Â) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
("a4" ?ã) ; LATIN SMALL LETTER A WITH TILDE
("A4" ?Ã) ; LATIN CAPITAL LETTER A WITH TILDE
("e2" ?è) ; LATIN SMALL LETTER E WITH GRAVE
("E2" ?È) ; LATIN CAPITAL LETTER E WITH GRAVE
("e1" ?é) ; LATIN SMALL LETTER E WITH ACUTE
("E1" ?É) ; LATIN CAPITAL LETTER E WITH ACUTE
("e6" ?ê) ; LATIN SMALL LETTER E WITH CIRCUMFLEX
("E6" ?Ê) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
("i2" ?ì) ; LATIN SMALL LETTER I WITH GRAVE
("I2" ?Ì) ; LATIN CAPITAL LETTER I WITH GRAVE
("i1" ?í) ; LATIN SMALL LETTER I WITH ACUTE
("I1" ?Í) ; LATIN CAPITAL LETTER I WITH ACUTE
("o2" ?ò) ; LATIN SMALL LETTER O WITH GRAVE
("O2" ?Ò) ; LATIN CAPITAL LETTER O WITH GRAVE
("o1" ?ó) ; LATIN SMALL LETTER O WITH ACUTE
("O1" ?Ó) ; LATIN CAPITAL LETTER O WITH ACUTE
("o6" ?ô) ; LATIN SMALL LETTER O WITH CIRCUMFLEX
("O6" ?Ô) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
("o4" ?õ) ; LATIN SMALL LETTER O WITH TILDE
("O4" ?Õ) ; LATIN CAPITAL LETTER O WITH TILDE
("u2" ?ù) ; LATIN SMALL LETTER U WITH GRAVE
("U2" ?Ù) ; LATIN CAPITAL LETTER U WITH GRAVE
("u1" ?ú) ; LATIN SMALL LETTER U WITH ACUTE
("U1" ?Ú) ; LATIN CAPITAL LETTER U WITH ACUTE
("y1" ?ý) ; LATIN SMALL LETTER Y WITH ACUTE
("Y1" ?Ý) ; LATIN CAPITAL LETTER Y WITH ACUTE
("a8" ?ă) ; LATIN SMALL LETTER A WITH BREVE
("A8" ?Ă) ; LATIN CAPITAL LETTER A WITH BREVE
("i4" ?ĩ) ; LATIN SMALL LETTER I WITH TILDE
("I4" ?Ĩ) ; LATIN CAPITAL LETTER I WITH TILDE
("u4" ?ũ) ; LATIN SMALL LETTER U WITH TILDE
("U4" ?Ũ) ; LATIN CAPITAL LETTER U WITH TILDE
("o7" ?ơ) ; LATIN SMALL LETTER O WITH HORN
("O7" ?Ơ) ; LATIN CAPITAL LETTER O WITH HORN
("u7" ?ư) ; LATIN SMALL LETTER U WITH HORN
("U7" ?Ư) ; LATIN CAPITAL LETTER U WITH HORN
("a5" ?ạ) ; LATIN SMALL LETTER A WITH DOT BELOW
("A5" ?Ạ) ; LATIN CAPITAL LETTER A WITH DOT BELOW
("a3" ?ả) ; LATIN SMALL LETTER A WITH HOOK ABOVE
("A3" ?Ả) ; LATIN CAPITAL LETTER A WITH HOOK ABOVE
("a61" ?ấ) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
("A61" ?Ấ) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
("a62" ?ầ) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
("A62" ?Ầ) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
("a63" ?ẩ) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND HO6K ABOVE
("A63" ?Ẩ) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HO6K ABOVE
("a64" ?ẫ) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE
("A64" ?Ẫ) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
("a65" ?ậ) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
("A65" ?Ậ) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
("a81" ?ắ) ; LATIN SMALL LETTER A WITH BREVE AND ACUTE
("A81" ?Ắ) ; LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
("a82" ?ằ) ; LATIN SMALL LETTER A WITH BREVE AND GRAVE
("A82" ?Ằ) ; LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
("a83" ?ẳ) ; LATIN SMALL LETTER A WITH BREVE AND HO6K ABOVE
("A83" ?Ẳ) ; LATIN CAPITAL LETTER A WITH BREVE AND HO6K ABOVE
("a84" ?ẵ) ; LATIN SMALL LETTER A WITH BREVE AND TILDE
("A84" ?Ẵ) ; LATIN CAPITAL LETTER A WITH BREVE AND TILDE
("a85" ?ặ) ; LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
("A85" ?Ặ) ; LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
("e5" ?ẹ) ; LATIN SMALL LETTER E WITH DOT BELOW
("E5" ?Ẹ) ; LATIN CAPITAL LETTER E WITH DOT BELOW
("e3" ?ẻ) ; LATIN SMALL LETTER E WITH HO6K ABOVE
("E3" ?Ẻ) ; LATIN CAPITAL LETTER E WITH HO6K ABOVE
("e4" ?ẽ) ; LATIN SMALL LETTER E WITH TILDE
("E4" ?Ẽ) ; LATIN CAPITAL LETTER E WITH TILDE
("e61" ?ế) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
("E61" ?Ế) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
("e62" ?ề) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
("E62" ?Ề) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
("e63" ?ể) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND HO6K ABOVE
("E63" ?Ể) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HO6K ABOVE
("e64" ?ễ) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
("E64" ?Ễ) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
("e65" ?ệ) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
("E65" ?Ệ) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
("i3" ?ỉ) ; LATIN SMALL LETTER I WITH HO6K ABOVE
("I3" ?Ỉ) ; LATIN CAPITAL LETTER I WITH HO6K ABOVE
("i5" ?ị) ; LATIN SMALL LETTER I WITH DOT BELOW
("I5" ?Ị) ; LATIN CAPITAL LETTER I WITH DOT BELOW
("o5" ?ọ) ; LATIN SMALL LETTER O WITH DOT BELOW
("O5" ?Ọ) ; LATIN CAPITAL LETTER O WITH DOT BELOW
("o3" ?ỏ) ; LATIN SMALL LETTER O WITH HO6K ABOVE
("O3" ?Ỏ) ; LATIN CAPITAL LETTER O WITH HO6K ABOVE
("o61" ?ố) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
("O61" ?Ố) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
("o62" ?ồ) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
("O62" ?Ồ) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
("o63" ?ổ) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND HO6K ABOVE
("O63" ?Ổ) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HO6K ABOVE
("o64" ?ỗ) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
("O64" ?Ỗ) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
("o65" ?ộ) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELO7
("O65" ?Ộ) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELO7
("o71" ?ớ) ; LATIN SMALL LETTER O WITH HORN AND ACUTE
("O71" ?Ớ) ; LATIN CAPITAL LETTER O WITH HORN AND ACUTE
("o72" ?ờ) ; LATIN SMALL LETTER O WITH HORN AND GRAVE
("O72" ?Ờ) ; LATIN CAPITAL LETTER O WITH HORN AND GRAVE
("o73" ?ở) ; LATIN SMALL LETTER O WITH HORN AND HO6K ABOVE
("O73" ?Ở) ; LATIN CAPITAL LETTER O WITH HORN AND HO6K ABOVE
("o74" ?ỡ) ; LATIN SMALL LETTER O WITH HORN AND TILDE
("O74" ?Ỡ) ; LATIN CAPITAL LETTER O WITH HORN AND TILDE
("o75" ?ợ) ; LATIN SMALL LETTER O WITH HORN AND DOT BELO7
("O75" ?Ợ) ; LATIN CAPITAL LETTER O WITH HORN AND DOT BELO7
("u5" ?ụ) ; LATIN SMALL LETTER U WITH DOT BELO7
("U5" ?Ụ) ; LATIN CAPITAL LETTER U WITH DOT BELO7
("u3" ?ủ) ; LATIN SMALL LETTER U WITH HO6K ABOVE
("U3" ?Ủ) ; LATIN CAPITAL LETTER U WITH HO6K ABOVE
("u71" ?ứ) ; LATIN SMALL LETTER U WITH HORN AND ACUTE
("U71" ?Ứ) ; LATIN CAPITAL LETTER U WITH HORN AND ACUTE
("u72" ?ừ) ; LATIN SMALL LETTER U WITH HORN AND GRAVE
("U72" ?Ừ) ; LATIN CAPITAL LETTER U WITH HORN AND GRAVE
("u73" ?ử) ; LATIN SMALL LETTER U WITH HORN AND HO6K ABOVE
("U73" ?Ử) ; LATIN CAPITAL LETTER U WITH HORN AND HO6K ABOVE
("u74" ?ữ) ; LATIN SMALL LETTER U WITH HORN AND TILDE
("U74" ?Ữ) ; LATIN CAPITAL LETTER U WITH HORN AND TILDE
("u75" ?ự) ; LATIN SMALL LETTER U WITH HORN AND DOT BELO7
("U75" ?Ự) ; LATIN CAPITAL LETTER U WITH HORN AND DOT BELO7
("y2" ?ỳ) ; LATIN SMALL LETTER Y WITH GRAVE
("Y2" ?Ỳ) ; LATIN CAPITAL LETTER Y WITH GRAVE
("y5" ?ỵ) ; LATIN SMALL LETTER Y WITH DOT BELO7
("Y5" ?Ỵ) ; LATIN CAPITAL LETTER Y WITH DOT BELO7
("y3" ?ỷ) ; LATIN SMALL LETTER Y WITH HO6K ABOVE
("Y3" ?Ỷ) ; LATIN CAPITAL LETTER Y WITH HO6K ABOVE
("y4" ?ỹ) ; LATIN SMALL LETTER Y WITH TILDE
("Y4" ?Ỹ) ; LATIN CAPITAL LETTER Y WITH TILDE
("d9" ?đ) ; LATIN SMALL LETTER D WITH STROKE
("D9" ?Đ) ; LATIN CAPITAL LETTER D WITH STROKE
;("$$" ?₫) ; U+20AB DONG SIGN (#### check)
("a22" ["a22"])
("A22" ["A2"])
@ -301,5 +301,5 @@ and postfix: E66 -> E6, a55 -> a5, etc.
;; Local Variables:
;; coding: iso-2022-7bit
;; coding: utf-8
;; End:

288
leim/quail/welsh.el
View file

@ -1,4 +1,4 @@
;;; welsh.el --- Quail package for inputting Welsh characters -*-coding: iso-2022-7bit;-*-
;;; welsh.el --- Quail package for inputting Welsh characters -*-coding: utf-8;-*-
;; Copyright (C) 2001-2013 Free Software Foundation, Inc.
@ -29,173 +29,173 @@
(require 'quail)
(quail-define-package
"welsh" "Welsh" "$,1!4(B" t
"welsh" "Welsh" "Ŵ" t
"Welsh postfix input method"
nil t nil nil nil nil nil nil nil nil t)
(quail-define-rules
("A\\" ?,A@(B)
("A/" ?,AA(B)
("A^" ?,AB(B)
("A+" ?,AB(B)
("A\"" ?,AD(B)
("a\\" ?,A`(B)
("a/" ?,Aa(B)
("a^" ?,Ab(B)
("a+" ?,Ab(B)
("a\"" ?,Ad(B)
("A\\" ?À)
("A/" ?Á)
("A^" ?Â)
("A+" ?Â)
("A\"" ?Ä)
("a\\" ?à)
("a/" ?á)
("a^" ?â)
("a+" ?â)
("a\"" ?ä)
("E\\" ?,AH(B)
("E/" ?,AI(B)
("E^" ?,AJ(B)
("E+" ?,AJ(B)
("E\"" ?,AK(B)
("e\\" ?,Ah(B)
("e/" ?,Ai(B)
("e^" ?,Aj(B)
("e+" ?,Aj(B)
("e\"" ?,Ak(B)
("E\\" ?È)
("E/" ?É)
("E^" ?Ê)
("E+" ?Ê)
("E\"" ?Ë)
("e\\" ?è)
("e/" ?é)
("e^" ?ê)
("e+" ?ê)
("e\"" ?ë)
("I\\" ?,AL(B)
("I/" ?,AM(B)
("I^" ?,AN(B)
("I+" ?,AN(B)
("I\"" ?,AO(B)
("i\\" ?,Al(B)
("i/" ?,Am(B)
("i^" ?,An(B)
("i+" ?,An(B)
("i\"" ?,Ao(B)
("I\\" ?Ì)
("I/" ?Í)
("I^" ?Î)
("I+" ?Î)
("I\"" ?Ï)
("i\\" ?ì)
("i/" ?í)
("i^" ?î)
("i+" ?î)
("i\"" ?ï)
("O\\" ?,AR(B)
("O/" ?,AS(B)
("O^" ?,AT(B)
("O+" ?,AT(B)
("O\"" ?,AV(B)
("o\\" ?,Ar(B)
("o/" ?,As(B)
("o^" ?,At(B)
("o+" ?,At(B)
("o\"" ?,Av(B)
("O\\" ?Ò)
("O/" ?Ó)
("O^" ?Ô)
("O+" ?Ô)
("O\"" ?Ö)
("o\\" ?ò)
("o/" ?ó)
("o^" ?ô)
("o+" ?ô)
("o\"" ?ö)
("U\\" ?,AY(B)
("U/" ?,AZ(B)
("U^" ?,A[(B)
("U+" ?,A[(B)
("U\"" ?,A\(B)
("u\\" ?,Ay(B)
("u/" ?,Az(B)
("u^" ?,A{(B)
("u+" ?,A{(B)
("u\"" ?,A|(B)
("U\\" ?Ù)
("U/" ?Ú)
("U^" ?Û)
("U+" ?Û)
("U\"" ?Ü)
("u\\" ?ù)
("u/" ?ú)
("u^" ?û)
("u+" ?û)
("u\"" ?ü)
("Y\\" ?$,1or(B)
("Y/" ?,A](B)
("Y^" ?$,1!6(B)
("Y+" ?$,1!6(B)
("Y\"" ?$,1!8(B)
("y\\" ?$,1os(B)
("y/" ?,A}(B)
("y\"" ?,A(B)
("y^" ?$,1!7(B)
("y+" ?$,1!7(B)
("Y\\" ?Ỳ)
("Y/" ?Ý)
("Y^" ?Ŷ)
("Y+" ?Ŷ)
("Y\"" ?Ÿ)
("y\\" ?ỳ)
("y/" ?ý)
("y\"" ?ÿ)
("y^" ?ŷ)
("y+" ?ŷ)
("W\\" ?$,1n`(B)
("W/" ?$,1nb(B)
("W^" ?$,1!4(B)
("W+" ?$,1!4(B)
("W\"" ?$,1nd(B)
("w\\" ?$,1na(B)
("w/" ?$,1nc(B)
("w^" ?$,1!5(B)
("w+" ?$,1!5(B)
("w\"" ?$,1ne(B)
("W\\" ?Ẁ)
("W/" ?Ẃ)
("W^" ?Ŵ)
("W+" ?Ŵ)
("W\"" ?Ẅ)
("w\\" ?ẁ)
("w/" ?ẃ)
("w^" ?ŵ)
("w+" ?ŵ)
("w\"" ?ẅ)
;; "hawlfraint" (copyright). Dyma arwyddlun hawlfraint.
("(h)" ?$,1W(B))
("(h)" ?ⓗ))
;; (quail-define-package
;; "welsh" "Welsh" "$,1!4(B" t
;; "welsh" "Welsh" "Ŵ" t
;; "Welsh postfix input method, using Latin-8"
;; nil t nil nil nil nil nil nil nil nil t)
;; (quail-define-rules
;; ("A\\" ?,A@(B)
;; ("A/" ?,AA(B)
;; ("A^" ?,AB(B)
;; ("A+" ?,AB(B)
;; ("A\"" ?,AD(B)
;; ("a\\" ?,A`(B)
;; ("a/" ?,Aa(B)
;; ("a^" ?,Ab(B)
;; ("a+" ?,Ab(B)
;; ("a\"" ?,Ad(B)
;; ("A\\" ?À)
;; ("A/" ?Á)
;; ("A^" ?Â)
;; ("A+" ?Â)
;; ("A\"" ?Ä)
;; ("a\\" ?à)
;; ("a/" ?á)
;; ("a^" ?â)
;; ("a+" ?â)
;; ("a\"" ?ä)
;; ("E\\" ?,AH(B)
;; ("E/" ?,AI(B)
;; ("E^" ?,AJ(B)
;; ("E+" ?,AJ(B)
;; ("E\"" ?,AK(B)
;; ("e\\" ?,Ah(B)
;; ("e/" ?,Ai(B)
;; ("e^" ?,Aj(B)
;; ("e+" ?,Aj(B)
;; ("e\"" ?,Ak(B)
;; ("E\\" ?È)
;; ("E/" ?É)
;; ("E^" ?Ê)
;; ("E+" ?Ê)
;; ("E\"" ?Ë)
;; ("e\\" ?è)
;; ("e/" ?é)
;; ("e^" ?ê)
;; ("e+" ?ê)
;; ("e\"" ?ë)
;; ("I\\" ?,AL(B)
;; ("I/" ?,AM(B)
;; ("I^" ?,AN(B)
;; ("I+" ?,AN(B)
;; ("I\"" ?,AO(B)
;; ("i\\" ?,Al(B)
;; ("i/" ?,Am(B)
;; ("i^" ?,An(B)
;; ("i+" ?,An(B)
;; ("i\"" ?,Ao(B)
;; ("I\\" ?Ì)
;; ("I/" ?Í)
;; ("I^" ?Î)
;; ("I+" ?Î)
;; ("I\"" ?Ï)
;; ("i\\" ?ì)
;; ("i/" ?í)
;; ("i^" ?î)
;; ("i+" ?î)
;; ("i\"" ?ï)
;; ("O\\" ?,AR(B)
;; ("O/" ?,AS(B)
;; ("O^" ?,AT(B)
;; ("O+" ?,AT(B)
;; ("O\"" ?,AV(B)
;; ("o\\" ?,Ar(B)
;; ("o/" ?,As(B)
;; ("o^" ?,At(B)
;; ("o+" ?,At(B)
;; ("o\"" ?,Av(B)
;; ("O\\" ?Ò)
;; ("O/" ?Ó)
;; ("O^" ?Ô)
;; ("O+" ?Ô)
;; ("O\"" ?Ö)
;; ("o\\" ?ò)
;; ("o/" ?ó)
;; ("o^" ?ô)
;; ("o+" ?ô)
;; ("o\"" ?ö)
;; ("U\\" ?,AY(B)
;; ("U/" ?,AZ(B)
;; ("U^" ?,A[(B)
;; ("U+" ?,A[(B)
;; ("U\"" ?,A\(B)
;; ("u\\" ?,Ay(B)
;; ("u/" ?,Az(B)
;; ("u^" ?,A{(B)
;; ("u+" ?,A{(B)
;; ("u\"" ?,A|(B)
;; ("U\\" ?Ù)
;; ("U/" ?Ú)
;; ("U^" ?Û)
;; ("U+" ?Û)
;; ("U\"" ?Ü)
;; ("u\\" ?ù)
;; ("u/" ?ú)
;; ("u^" ?û)
;; ("u+" ?û)
;; ("u\"" ?ü)
;; ("Y\\" ?,A,(B)
;; ("Y/" ?,A](B)
;; ("Y^" ?,A^(B)
;; ("Y+" ?,A^(B)
;; ("Y\"" ?,A/(B)
;; ("y\\" ?,A<(B)
;; ("y/" ?,A}(B)
;; ("y\"" ?,A(B)
;; ("y^" ?,A~(B)
;; ("y+" ?,A~(B)
;; ("Y\\" ?¬)
;; ("Y/" ?Ý)
;; ("Y^" ?Þ)
;; ("Y+" ?Þ)
;; ("Y\"" ?¯)
;; ("y\\" ?¼)
;; ("y/" ?ý)
;; ("y\"" ?ÿ)
;; ("y^" ?þ)
;; ("y+" ?þ)
;; ("W\\" ?,A((B)
;; ("W/" ?,A*(B)
;; ("W^" ?,AP(B)
;; ("W+" ?,AP(B)
;; ("W\"" ?,A=(B)
;; ("w\\" ?,A8(B)
;; ("w/" ?,A:(B)
;; ("w^" ?,Ap(B)
;; ("w+" ?,Ap(B)
;; ("w\"" ?,A>(B))
;; ("W\\" ?¨)
;; ("W/" ?ª)
;; ("W^" ?Ð)
;; ("W+" ?Ð)
;; ("W\"" ?½)
;; ("w\\" ?¸)
;; ("w/" ?º)
;; ("w^" ?ð)
;; ("w+" ?ð)
;; ("w\"" ?¾))
;;; welsh.el ends here

6
lib-src/ChangeLog
View file

@ -14,10 +14,6 @@
(socket_connection) [!HAVE_KRB5_ERROR_TEXT && HAVE_KRB5_ERROR_E_TEXT]:
Use ERROR_MAX, not ERRMAX.
2013-03-16 Glenn Morris <rgm@gnu.org>
* Version 24.3 released.
2013-03-13 Paul Eggert <eggert@cs.ucla.edu>
File synchronization fixes (Bug#13944).
@ -3728,7 +3724,7 @@
2002-03-05 Francesco Potortì <pot@gnu.org>
* etags.c: Honour #line directives.
* etags.c: Honor #line directives.
(no_line_directive): New global var; set it for old behavior.
(main): Remove some #ifdef in the getopt switch.
(add_node, put_entries): Code added to merge different chunks of

89
lisp/ChangeLog
View file

@ -1,3 +1,86 @@
2013-04-05 Michael Albinus <michael.albinus@gmx.de>
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode): Let-bind `auto-revert-use-notify' to
nil during initialization, in order not to miss changes since the
file was opened. (Bug#14140)
2013-04-05 Leo Liu <sdl.web@gmail.com>
* kmacro.el (kmacro-call-macro): Fix bug#14135.
2013-04-05 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-units.el (calc-convert-units): Rewrite conditional.
2013-04-04 Glenn Morris <rgm@gnu.org>
* electric.el (electric-pair-inhibit-predicate): Add :version.
2013-04-04 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/package.el (package-compute-transaction): Fix ordering
when a package is required several times (bug#14082).
2013-04-04 Roland Winkler <winkler@gnu.org>
* faces.el (read-face-name): Behave as promised by the docstring.
Assume that arg default is a list of faces.
(describe-face): Call read-face-name with list of default faces.
2013-04-04 Thierry Volpiatto <thierry.volpiatto@gmail.com>
* bookmark.el: Fix deletion of bookmarks (bug#13972).
(bookmark-bmenu-list): Don't toggle filenames if alist is empty.
(bookmark-bmenu-execute-deletions): Only skip first line if it's
the header.
(bookmark-exit-hook-internal): Save even if list is empty.
2013-04-04 Yann Hodique <yann.hodique@gmail.com> (tiny change)
* emacs-lisp/package.el (package-pinned-packages): New var.
(package--add-to-archive-contents): Obey it (bug#14118).
2013-04-03 Alan Mackenzie <acm@muc.de>
Handle `parse-partial-sexp' landing inside a comment opener
(Bug#13244). Also adapt to the new values of element 7 of a parse
state.
* progmodes/cc-engine.el (c-state-pp-to-literal): New optional
parameter `not-in-delimiter'. Handle being inside comment opener.
(c-invalidate-state-cache-1): Reckon with an extra "invalid"
character in case we're typing a '*' after a '/'.
(c-literal-limits): Handle the awkward "not-in-delimiter" cond arm
instead by passing the parameter to c-state-pp-to-literal.
* progmodes/cc-fonts.el (c-font-lock-doc-comments): New handling
for elt. 7 of a parse state.
2013-04-01 Paul Eggert <eggert@cs.ucla.edu>
Use UTF-8 for most files with non-ASCII characters (Bug#13936).
* international/latin1-disp.el, international/mule-util.el:
* language/cyril-util.el, language/european.el, language/ind-util.el:
* language/lao-util.el, language/thai.el, language/tibet-util.el:
* language/tibetan.el, language/viet-util.el:
Switch from iso-2022-7bit to utf-8 or (if needed) utf-8-emacs.
2013-04-01 Stefan Monnier <monnier@iro.umontreal.ca>
* electric.el (electric-pair-inhibit-predicate): New var (bug#14000).
(electric-pair-post-self-insert-function): Use it.
(electric-pair-default-inhibit): New function, extracted from
electric-pair-post-self-insert-function.
2013-03-31 Roland Winkler <winkler@gnu.org>
* emacs-lisp/crm.el (completing-read-multiple): Doc fix.
2013-03-31 Stefan Monnier <monnier@iro.umontreal.ca>
* hi-lock.el (hi-lock-mode): Cleanup after revert-buffer (bug#13891).
2013-03-30 Fabián Ezequiel Gallina <fabian@anue.biz>
Un-indent after "pass" and "return" statements (Bug#13888)
@ -338,10 +421,6 @@
* thingatpt.el (end-of-sexp): Fix bug#13952. Use syntax-after.
2013-03-16 Glenn Morris <rgm@gnu.org>
* Version 24.3 released.
2013-03-16 Eli Zaretskii <eliz@gnu.org>
* startup.el (command-line-normalize-file-name): Fix handling of
@ -5500,7 +5579,7 @@
* term/ns-win.el (ns-read-file-name): Update declaration to match
nsfns.m.
(ns-respond-to-change-font): Change fontsize separatly so we are sure
(ns-respond-to-change-font): Change fontsize separately so we are sure
it is set when font is acted upon.
2012-10-07 Fabián Ezequiel Gallina <fgallina@cuca>

2
lisp/ChangeLog.10
View file

@ -19493,7 +19493,7 @@
* menu-bar.el (menu-bar-showhide-scroll-bar-menu):
Quote `window-system'.
* tmm.el (tmm-get-keymap): Honour :visible in `menu-item'.
* tmm.el (tmm-get-keymap): Honor :visible in `menu-item'.
Add Keywords header. Update Commentary section.
Update copyright notice.

11
lisp/autorevert.el
View file

@ -367,8 +367,9 @@ without being changed in the part that is already in the buffer."
(delq (current-buffer) auto-revert-buffer-list)))
(auto-revert-set-timer)
(when auto-revert-mode
(auto-revert-buffers)
(setq auto-revert-tail-mode nil)))
(let (auto-revert-use-notify)
(auto-revert-buffers)
(setq auto-revert-tail-mode nil))))
;;;###autoload
@ -422,7 +423,8 @@ Use `auto-revert-mode' for changes other than appends!"
(y-or-n-p "File changed on disk, content may be missing. \
Perform a full revert? ")
;; Use this (not just revert-buffer) for point-preservation.
(auto-revert-handler))
(let (auto-revert-use-notify)
(auto-revert-handler)))
;; else we might reappend our own end when we save
(add-hook 'before-save-hook (lambda () (auto-revert-tail-mode 0)) nil t)
(or (local-variable-p 'auto-revert-tail-pos) ; don't lose prior position
@ -467,7 +469,8 @@ specifies in the mode line."
:global t :group 'auto-revert :lighter global-auto-revert-mode-text
(auto-revert-set-timer)
(if global-auto-revert-mode
(auto-revert-buffers)
(let (auto-revert-use-notify)
(auto-revert-buffers))
(dolist (buf (buffer-list))
(with-current-buffer buf
(when auto-revert-use-notify

10
lisp/bookmark.el
View file

@ -1582,8 +1582,8 @@ deletion, or > if it is flagged for displaying."
(if bookmark-bmenu-use-header-line
(bookmark-bmenu-set-header)
(forward-line bookmark-bmenu-inline-header-height))
(if bookmark-bmenu-toggle-filenames
(bookmark-bmenu-toggle-filenames t))))
(when (and bookmark-alist bookmark-bmenu-toggle-filenames)
(bookmark-bmenu-toggle-filenames t))))
;;;###autoload
(defalias 'list-bookmarks 'bookmark-bmenu-list)
@ -1998,7 +1998,8 @@ To carry out the deletions that you've marked, use \\<bookmark-bmenu-mode-map>\\
(progn (end-of-line) (point))))))
(o-col (current-column)))
(goto-char (point-min))
(forward-line 1)
(unless bookmark-bmenu-use-header-line
(forward-line 1))
(while (re-search-forward "^D" (point-max) t)
(bookmark-delete (bookmark-bmenu-bookmark) t)) ; pass BATCH arg
(bookmark-bmenu-list)
@ -2186,8 +2187,7 @@ strings returned are not."
"Save bookmark state, if necessary, at Emacs exit time.
This also runs `bookmark-exit-hook'."
(run-hooks 'bookmark-exit-hook)
(and bookmark-alist
(bookmark-time-to-save-p t)
(and (bookmark-time-to-save-p t)
(bookmark-save)))
(unless noninteractive

6
lisp/calc/calc-units.el
View file

@ -437,7 +437,7 @@ If COMP or STD is non-nil, put that in the units table instead."
(list new-units (car default-units))
math-default-units-table))))))
(defvar calc-allow-units-as-numbers)
(defvar calc-allow-units-as-numbers t)
(defun calc-convert-units (&optional old-units new-units)
(interactive)
@ -451,7 +451,9 @@ If COMP or STD is non-nil, put that in the units table instead."
defunits)
(if (or (not (math-units-in-expr-p expr t))
(setq unitscancel (and
calc-allow-units-as-numbers
(if (get 'calc-allow-units-as-numbers 'saved-value)
(car (get 'calc-allow-units-as-numbers 'saved-value))
calc-allow-units-as-numbers)
(eq (math-get-standard-units expr) 1))))
(let ((uold (or old-units
(progn

8
lisp/calc/calc.el
View file

@ -426,14 +426,6 @@ when converting units."
:version "24.3"
:type 'boolean)
(defcustom calc-allow-units-as-numbers
t
"If non-nil, allow unit expressions to be treated like numbers
when converting units, if the expression can be simplified to be unitless."
:group 'calc
:version "24.4"
:type 'boolean)
(defcustom calc-undo-length
100
"The number of undo steps that will be preserved when Calc is quit."

4
lisp/cedet/ede/cpp-root.el
View file

@ -347,7 +347,7 @@ exist, it should return nil."
:documentation
"Compilation command that will be used for this project.
It could be string or function that will accept proj argument and should return string.
The string will be passed to 'compuile' function that will be issued in root
The string will be passed to 'compile' function that will be issued in root
directory of project."
)
)
@ -509,7 +509,7 @@ This is for project include paths and spp source files."
(table (when expfile
(semanticdb-file-table-object expfile)))
)
(cond
(cond
((not (file-exists-p expfile))
(message "Cannot find file %s in project." F))
((string= expfile (buffer-file-name))

2
lisp/cedet/semantic/tag-ls.el
View file

@ -151,7 +151,7 @@ See `semantic-tag-similar-p' for details."
;; Added for performance when testing a relatively common case in some uses
;; of this code.
(eq tag1 tag2)
;; More complex similarness test.
;; More complex similarity test.
(let* ((ignore (append ignorable-attributes semantic-tag-similar-ignorable-attributes))
(A1 (and (semantic--tag-similar-names-p tag1 tag2 (memq :name ignore))
(semantic--tag-similar-types-p tag1 tag2)

28
lisp/electric.el
View file

@ -302,6 +302,27 @@ This can be convenient for people who find it easier to hit ) than C-f."
:version "24.1"
:type 'boolean)
(defcustom electric-pair-inhibit-predicate
#'electric-pair-default-inhibit
"Predicate to prevent insertion of a matching pair.
The function is called with a single char (the opening char just inserted).
If it returns non-nil, then `electric-pair-mode' will not insert a matching
closer."
:version "24.4"
:type '(choice
(const :tag "Default" electric-pair-default-inhibit)
(const :tag "Always pair" ignore)
function))
(defun electric-pair-default-inhibit (char)
(or
;; I find it more often preferable not to pair when the
;; same char is next.
(eq char (char-after))
(eq char (char-before (1- (point))))
;; I also find it often preferable not to pair next to a word.
(eq (char-syntax (following-char)) ?w)))
(defun electric-pair-syntax (command-event)
(and electric-pair-mode
(let ((x (assq command-event electric-pair-pairs)))
@ -351,12 +372,7 @@ This can be convenient for people who find it easier to hit ) than C-f."
;; Insert matching pair.
((not (or (not (memq syntax `(?\( ?\" ?\$)))
overwrite-mode
;; I find it more often preferable not to pair when the
;; same char is next.
(eq last-command-event (char-after))
(eq last-command-event (char-before (1- (point))))
;; I also find it often preferable not to pair next to a word.
(eq (char-syntax (following-char)) ?w)))
(funcall electric-pair-inhibit-predicate last-command-event)))
(save-excursion (insert closer))))))
(defun electric-pair-will-use-region ()

5
lisp/emacs-lisp/crm.el
View file

@ -263,7 +263,8 @@ Completion is available on a per-element basis. For example, if the
contents of the minibuffer are 'alice,bob,eve' and point is between
'l' and 'i', pressing TAB operates on the element 'alice'.
The return value of this function is a list of the read strings.
The return value of this function is a list of the read strings
with empty strings removed.
See the documentation for `completing-read' for details on the arguments:
PROMPT, TABLE, PREDICATE, REQUIRE-MATCH, INITIAL-INPUT, HIST, DEF, and
@ -287,7 +288,7 @@ INHERIT-INPUT-METHOD."
prompt initial-input map
nil hist def inherit-input-method)))
(and def (string-equal input "") (setq input def))
;; Ignore empty strings in the list of return values.
;; Remove empty strings in the list of read strings.
(split-string input crm-separator t)))
(remove-hook 'choose-completion-string-functions
'crm--choose-completion-string)))

2
lisp/emacs-lisp/edebug.el
View file

@ -3818,7 +3818,7 @@ Options:
edebug--mode-saved-vars)
(set (make-local-variable var) val))
;; Append `edebug-kill-buffer' to the hook to avoid interfering with
;; other entries that are ungarded against deleted buffer.
;; other entries that are unguarded against deleted buffer.
(add-hook 'kill-buffer-hook 'edebug-kill-buffer t t)))
(defun edebug-kill-buffer ()

35
lisp/emacs-lisp/package.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Tromey <tromey@redhat.com>
;; Created: 10 Mar 2007
;; Version: 1.0
;; Version: 1.0.1
;; Keywords: tools
;; This file is part of GNU Emacs.
@ -234,11 +234,28 @@ a package can run arbitrary code."
:group 'package
:version "24.1")
(defcustom package-pinned-packages nil
"An alist of packages that are pinned to a specific archive
Each element has the form (SYM . ID).
SYM is a package, as a symbol.
ID is an archive name, as a string. This should correspond to an
entry in `package-archives'.
If the archive of name ID does not contain the package SYM, no
other location will be considered, which will make the
package unavailable."
:type '(alist :key-type (symbol :tag "Package")
:value-type (string :tag "Archive name"))
:risky t
:group 'package
:version "24.4")
(defconst package-archive-version 1
"Version number of the package archive understood by this file.
Lower version numbers than this will probably be understood as well.")
(defconst package-el-version "1.0"
(defconst package-el-version "1.0.1"
"Version of package.el.")
;; We don't prime the cache since it tends to get out of date.
@ -794,7 +811,10 @@ but version %s required"
(package-version-join (package-desc-vers (cdr pkg-desc)))))
;; Only add to the transaction if we don't already have it.
(unless (memq next-pkg package-list)
(push next-pkg package-list))
(setq package-list
;; Move to front, so it gets installed early enough
;; (bug#14082).
(cons next-pkg (delq next-pkg package-list))))
(setq package-list
(package-compute-transaction package-list
(package-desc-reqs
@ -857,8 +877,13 @@ Also, add the originating archive to the end of the package vector."
(version (package-desc-vers (cdr package)))
(entry (cons name
(vconcat (cdr package) (vector archive))))
(existing-package (assq name package-archive-contents)))
(cond ((not existing-package)
(existing-package (assq name package-archive-contents))
(pinned-to-archive (assoc name package-pinned-packages)))
(cond ((and pinned-to-archive
;; If pinned to another archive, skip entirely.
(not (equal (cdr pinned-to-archive) archive)))
nil)
((not existing-package)
(add-to-list 'package-archive-contents entry))
((version-list-< (package-desc-vers (cdr existing-package))
version)

112
lisp/faces.el
View file

@ -935,80 +935,79 @@ a colon.
The optional argument DEFAULT specifies the default face name(s)
to return if the user just types RET. If its value is non-nil,
it should be a list of face names (symbols); in that case, the
default return value is the `car' of DEFAULT (if the argument
it should be a list of face names (symbols or strings); in that case,
the default return value is the `car' of DEFAULT (if the argument
MULTIPLE is non-nil), or DEFAULT (if MULTIPLE is nil). See below
for the meaning of MULTIPLE.
If DEFAULT is nil, the list of default face names is taken from
the `read-face-name' property of the text at point, or, if that
is nil, from the `face' property of the text at point.
the symbol at point and the `read-face-name' property of the text at point,
or, if that is nil, from the `face' property of the text at point.
This function uses `completing-read-multiple' with \",\" as the
separator character. Thus, the user may enter multiple face
This function uses `completing-read-multiple' with \"[ \\t]*,[ \\t]*\"
as the separator regexp. Thus, the user may enter multiple face
names, separated by commas. The optional argument MULTIPLE
specifies the form of the return value. If MULTIPLE is non-nil,
return a list of face names; if the user entered just one face
name, the return value would be a list of one face name.
Otherwise, return a single face name; if the user entered more
than one face name, return only the first one."
(let ((faceprop (or (get-char-property (point) 'read-face-name)
(get-char-property (point) 'face)))
(aliasfaces nil)
(nonaliasfaces nil)
faces)
;; Try to get a face name from the buffer.
(if (memq (intern-soft (thing-at-point 'symbol)) (face-list))
(setq faces (list (intern-soft (thing-at-point 'symbol)))))
;; Add the named faces that the `face' property uses.
(if (and (listp faceprop)
;; Don't treat an attribute spec as a list of faces.
(not (keywordp (car faceprop)))
(not (memq (car faceprop) '(foreground-color background-color))))
(dolist (f faceprop)
(if (symbolp f)
(push f faces)))
(if (symbolp faceprop)
(push faceprop faces)))
(delete-dups faces)
;; Should we better not generate automagically a value for DEFAULT
;; when `read-face-name' was called with DEFAULT being nil?
;; Such magic is somewhat unusual for a function `read-...'.
;; Also, one cannot skip this magic by means of a suitable
;; value of DEFAULT. It would be cleaner to use
;; (read-face-name prompt (face-at-point)).
(unless default
;; Try to get a default face name from the buffer.
(let ((thing (intern-soft (thing-at-point 'symbol))))
(if (memq thing (face-list))
(setq default (list thing))))
;; Add the named faces that the `read-face-name' or `face' property uses.
(let ((faceprop (or (get-char-property (point) 'read-face-name)
(get-char-property (point) 'face))))
(if (and (listp faceprop)
;; Don't treat an attribute spec as a list of faces.
(not (keywordp (car faceprop)))
(not (memq (car faceprop) '(foreground-color background-color))))
(dolist (face faceprop)
(if (symbolp face)
(push face default)))
(if (symbolp faceprop)
(push faceprop default)))
(delete-dups default)))
;; Build up the completion tables.
;; If we only want one, and the default is more than one,
;; discard the unwanted ones now.
(if (and default (not multiple))
(setq default (list (car default))))
(if default
(setq default (mapconcat (lambda (f)
(if (symbolp f) (symbol-name f) f))
default ", ")))
;; Build up the completion tables.
(let (aliasfaces nonaliasfaces)
(mapatoms (lambda (s)
(if (custom-facep s)
(if (get s 'face-alias)
(push (symbol-name s) aliasfaces)
(push (symbol-name s) nonaliasfaces)))))
;; If we only want one, and the default is more than one,
;; discard the unwanted ones now.
(unless multiple
(if faces
(setq faces (list (car faces)))))
(require 'crm)
(let* ((input
;; Read the input.
(completing-read-multiple
(if (or faces default)
(format "%s (default `%s'): " prompt
(if faces (mapconcat 'symbol-name faces ",")
default))
(format "%s: " prompt))
(completion-table-in-turn nonaliasfaces aliasfaces)
nil t nil 'face-name-history
(if faces (mapconcat 'symbol-name faces ","))))
;; Canonicalize the output.
(output
(cond ((or (equal input "") (equal input '("")))
(or faces (unless (stringp default) default)))
((stringp input)
(mapcar 'intern (split-string input ", *" t)))
((listp input)
(mapcar 'intern input))
(input))))
(let ((faces
;; Read the faces.
(mapcar 'intern
(completing-read-multiple
(if default
(format "%s (default `%s'): " prompt default)
(format "%s: " prompt))
(completion-table-in-turn nonaliasfaces aliasfaces)
nil t nil 'face-name-history default))))
;; Return either a list of faces or just one face.
(if multiple
output
(car output)))))
faces
(car faces)))))
;; Not defined without X, but behind window-system test.
(defvar x-bitmap-file-path)
@ -1363,7 +1362,10 @@ and FRAME defaults to the selected frame.
If the optional argument FRAME is given, report on face FACE in that frame.
If FRAME is t, report on the defaults for face FACE (for new frames).
If FRAME is omitted or nil, use the selected frame."
(interactive (list (read-face-name "Describe face" 'default t)))
(interactive (list (read-face-name "Describe face"
(if (eq 'default (face-at-point))
'(default))
t)))
(let* ((attrs '((:family . "Family")
(:foundry . "Foundry")
(:width . "Width")

32
lisp/gnus/ChangeLog
View file

@ -1,3 +1,33 @@
2013-04-04 Andrew Cohen <cohen@bu.edu>
* nnir.el (gnus-nnir-group-p): New function.
(nnir-possibly-change-group): Use it.
* gnus-msg.el (gnus-setup-message): Use it.
2013-04-04 Katsumi Yamaoka <yamaoka@jpl.org>
* mml.el (mml-minibuffer-read-description): Use `default' insted of
`initial-input' for the argument name.
Suggested by Stefan Monnier <monnier@iro.umontreal.ca>.
2013-04-03 Kevin Layer <layer@known.net> (tiny change)
* mml.el (mml-minibuffer-read-description): Allow passing in a prefix
(used by MH-E).
2013-04-01 Andrew Cohen <cohen@bu.edu>
* nnir.el (nnir-request-update-mark): Improve mark updating in original
group.
* gnus-msg.el (nnir-article-number, nnir-article-group): Autoload to
fix compilation.
2013-03-31 Andrew Cohen <cohen@bu.edu>
* nnir.el (nnir-method-default-engines): And another typo.
2013-03-30 Andrew Cohen <cohen@bu.edu>
* nnir.el (nnir-method-default-engines): Fix typo.
@ -105,7 +135,7 @@
2013-01-30 Christopher Schmidt <christopher@ch.ristopher.com>
* gnus-int.el (gnus-backend-trace-elapsed): New variable.
(gnus-backend-trace): Honour gnus-backend-trace.
(gnus-backend-trace): Honor gnus-backend-trace.
* mml.el (mml-insert-part): Insert closing tag.

23
lisp/gnus/gnus-msg.el
View file

@ -415,6 +415,11 @@ Thank you for your help in stamping out bugs.
(gnus-inews-make-draft-meta-information
,(gnus-group-decoded-name gnus-newsgroup-name) ',articles)))
(autoload 'nnir-article-number "nnir" nil nil 'macro)
(autoload 'nnir-article-group "nnir" nil nil 'macro)
(autoload 'gnus-nnir-group-p "nnir")
(defvar gnus-article-reply nil)
(defmacro gnus-setup-message (config &rest forms)
(let ((winconf (make-symbol "gnus-setup-message-winconf"))
@ -426,17 +431,15 @@ Thank you for your help in stamping out bugs.
`(let ((,winconf (current-window-configuration))
(,winconf-name gnus-current-window-configuration)
(,buffer (buffer-name (current-buffer)))
(,article (or (when (and
(string-match "^nnir:" gnus-newsgroup-name)
gnus-article-reply)
(nnir-article-number gnus-article-reply))
gnus-article-reply))
(,yanked gnus-article-yanked-articles)
(,group (or (when (and
(string-match "^nnir:" gnus-newsgroup-name)
(,article (if (and (gnus-nnir-group-p gnus-newsgroup-name)
gnus-article-reply)
(nnir-article-group gnus-article-reply))
gnus-newsgroup-name))
(nnir-article-number gnus-article-reply)
gnus-article-reply))
(,yanked gnus-article-yanked-articles)
(,group (if (and (gnus-nnir-group-p gnus-newsgroup-name)
gnus-article-reply)
(nnir-article-group gnus-article-reply)
gnus-newsgroup-name))
(message-header-setup-hook
(copy-sequence message-header-setup-hook))
(mbl mml-buffer-list)

4
lisp/gnus/mml.el
View file

@ -1212,8 +1212,8 @@ If not set, `default-directory' will be used."
string
default)))
(defun mml-minibuffer-read-description ()
(let ((description (read-string "One line description: ")))
(defun mml-minibuffer-read-description (&optional default)
(let ((description (read-string "One line description: " default)))
(when (string-match "\\`[ \t]*\\'" description)
(setq description nil))
description))

15
lisp/gnus/nnir.el
View file

@ -588,7 +588,7 @@ Add an entry here when adding a new search engine.")
"*Alist of default search engines keyed by server method."
:version "24.1"
:group 'nnir
:type `(repeat (cons (choice (const nnimap) (const nttp) (const nnspool)
:type `(repeat (cons (choice (const nnimap) (const nntp) (const nnspool)
(const nneething) (const nndir) (const nnmbox)
(const nnml) (const nnmh) (const nndraft)
(const nnfolder) (const nnmaildir))
@ -841,6 +841,11 @@ skips all prompting."
(gnus-summary-read-group-1 backend-article-group t t nil
nil (list backend-article-number))))
(deffoo nnir-request-update-mark (group article mark)
(let ((artgroup (nnir-article-group article))
(artnumber (nnir-article-number article)))
(gnus-request-update-mark artgroup artnumber mark)))
(deffoo nnir-request-update-info (group info &optional server)
(let ((articles-by-group
@ -1702,6 +1707,12 @@ actually)."
;;; Util Code:
(defun gnus-nnir-group-p (group)
"Say whether GROUP is nnir or not."
(if (gnus-group-prefixed-p group)
(eq 'nnir (car (gnus-find-method-for-group group)))
(and group (string-match "^nnir" group))))
(defun nnir-read-parms (nnir-search-engine)
"Reads additional search parameters according to `nnir-engines'."
(let ((parmspec (caddr (assoc nnir-search-engine nnir-engines))))
@ -1749,7 +1760,7 @@ environment unless `not-global' is non-nil."
(defun nnir-possibly-change-group (group &optional server)
(or (not server) (nnir-server-opened server) (nnir-open-server server))
(when (and group (string-match "\\`nnir" group))
(when (gnus-nnir-group-p group)
(setq nnir-artlist (gnus-group-get-parameter
(gnus-group-prefixed-name
(gnus-group-short-name group) '(nnir "nnir"))

4
lisp/hi-lock.el
View file

@ -389,7 +389,9 @@ versions before 22 use the following in your init file:
(define-key-after menu-bar-edit-menu [hi-lock]
(cons "Regexp Highlighting" hi-lock-menu))
(hi-lock-find-patterns)
(add-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook nil t))
(add-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook nil t)
;; Remove regexps from font-lock-keywords (bug#13891).
(add-hook 'change-major-mode-hook (lambda () (hi-lock-mode -1)) nil t))
;; Turned off.
(when (or hi-lock-interactive-patterns
hi-lock-file-patterns)

5716
lisp/international/latin1-disp.el
View file

File diff suppressed because it is too large Load diff

50
lisp/international/mule-util.el
View file

@ -132,38 +132,38 @@ defaults to \"...\"."
;; (("xy" 2 1) . "y")
;; (("xy" 0) . "")
;; (("xy" 3) . "xy")
;; (("$AVP(B" 0) . "")
;; (("$AVP(B" 1) . "")
;; (("$AVP(B" 2) . "$AVP(B")
;; (("$AVP(B" 1 nil ? ) . " ")
;; (("$AVPND(B" 3 1 ? ) . " ")
;; (("x$AVP(Bx" 2) . "x")
;; (("x$AVP(Bx" 3) . "x$AVP(B")
;; (("x$AVP(Bx" 3) . "x$AVP(B")
;; (("x$AVP(Bx" 4 1) . "$AVP(Bx")
;; (("kor$(CGQ(Be$(C1[(Ban" 8 1 ? ) . "or$(CGQ(Be$(C1[(B")
;; (("kor$(CGQ(Be$(C1[(Ban" 7 2 ? ) . "r$(CGQ(Be ")
;; (("中" 0) . "")
;; (("中" 1) . "")
;; (("中" 2) . "中")
;; (("中" 1 nil ? ) . " ")
;; (("中文" 3 1 ? ) . " ")
;; (("x中x" 2) . "x")
;; (("x中x" 3) . "x中")
;; (("x中x" 3) . "x中")
;; (("x中x" 4 1) . "中x")
;; (("kor한e글an" 8 1 ? ) . "or한e글")
;; (("kor한e글an" 7 2 ? ) . "r한e ")
;; (("" 0 nil nil "...") . "")
;; (("x" 3 nil nil "...") . "x")
;; (("$AVP(B" 3 nil nil "...") . "$AVP(B")
;; (("中" 3 nil nil "...") . "中")
;; (("foo" 3 nil nil "...") . "foo")
;; (("foo" 2 nil nil "...") . "fo") ;; XEmacs failure?
;; (("foobar" 6 0 nil "...") . "foobar")
;; (("foobarbaz" 6 nil nil "...") . "foo...")
;; (("foobarbaz" 7 2 nil "...") . "ob...")
;; (("foobarbaz" 9 3 nil "...") . "barbaz")
;; (("$A$3(Bh$A$s(Be$A$K(Bl$A$A(Bl$A$O(Bo" 15 1 ? t) . " h$A$s(Be$A$K(Bl$A$A(Bl$A$O(Bo")
;; (("$A$3(Bh$A$s(Be$A$K(Bl$A$A(Bl$A$O(Bo" 14 1 ? t) . " h$A$s(Be$A$K(Bl$A$A(B...")
;; (("x" 3 nil nil "$(Gemk#(B") . "x")
;; (("$AVP(B" 2 nil nil "$(Gemk#(B") . "$AVP(B")
;; (("$AVP(B" 1 nil ?x "$(Gemk#(B") . "x") ;; XEmacs error
;; (("$AVPND(B" 3 nil ? "$(Gemk#(B") . "$AVP(B ") ;; XEmacs error
;; (("foobarbaz" 4 nil nil "$(Gemk#(B") . "$(Gemk#(B")
;; (("foobarbaz" 5 nil nil "$(Gemk#(B") . "f$(Gemk#(B")
;; (("foobarbaz" 6 nil nil "$(Gemk#(B") . "fo$(Gemk#(B")
;; (("foobarbaz" 8 3 nil "$(Gemk#(B") . "b$(Gemk#(B")
;; (("$A$3(Bh$A$s(Be$A$K(Bl$A$A(Bl$A$O(Bo" 14 4 ?x "$AHU1>$(Gk#(B") . "xe$A$KHU1>$(Gk#(B")
;; (("$A$3(Bh$A$s(Be$A$K(Bl$A$A(Bl$A$O(Bo" 13 4 ?x "$AHU1>$(Gk#(B") . "xex$AHU1>$(Gk#(B")
;; (("こhんeにlちlはo" 15 1 ? t) . " hんeにlちlはo")
;; (("こhんeにlちlはo" 14 1 ? t) . " hんeにlち...")
;; (("x" 3 nil nil "粵語") . "x")
;; (("中" 2 nil nil "粵語") . "中")
;; (("中" 1 nil ?x "粵語") . "x") ;; XEmacs error
;; (("中文" 3 nil ? "粵語") . "中 ") ;; XEmacs error
;; (("foobarbaz" 4 nil nil "粵語") . "粵語")
;; (("foobarbaz" 5 nil nil "粵語") . "f粵語")
;; (("foobarbaz" 6 nil nil "粵語") . "fo粵語")
;; (("foobarbaz" 8 3 nil "粵語") . "b粵語")
;; (("こhんeにlちlはo" 14 4 ?x "日本語") . "xeに日本語")
;; (("こhんeにlちlはo" 13 4 ?x "日本語") . "xex日本語")
;; ))
;; (let (ret)
;; (condition-case e
@ -367,7 +367,7 @@ per-character basis, this may not be accurate."
(provide 'mule-util)
;; Local Variables:
;; coding: iso-2022-7bit
;; coding: utf-8
;; End:
;;; mule-util.el ends here

12
lisp/kmacro.el
View file

@ -631,11 +631,11 @@ others, use \\[kmacro-name-last-macro]."
(> (length (this-single-command-keys)) 1))
;; Used when we're in the process of repeating.
(eq no-repeat 'repeating))
last-input-event))
(last-kbd-macro (or macro last-kbd-macro)))
last-input-event)))
(if end-macro
(kmacro-end-macro arg)
(call-last-kbd-macro arg #'kmacro-loop-setup-function))
(kmacro-end-macro arg) ; modifies last-kbd-macro
(let ((last-kbd-macro (or macro last-kbd-macro)))
(call-last-kbd-macro arg #'kmacro-loop-setup-function)))
(when (consp arg)
(setq arg (car arg)))
(when (and (or (null arg) (> arg 0))
@ -658,7 +658,9 @@ others, use \\[kmacro-name-last-macro]."
(define-key map (vector repeat-key)
`(lambda () (interactive)
(kmacro-call-macro ,(and kmacro-call-repeat-with-arg arg)
'repeating nil ,last-kbd-macro)))
'repeating nil ,(if end-macro
last-kbd-macro
(or macro last-kbd-macro)))))
map)))))

210
lisp/language/cyril-util.el
View file

@ -71,124 +71,124 @@ If the argument is nil, we return the display table to its standard state."
(if (null cyrillic-language)
(setq standard-display-table (make-display-table))
(aset standard-display-table ?,LP(B [?a])
(aset standard-display-table ?,LQ(B [?b])
(aset standard-display-table ?,LR(B [?v])
(aset standard-display-table ?,LS(B [?g])
(aset standard-display-table ?,LT(B [?d])
(aset standard-display-table ?,LU(B [?e])
(aset standard-display-table ?,Lq(B [?y ?o])
(aset standard-display-table ?,LV(B [?z ?h])
(aset standard-display-table ?,LW(B [?z])
(aset standard-display-table ?,LX(B [?i])
(aset standard-display-table ?,LY(B [?j])
(aset standard-display-table ?,LZ(B [?k])
(aset standard-display-table ?,L[(B [?l])
(aset standard-display-table ?,L\(B [?m])
(aset standard-display-table ?,L](B [?n])
(aset standard-display-table ?,L^(B [?o])
(aset standard-display-table ?,L_(B [?p])
(aset standard-display-table ?,L`(B [?r])
(aset standard-display-table ?,La(B [?s])
(aset standard-display-table ?,Lb(B [?t])
(aset standard-display-table ?,Lc(B [?u])
(aset standard-display-table ?,Ld(B [?f])
(aset standard-display-table ?,Le(B [?k ?h])
(aset standard-display-table ?,Lf(B [?t ?s])
(aset standard-display-table ?,Lg(B [?c ?h])
(aset standard-display-table ?,Lh(B [?s ?h])
(aset standard-display-table ?,Li(B [?s ?c ?h])
(aset standard-display-table ?,Lj(B [?~])
(aset standard-display-table ?,Lk(B [?y])
(aset standard-display-table ?,Ll(B [?'])
(aset standard-display-table ?,Lm(B [?e ?'])
(aset standard-display-table ?,Ln(B [?y ?u])
(aset standard-display-table ?,Lo(B [?y ?a])
(aset standard-display-table ?а [?a])
(aset standard-display-table ?б [?b])
(aset standard-display-table ?в [?v])
(aset standard-display-table ?г [?g])
(aset standard-display-table ?д [?d])
(aset standard-display-table ?е [?e])
(aset standard-display-table ?ё [?y ?o])
(aset standard-display-table ?ж [?z ?h])
(aset standard-display-table ?з [?z])
(aset standard-display-table ?и [?i])
(aset standard-display-table ?й [?j])
(aset standard-display-table ?к [?k])
(aset standard-display-table ?л [?l])
(aset standard-display-table ?м [?m])
(aset standard-display-table ?н [?n])
(aset standard-display-table ?о [?o])
(aset standard-display-table ?п [?p])
(aset standard-display-table ?р [?r])
(aset standard-display-table ?с [?s])
(aset standard-display-table ?т [?t])
(aset standard-display-table ?у [?u])
(aset standard-display-table ?ф [?f])
(aset standard-display-table ?х [?k ?h])
(aset standard-display-table ?ц [?t ?s])
(aset standard-display-table ?ч [?c ?h])
(aset standard-display-table ?ш [?s ?h])
(aset standard-display-table ?щ [?s ?c ?h])
(aset standard-display-table ?ъ [?~])
(aset standard-display-table ?ы [?y])
(aset standard-display-table ?ь [?'])
(aset standard-display-table ?э [?e ?'])
(aset standard-display-table ?ю [?y ?u])
(aset standard-display-table ?я [?y ?a])
(aset standard-display-table ?,L0(B [?A])
(aset standard-display-table ?,L1(B [?B])
(aset standard-display-table ?,L2(B [?V])
(aset standard-display-table ?,L3(B [?G])
(aset standard-display-table ?,L4(B [?D])
(aset standard-display-table ?,L5(B [?E])
(aset standard-display-table ?,L!(B [?Y ?o])
(aset standard-display-table ?,L6(B [?Z ?h])
(aset standard-display-table ?,L7(B [?Z])
(aset standard-display-table ?,L8(B [?I])
(aset standard-display-table ?,L9(B [?J])
(aset standard-display-table ?,L:(B [?K])
(aset standard-display-table ?,L;(B [?L])
(aset standard-display-table ?,L<(B [?M])
(aset standard-display-table ?,L=(B [?N])
(aset standard-display-table ?,L>(B [?O])
(aset standard-display-table ?,L?(B [?P])
(aset standard-display-table ?,L@(B [?R])
(aset standard-display-table ?,LA(B [?S])
(aset standard-display-table ?,LB(B [?T])
(aset standard-display-table ?,LC(B [?U])
(aset standard-display-table ?,LD(B [?F])
(aset standard-display-table ?,LE(B [?K ?h])
(aset standard-display-table ?,LF(B [?T ?s])
(aset standard-display-table ?,LG(B [?C ?h])
(aset standard-display-table ?,LH(B [?S ?h])
(aset standard-display-table ?,LI(B [?S ?c ?h])
(aset standard-display-table ?,LJ(B [?~])
(aset standard-display-table ?,LK(B [?Y])
(aset standard-display-table ?,LL(B [?'])
(aset standard-display-table ?,LM(B [?E ?'])
(aset standard-display-table ?,LN(B [?Y ?u])
(aset standard-display-table ?,LO(B [?Y ?a])
(aset standard-display-table ?А [?A])
(aset standard-display-table ?Б [?B])
(aset standard-display-table ?В [?V])
(aset standard-display-table ?Г [?G])
(aset standard-display-table ?Д [?D])
(aset standard-display-table ?Е [?E])
(aset standard-display-table ?Ё [?Y ?o])
(aset standard-display-table ?Ж [?Z ?h])
(aset standard-display-table ?З [?Z])
(aset standard-display-table ?И [?I])
(aset standard-display-table ?Й [?J])
(aset standard-display-table ?К [?K])
(aset standard-display-table ?Л [?L])
(aset standard-display-table ?М [?M])
(aset standard-display-table ?Н [?N])
(aset standard-display-table ?О [?O])
(aset standard-display-table ?П [?P])
(aset standard-display-table ?Р [?R])
(aset standard-display-table ?С [?S])
(aset standard-display-table ?Т [?T])
(aset standard-display-table ?У [?U])
(aset standard-display-table ?Ф [?F])
(aset standard-display-table ?Х [?K ?h])
(aset standard-display-table ?Ц [?T ?s])
(aset standard-display-table ?Ч [?C ?h])
(aset standard-display-table ?Ш [?S ?h])
(aset standard-display-table ?Щ [?S ?c ?h])
(aset standard-display-table ?Ъ [?~])
(aset standard-display-table ?Ы [?Y])
(aset standard-display-table ?Ь [?'])
(aset standard-display-table ?Э [?E ?'])
(aset standard-display-table ?Ю [?Y ?u])
(aset standard-display-table ?Я [?Y ?a])
(aset standard-display-table ?,Lt(B [?i ?e])
(aset standard-display-table ?,Lw(B [?i])
(aset standard-display-table ?,L~(B [?u])
(aset standard-display-table ?,Lr(B [?d ?j])
(aset standard-display-table ?,L{(B [?c ?h ?j])
(aset standard-display-table ?,Ls(B [?g ?j])
(aset standard-display-table ?,Lu(B [?s])
(aset standard-display-table ?,L|(B [?k])
(aset standard-display-table ?,Lv(B [?i])
(aset standard-display-table ?,Lx(B [?j])
(aset standard-display-table ?,Ly(B [?l ?j])
(aset standard-display-table ?,Lz(B [?n ?j])
(aset standard-display-table ?,L(B [?d ?z])
(aset standard-display-table ?є [?i ?e])
(aset standard-display-table ?ї [?i])
(aset standard-display-table ?ў [?u])
(aset standard-display-table ?ђ [?d ?j])
(aset standard-display-table ?ћ [?c ?h ?j])
(aset standard-display-table ?ѓ [?g ?j])
(aset standard-display-table ?ѕ [?s])
(aset standard-display-table ?ќ [?k])
(aset standard-display-table ?і [?i])
(aset standard-display-table ?ј [?j])
(aset standard-display-table ?љ [?l ?j])
(aset standard-display-table ?њ [?n ?j])
(aset standard-display-table ?џ [?d ?z])
(aset standard-display-table ?,L$(B [?Y ?e])
(aset standard-display-table ?,L'(B [?Y ?i])
(aset standard-display-table ?,L.(B [?U])
(aset standard-display-table ?,L"(B [?D ?j])
(aset standard-display-table ?,L+(B [?C ?h ?j])
(aset standard-display-table ?,L#(B [?G ?j])
(aset standard-display-table ?,L%(B [?S])
(aset standard-display-table ?,L,(B [?K])
(aset standard-display-table ?,L&(B [?I])
(aset standard-display-table ?,L((B [?J])
(aset standard-display-table ?,L)(B [?L ?j])
(aset standard-display-table ?,L*(B [?N ?j])
(aset standard-display-table ?,L/(B [?D ?j])
(aset standard-display-table ?Є [?Y ?e])
(aset standard-display-table ?Ї [?Y ?i])
(aset standard-display-table ?Ў [?U])
(aset standard-display-table ?Ђ [?D ?j])
(aset standard-display-table ?Ћ [?C ?h ?j])
(aset standard-display-table ?Ѓ [?G ?j])
(aset standard-display-table ?Ѕ [?S])
(aset standard-display-table ?Ќ [?K])
(aset standard-display-table ?І [?I])
(aset standard-display-table ?Ј [?J])
(aset standard-display-table ?Љ [?L ?j])
(aset standard-display-table ?Њ [?N ?j])
(aset standard-display-table ?Џ [?D ?j])
(when (equal cyrillic-language "Bulgarian")
(aset standard-display-table ?,Li(B [?s ?h ?t])
(aset standard-display-table ?,LI(B [?S ?h ?t])
(aset standard-display-table ?,Ln(B [?i ?u])
(aset standard-display-table ?,LN(B [?I ?u])
(aset standard-display-table ?,Lo(B [?i ?a])
(aset standard-display-table ?,LO(B [?I ?a]))
(aset standard-display-table ?щ [?s ?h ?t])
(aset standard-display-table ?Щ [?S ?h ?t])
(aset standard-display-table ?ю [?i ?u])
(aset standard-display-table ?Ю [?I ?u])
(aset standard-display-table ?я [?i ?a])
(aset standard-display-table ?Я [?I ?a]))
(when (equal cyrillic-language "Ukrainian") ; based on the official
; transliteration table
(aset standard-display-table ?,LX(B [?y])
(aset standard-display-table ?,L8(B [?Y])
(aset standard-display-table ?,LY(B [?i])
(aset standard-display-table ?,L9(B [?Y])
(aset standard-display-table ?,Ln(B [?i ?u])
(aset standard-display-table ?,Lo(B [?i ?a]))))
(aset standard-display-table ?и [?y])
(aset standard-display-table ?И [?Y])
(aset standard-display-table ?й [?i])
(aset standard-display-table ?Й [?Y])
(aset standard-display-table ?ю [?i ?u])
(aset standard-display-table ?я [?i ?a]))))
;;
(provide 'cyril-util)
;; Local Variables:
;; coding: iso-2022-7bit
;; coding: utf-8
;; End:
;;; cyril-util.el ends here

32
lisp/language/european.el
View file

@ -1,4 +1,4 @@
;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*-
;;; european.el --- support for European languages -*- coding: utf-8; -*-
;; Copyright (C) 1997-1998, 2000-2013 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
@ -43,7 +43,7 @@
(unibyte-display . iso-latin-1)
(input-method . "latin-1-prefix")
(sample-text
. "Hello, Hej, Tere, Hei, Bonjour, Gr$(D+d)N(B Gott, Ciao, $(D"B(BHola!")
. "Hello, Hej, Tere, Hei, Bonjour, Grüß Gott, Ciao, ¡Hola!")
(documentation . "\
This language environment is a generic one for the Latin-1 (ISO-8859-1)
character set which supports the following European languages:
@ -241,7 +241,7 @@ See also the Turkish environment."))
(unibyte-display . iso-latin-8)
(input-method . "latin-8-prefix")
;; Fixme: Welsh/Ga{e}lic greetings
(sample-text . ",_"(B $(D+q(B $(D*t(B")
(sample-text . "ḃ ŵ Ŷ")
(documentation . "\
This language environment is a generic one for the Latin-8 (ISO-8859-14)
character set which supports the Celtic languages, including those not
@ -271,7 +271,7 @@ covered by other ISO-8859 character sets:
(unibyte-display . iso-latin-9)
(input-method . "latin-9-prefix")
(sample-text
. "AVE. $(D*^+^*v+v)-)M*s(B $(Q)!(B")
. "AVE. ŠšŽžŒœŸ €")
(documentation . "\
This language environment is a generic one for the Latin-9 (ISO-8859-15)
character set which supports the same languages as Latin-1 with the
@ -427,7 +427,7 @@ but it selects the Dutch tutorial and input method."))
(unibyte-display . iso-latin-1)
(sample-text . "\
German (Deutsch Nord) Guten Tag
German (Deutsch S$(D+d(Bd) Gr$(D+d)N(B Gott")
German (Deutsch Süd) Grüß Gott")
(documentation . "\
This language environment is almost the same as Latin-1,
but sets the default input method to \"german-postfix\".
@ -442,7 +442,7 @@ Additionally, it selects the German tutorial."))
(nonascii-translation . iso-8859-1)
(unibyte-display . iso-latin-1)
(input-method . "latin-1-prefix")
(sample-text . "French (Fran$(D+.(Bais) Bonjour, Salut")
(sample-text . "French (Français) Bonjour, Salut")
(documentation . "\
This language environment is almost the same as Latin-1,
but it selects the French tutorial and input method."))
@ -471,7 +471,7 @@ Additionally, it selects the Italian tutorial."))
(input-method . "slovenian")
(unibyte-display . iso-8859-2)
(tutorial . "TUTORIAL.sl")
(sample-text . "$(D*v(Belimo vam uspe$(D+^(Ben dan!")
(sample-text . "Želimo vam uspešen dan!")
(documentation . "\
This language environment is almost the same as Latin-2,
but it selects the Slovenian tutorial and input method."))
@ -485,7 +485,7 @@ but it selects the Slovenian tutorial and input method."))
(input-method . "spanish-postfix")
(nonascii-translation . iso-8859-1)
(unibyte-display . iso-latin-1)
(sample-text . "Spanish (Espa$(D+P(Bol) $(D"B(BHola!")
(sample-text . "Spanish (Español) ¡Hola!")
(documentation . "\
This language environment is almost the same as Latin-1,
but it sets the default input method to \"spanish-postfix\",
@ -504,25 +504,25 @@ and it selects the Spanish tutorial."))
(nonascii-translation . iso-8859-9)
(unibyte-display . iso-latin-5)
(input-method . "turkish-postfix")
(sample-text . "Turkish (T$(D+d(Brk$(D+.(Be) Merhaba")
(sample-text . "Turkish (Türkçe) Merhaba")
(setup-function . turkish-case-conversion-enable)
(setup-function . turkish-case-conversion-disable)
(documentation . "Support for Turkish.
Differs from the Latin-5 environment in using the `turkish-postfix' input
method and applying Turkish case rules for the characters i, I, $(D)E(B, $(D*D(B.")))
method and applying Turkish case rules for the characters i, I, ı, İ.")))
(defun turkish-case-conversion-enable ()
"Set up Turkish case conversion of `i' and `I' into `$(D*D(B' and `$(D)E(B'."
"Set up Turkish case conversion of `i' and `I' into `İ' and `ı'."
(let ((table (standard-case-table)))
(set-case-syntax-pair ?$(D*D(B ?i table)
(set-case-syntax-pair ?I ?$(D)E(B table)))
(set-case-syntax-pair ?İ ?i table)
(set-case-syntax-pair ?I ?ı table)))
(defun turkish-case-conversion-disable ()
"Set up normal (non-Turkish) case conversion of `i' into `I'."
(let ((table (standard-case-table)))
(set-case-syntax-pair ?I ?i table)
(set-case-syntax ?$(D*D(B "w" table)
(set-case-syntax ?$(D)E(B "w" table)))
(set-case-syntax ?İ "w" table)
(set-case-syntax ?ı "w" table)))
;; Polish ISO 8859-2 environment.
;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl>
@ -536,7 +536,7 @@ method and applying Turkish case rules for the characters i, I, $(D)E(B, $(D*
(nonascii-translation . iso-8859-2)
(unibyte-display . iso-8859-2)
(tutorial . "TUTORIAL.pl")
(sample-text . "P$(D+Q(Bjd$(D+u(B, ki$(D+M(B-$(D+w(Be t$(D+8(B chmurno$(D+\++(B w g$(D)H+((Bb flaszy")
(sample-text . "Pójdź, kiń-że tę chmurność w głąb flaszy")
(documentation . t))
'("European"))

1098
lisp/language/ind-util.el
View file

File diff suppressed because it is too large Load diff

436
lisp/language/lao-util.el
View file

@ -1,4 +1,4 @@
;;; lao-util.el --- utilities for Lao -*- coding: iso-2022-7bit; -*-
;;; lao-util.el --- utilities for Lao -*- coding: utf-8; -*-
;; Copyright (C) 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
@ -38,100 +38,100 @@
(define-category ?v "Lao upper/lower vowel" lao-category-table)
(define-category ?t "Lao tone" lao-category-table)
(let ((l '((?(1!(B consonant "LETTER KOR KAI'" "CHICKEN")
(?(1"(B consonant "LETTER KHOR KHAI'" "EGG")
(?(1#(B invalid nil)
(?(1$(B consonant "LETTER QHOR QHWARGN" "BUFFALO")
(?(1%(B invalid nil)
(let ((l '((?ກ consonant "LETTER KOR KAI'" "CHICKEN")
(?ຂ consonant "LETTER KHOR KHAI'" "EGG")
(?຃ invalid nil)
(?ຄ consonant "LETTER QHOR QHWARGN" "BUFFALO")
(?຅ invalid nil)
(? invalid nil)
(?(1'(B consonant "LETTER NGOR NGUU" "SNAKE")
(?(1((B consonant "LETTER JOR JUA" "BUDDHIST NOVICE")
(?(1)(B invalid nil)
(?(1*(B consonant "LETTER XOR X\"ARNG" "ELEPHANT")
(?(1+(B invalid nil)
(?(1,(B invalid nil)
(?(1-(B consonant "LETTER YOR YUNG" "MOSQUITO")
(?(1.(B invalid nil)
(?(1.(B invalid nil)
(?(1.(B invalid nil)
(?(1.(B invalid nil)
(?(1.(B invalid nil)
(?(1.(B invalid nil)
(?(14(B consonant "LETTER DOR DANG" "NOSE")
(?(15(B consonant "LETTER TOR TAR" "EYE")
(?(16(B consonant "LETTER THOR THUNG" "TO ASK,QUESTION")
(?(17(B consonant "LETTER DHOR DHARM" "FLAG")
(?(18(B invalid nil)
(?(19(B consonant "LETTER NOR NOK" "BIRD")
(?(1:(B consonant "LETTER BOR BED" "FISHHOOK")
(?(1;(B consonant "LETTER POR PAR" "FISH")
(?(1<(B consonant "LETTER HPOR HPER\"" "BEE")
(?(1=(B consonant "LETTER FHOR FHAR" "WALL")
(?(1>(B consonant "LETTER PHOR PHUU" "MOUNTAIN")
(?(1?(B consonant "LETTER FOR FAI" "FIRE")
(?(1@(B invalid nil)
(?(1A(B consonant "LETTER MOR MAR\"" "HORSE")
(?(1B(B consonant "LETTER GNOR GNAR" "MEDICINE")
(?(1C(B consonant "LETTER ROR ROD" "CAR")
(?(1D(B invalid nil)
(?(1E(B consonant "LETTER LOR LIING" "MONKEY")
(?(1F(B invalid nil)
(?(1G(B consonant "LETTER WOR WII" "HAND FAN")
(?(1H(B invalid nil)
(?(1I(B invalid nil)
(?(1J(B consonant "LETTER SOR SEA" "TIGER")
(?(1K(B consonant "LETTER HHOR HHAI" "JAR")
(?(1L(B invalid nil)
(?(1M(B consonant "LETTER OR OOW" "TAKE")
(?(1N(B consonant "LETTER HOR HEA" "BOAT")
(?(1O(B special "ELLIPSIS")
(?(1P(B vowel-base "VOWEL SIGN SARA A")
(?(1Q(B vowel-upper "VOWEL SIGN MAI KAN")
(?(1R(B vowel-base "VOWEL SIGN SARA AR")
(?(1S(B vowel-base "VOWEL SIGN SARA AM")
(?(1T(B vowel-upper "VOWEL SIGN SARA I")
(?(1U(B vowel-upper "VOWEL SIGN SARA II")
(?(1V(B vowel-upper "VOWEL SIGN SARA EU")
(?(1W(B vowel-upper "VOWEL SIGN SARA UR")
(?(1X(B vowel-lower "VOWEL SIGN SARA U")
(?(1Y(B vowel-lower "VOWEL SIGN SARA UU")
(?(1Z(B invalid nil)
(?(1[(B vowel-upper "VOWEL SIGN MAI KONG")
(?(1\(B semivowel-lower "SEMIVOWEL SIGN LO")
(?(1](B vowel-base "SEMIVOWEL SIGN SARA IA")
(?(1^(B invalid nil)
(?(1_(B invalid nil)
(?(1`(B vowel-base "VOWEL SIGN SARA EE")
(?(1a(B vowel-base "VOWEL SIGN SARA AA")
(?(1b(B vowel-base "VOWEL SIGN SARA OO")
(?(1c(B vowel-base "VOWEL SIGN SARA EI MAI MUAN\"")
(?(1d(B vowel-base "VOWEL SIGN SARA AI MAI MAY")
(?(1e(B invalid nil)
(?(1f(B special "KO LA (REPETITION)")
(?(1g(B invalid nil)
(?(1h(B tone "TONE MAI EK")
(?(1i(B tone "TONE MAI THO")
(?(1j(B tone "TONE MAI TI")
(?(1k(B tone "TONE MAI JADTAWAR")
(?(1l(B tone "CANCELLATION MARK")
(?(1m(B vowel-upper "VOWEL SIGN SARA OR")
(?(1n(B invalid nil)
(?(1o(B invalid nil)
(?(1p(B special "DIGIT ZERO")
(?(1q(B special "DIGIT ONE")
(?(1r(B special "DIGIT TWO")
(?(1s(B special "DIGIT THREE")
(?(1t(B special "DIGIT FOUR")
(?(1u(B special "DIGIT FIVE")
(?(1v(B special "DIGIT SIX")
(?(1w(B special "DIGIT SEVEN")
(?(1x(B special "DIGIT EIGHT")
(?(1y(B special "DIGIT NINE")
(?(1z(B invalid nil)
(?(1{(B invalid nil)
(?(1|(B consonant "LETTER NHOR NHUU" "MOUSE")
(?(1}(B consonant "LETTER MHOR MHAR" "DOG")
(?(1~(B invalid nil)))
(?ງ consonant "LETTER NGOR NGUU" "SNAKE")
(?ຈ consonant "LETTER JOR JUA" "BUDDHIST NOVICE")
(?ຉ invalid nil)
(?ຊ consonant "LETTER XOR X\"ARNG" "ELEPHANT")
(?຋ invalid nil)
(?ຌ invalid nil)
(?ຍ consonant "LETTER YOR YUNG" "MOSQUITO")
(?ຎ invalid nil)
(?ຎ invalid nil)
(?ຎ invalid nil)
(?ຎ invalid nil)
(?ຎ invalid nil)
(?ຎ invalid nil)
(?ດ consonant "LETTER DOR DANG" "NOSE")
(?ຕ consonant "LETTER TOR TAR" "EYE")
(?ຖ consonant "LETTER THOR THUNG" "TO ASK,QUESTION")
(?ທ consonant "LETTER DHOR DHARM" "FLAG")
(?ຘ invalid nil)
(?ນ consonant "LETTER NOR NOK" "BIRD")
(?ບ consonant "LETTER BOR BED" "FISHHOOK")
(?ປ consonant "LETTER POR PAR" "FISH")
(?ຜ consonant "LETTER HPOR HPER\"" "BEE")
(?ຝ consonant "LETTER FHOR FHAR" "WALL")
(?ພ consonant "LETTER PHOR PHUU" "MOUNTAIN")
(?ຟ consonant "LETTER FOR FAI" "FIRE")
(?ຠ invalid nil)
(?ມ consonant "LETTER MOR MAR\"" "HORSE")
(?ຢ consonant "LETTER GNOR GNAR" "MEDICINE")
(?ຣ consonant "LETTER ROR ROD" "CAR")
(?຤ invalid nil)
(?ລ consonant "LETTER LOR LIING" "MONKEY")
(?຦ invalid nil)
(?ວ consonant "LETTER WOR WII" "HAND FAN")
(?ຨ invalid nil)
(?ຩ invalid nil)
(?ສ consonant "LETTER SOR SEA" "TIGER")
(?ຫ consonant "LETTER HHOR HHAI" "JAR")
(?ຬ invalid nil)
(?ອ consonant "LETTER OR OOW" "TAKE")
(?ຮ consonant "LETTER HOR HEA" "BOAT")
(?ຯ special "ELLIPSIS")
(?ະ vowel-base "VOWEL SIGN SARA A")
(?ັ vowel-upper "VOWEL SIGN MAI KAN")
(?າ vowel-base "VOWEL SIGN SARA AR")
(?ຳ vowel-base "VOWEL SIGN SARA AM")
(?ິ vowel-upper "VOWEL SIGN SARA I")
(?ີ vowel-upper "VOWEL SIGN SARA II")
(?ຶ vowel-upper "VOWEL SIGN SARA EU")
(?ື vowel-upper "VOWEL SIGN SARA UR")
(?ຸ vowel-lower "VOWEL SIGN SARA U")
(?ູ vowel-lower "VOWEL SIGN SARA UU")
(?຺ invalid nil)
(?ົ vowel-upper "VOWEL SIGN MAI KONG")
(?ຼ semivowel-lower "SEMIVOWEL SIGN LO")
(?ຽ vowel-base "SEMIVOWEL SIGN SARA IA")
(?຾ invalid nil)
(?຿ invalid nil)
(?ເ vowel-base "VOWEL SIGN SARA EE")
(?ແ vowel-base "VOWEL SIGN SARA AA")
(?ໂ vowel-base "VOWEL SIGN SARA OO")
(?ໃ vowel-base "VOWEL SIGN SARA EI MAI MUAN\"")
(?ໄ vowel-base "VOWEL SIGN SARA AI MAI MAY")
(?໅ invalid nil)
(?ໆ special "KO LA (REPETITION)")
(?໇ invalid nil)
(?່ tone "TONE MAI EK")
(?້ tone "TONE MAI THO")
(?໊ tone "TONE MAI TI")
(?໋ tone "TONE MAI JADTAWAR")
(?໌ tone "CANCELLATION MARK")
(?ໍ vowel-upper "VOWEL SIGN SARA OR")
(?໎ invalid nil)
(?໏ invalid nil)
(?໐ special "DIGIT ZERO")
(?໑ special "DIGIT ONE")
(?໒ special "DIGIT TWO")
(?໓ special "DIGIT THREE")
(?໔ special "DIGIT FOUR")
(?໕ special "DIGIT FIVE")
(?໖ special "DIGIT SIX")
(?໗ special "DIGIT SEVEN")
(?໘ special "DIGIT EIGHT")
(?໙ special "DIGIT NINE")
(?໚ invalid nil)
(?໛ invalid nil)
(?ໜ consonant "LETTER NHOR NHUU" "MOUSE")
(?ໝ consonant "LETTER MHOR MHAR" "DOG")
(?ໞ invalid nil)))
elm)
(while l
(setq elm (car l) l (cdr l))
@ -185,115 +185,115 @@
(defconst lao-transcription-consonant-alist
(sort '(;; single consonants
("k" . "(1!(B")
("kh" . "(1"(B")
("qh" . "(1$(B")
("ng" . "(1'(B")
("j" . "(1((B")
("s" . "(1J(B")
("x" . "(1*(B")
("y" . "(1-(B")
("d" . "(14(B")
("t" . "(15(B")
("th" . "(16(B")
("dh" . "(17(B")
("n" . "(19(B")
("b" . "(1:(B")
("p" . "(1;(B")
("hp" . "(1<(B")
("fh" . "(1=(B")
("ph" . "(1>(B")
("f" . "(1?(B")
("m" . "(1A(B")
("gn" . "(1B(B")
("l" . "(1E(B")
("r" . "(1C(B")
("v" . "(1G(B")
("w" . "(1G(B")
("hh" . "(1K(B")
("O" . "(1M(B")
("h" . "(1N(B")
("nh" . "(1|(B")
("mh" . "(1}(B")
("lh" . ["(1K\(B"])
("k" . "ກ")
("kh" . "ຂ")
("qh" . "ຄ")
("ng" . "ງ")
("j" . "ຈ")
("s" . "ສ")
("x" . "ຊ")
("y" . "ຍ")
("d" . "ດ")
("t" . "ຕ")
("th" . "ຖ")
("dh" . "ທ")
("n" . "ນ")
("b" . "ບ")
("p" . "ປ")
("hp" . "ຜ")
("fh" . "ຝ")
("ph" . "ພ")
("f" . "ຟ")
("m" . "ມ")
("gn" . "ຢ")
("l" . "ລ")
("r" . "ຣ")
("v" . "ວ")
("w" . "ວ")
("hh" . "ຫ")
("O" . "ອ")
("h" . "ຮ")
("nh" . "ໜ")
("mh" . "ໝ")
("lh" . ["ຫຼ"])
;; double consonants
("ngh" . ["(1K'(B"])
("yh" . ["(1K](B"])
("wh" . ["(1KG(B"])
("hl" . ["(1KE(B"])
("hy" . ["(1K-(B"])
("hn" . ["(1K9(B"])
("hm" . ["(1KA(B"])
("ngh" . ["ຫງ"])
("yh" . ["ຫຽ"])
("wh" . ["ຫວ"])
("hl" . ["ຫລ"])
("hy" . ["ຫຍ"])
("hn" . ["ຫນ"])
("hm" . ["ຫມ"])
)
(function (lambda (x y) (> (length (car x)) (length (car y)))))))
(defconst lao-transcription-semi-vowel-alist
'(("r" . "(1\(B")))
'(("r" . "ຼ")))
(defconst lao-transcription-vowel-alist
(sort '(("a" . "(1P(B")
("ar" . "(1R(B")
("i" . "(1T(B")
("ii" . "(1U(B")
("eu" . "(1V(B")
("ur" . "(1W(B")
("u" . "(1X(B")
("uu" . "(1Y(B")
("e" . ["(1`P(B"])
("ee" . "(1`(B")
("ae" . ["(1aP(B"])
("aa" . "(1a(B")
("o" . ["(1bP(B"])
("oo" . "(1b(B")
("oe" . ["(1`RP(B"])
("or" . "(1m(B")
("er" . ["(1`T(B"])
("ir" . ["(1`U(B"])
("ua" . ["(1[GP(B"])
("uaa" . ["(1[G(B"])
("ie" . ["(1`Q]P(B"])
("ia" . ["(1`Q](B"])
("ea" . ["(1`VM(B"])
("eaa" . ["(1`WM(B"])
("ai" . "(1d(B")
("ei" . "(1c(B")
("ao" . ["(1`[R(B"])
("aM" . "(1S(B"))
(sort '(("a" . "ະ")
("ar" . "າ")
("i" . "ິ")
("ii" . "ີ")
("eu" . "ຶ")
("ur" . "ື")
("u" . "ຸ")
("uu" . "ູ")
("e" . ["ເະ"])
("ee" . "ເ")
("ae" . ["ແະ"])
("aa" . "ແ")
("o" . ["ໂະ"])
("oo" . "ໂ")
("oe" . ["ເາະ"])
("or" . "ໍ")
("er" . ["ເິ"])
("ir" . ["ເີ"])
("ua" . ["ົວະ"])
("uaa" . ["ົວ"])
("ie" . ["ເັຽະ"])
("ia" . ["ເັຽ"])
("ea" . ["ເຶອ"])
("eaa" . ["ເືອ"])
("ai" . "ໄ")
("ei" . "ໃ")
("ao" . ["ເົາ"])
("aM" . "ຳ"))
(function (lambda (x y) (> (length (car x)) (length (car y)))))))
;; Maa-sakod is put at the tail.
(defconst lao-transcription-maa-sakod-alist
'(("k" . "(1!(B")
("g" . "(1'(B")
("y" . "(1-(B")
("d" . "(14(B")
("n" . "(19(B")
("b" . "(1:(B")
("m" . "(1A(B")
("v" . "(1G(B")
("w" . "(1G(B")
'(("k" . "ກ")
("g" . "ງ")
("y" . "ຍ")
("d" . "ດ")
("n" . "ນ")
("b" . "ບ")
("m" . "ມ")
("v" . "ວ")
("w" . "ວ")
))
(defconst lao-transcription-tone-alist
'(("'" . "(1h(B")
("\"" . "(1i(B")
("^" . "(1j(B")
("+" . "(1k(B")
("~" . "(1l(B")))
'(("'" . "່")
("\"" . "້")
("^" . "໊")
("+" . "໋")
("~" . "໌")))
(defconst lao-transcription-punctuation-alist
'(("\\0" . "(1p(B")
("\\1" . "(1q(B")
("\\2" . "(1r(B")
("\\3" . "(1s(B")
("\\4" . "(1t(B")
("\\5" . "(1u(B")
("\\6" . "(1v(B")
("\\7" . "(1w(B")
("\\8" . "(1x(B")
("\\9" . "(1y(B")
("\\\\" . "(1f(B")
("\\$" . "(1O(B")))
'(("\\0" . "໐")
("\\1" . "໑")
("\\2" . "໒")
("\\3" . "໓")
("\\4" . "໔")
("\\5" . "໕")
("\\6" . "໖")
("\\7" . "໗")
("\\8" . "໘")
("\\9" . "໙")
("\\\\" . "ໆ")
("\\$" . "ຯ")))
(defconst lao-transcription-pattern
(concat
@ -332,39 +332,39 @@
"Regexp of Roman transcription pattern for one Lao syllable.")
(defconst lao-vowel-reordering-rule
'(("(1P(B" (0 ?(1P(B) (0 ?(1Q(B))
("(1R(B" (0 ?(1R(B))
("(1T(B" (0 ?(1U(B))
("(1U(B" (0 ?(1U(B))
("(1V(B" (0 ?(1V(B))
("(1W(B" (0 ?(1W(B))
("(1X(B" (0 ?(1X(B))
("(1Y(B" (0 ?(1Y(B))
("(1`P(B" (?(1`(B 0 ?(1P(B) (?(1`(B 0 ?(1Q(B))
("(1`(B" (?(1`(B 0))
("(1aP(B" (?(1a(B 0 ?(1P(B) (?(1a(B 0 ?(1Q(B))
("(1a(B" (?(1a(B 0))
("(1bP(B" (?(1b(B 0 ?(1P(B) (0 ?(1[(B) (?(1-(B ?(1b(B 0 ?(1Q(B) (?(1G(B ?(1b(B 0 ?(1Q(B))
("(1b(B" (?(1b(B 0))
("(1`RP(B" (?(1`(B 0 ?(1R(B ?(1P(B) (0 ?(1Q(B ?(1M(B))
("(1m(B" (0 ?(1m(B) (0 ?(1M(B))
("(1`T(B" (?(1`(B 0 ?(1T(B))
("(1`U(B" (?(1`(B 0 ?(1U(B))
("(1[GP(B" (0 ?(1[(B ?(1G(B ?(1P(B) (0 ?(1Q(B ?(1G(B))
("(1[G(B" (0 ?(1[(B ?(1G(B) (0 ?(1G(B))
("(1`Q]P(B" (?(1`(B 0 ?(1Q(B ?(1](B ?(1P(B) (0 ?(1Q(B ?(1](B))
("(1`Q](B" (?(1`(B 0 ?(1Q(B ?(1](B) (0 ?(1](B))
("(1`VM(B" (?(1`(B 0 ?(1V(B ?(1M(B))
("(1`WM(B" (?(1`(B 0 ?(1W(B ?(1M(B))
("(1d(B" (?(1d(B 0))
("(1c(B" (?(1c(B 0))
("(1`[R(B" (?(1`(B 0 ?(1[(B ?(1R(B))
("(1S(B" (0 ?(1S(B)))
'(("ະ" (0 ?ະ) (0 ?ັ))
("າ" (0 ?າ))
("ິ" (0 ?ີ))
("ີ" (0 ?ີ))
("ຶ" (0 ?ຶ))
("ື" (0 ?ື))
("ຸ" (0 ?ຸ))
("ູ" (0 ?ູ))
("ເະ" (?ເ 0 ?ະ) (?ເ 0 ?ັ))
("ເ" (?ເ 0))
("ແະ" (?ແ 0 ?ະ) (?ແ 0 ?ັ))
("ແ" (?ແ 0))
("ໂະ" (?ໂ 0 ?ະ) (0 ?ົ) (?ຍ ?ໂ 0 ?ັ) (?ວ ?ໂ 0 ?ັ))
("ໂ" (?ໂ 0))
("ເາະ" (?ເ 0 ?າ ?ະ) (0 ?ັ ?ອ))
("ໍ" (0 ?ໍ) (0 ?ອ))
("ເິ" (?ເ 0 ?ິ))
("ເີ" (?ເ 0 ?ີ))
("ົວະ" (0 ?ົ ?ວ ?ະ) (0 ?ັ ?ວ))
("ົວ" (0 ?ົ ?ວ) (0 ?ວ))
("ເັຽະ" (?ເ 0 ?ັ ?ຽ ?ະ) (0 ?ັ ?ຽ))
("ເັຽ" (?ເ 0 ?ັ ?ຽ) (0 ?ຽ))
("ເຶອ" (?ເ 0 ?ຶ ?ອ))
("ເືອ" (?ເ 0 ?ື ?ອ))
("ໄ" (?ໄ 0))
("ໃ" (?ໃ 0))
("ເົາ" (?ເ 0 ?ົ ?າ))
("ຳ" (0 ?ຳ)))
"Alist of Lao vowel string vs the corresponding re-ordering rule.
Each element has this form:
(VOWEL NO-MAA-SAKOD-RULE WITH-MAA-SAKOD-RULE (MAA-SAKOD-0 RULE-0) ...)
VOWEL is a vowel string (e.g. \"(1`Q]P(B\").
VOWEL is a vowel string (e.g. \"ເັຽະ\").
NO-MAA-SAKOD-RULE is a rule to re-order and modify VOWEL following a
consonant. It is a list vowel characters or 0. The element 0
@ -375,8 +375,8 @@ following a consonant and preceding a maa-sakod character. If it is
nil, NO-MAA-SAKOD-RULE is used. The maa-sakod character is always
appended at the tail.
For instance, rule `(\"(1`WM(B\" (?(1`(B t ?(1W(B ?(1M(B))' tells that this vowel
string following a consonant `(1!(B' should be re-ordered as \"(1`!WM(B\".
For instance, rule `(\"ເືອ\" (?ເ t ?ື ?ອ))' tells that this vowel
string following a consonant `ກ' should be re-ordered as \"ເກືອ\".
Optional (MAA-SAKOD-n RULE-n) are rules specially applied to maa-sakod
character MAA-SAKOD-n.")

10
lisp/language/thai.el
View file

@ -1,4 +1,4 @@
;;; thai.el --- support for Thai -*- coding: iso-2022-7bit -*-
;;; thai.el --- support for Thai -*- coding: utf-8 -*-
;; Copyright (C) 1997-1998, 2000-2013 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
@ -55,7 +55,7 @@
(exit-function . exit-thai-language-environment-internal)
(sample-text
. (thai-compose-string
(copy-sequence "Thai (,T@RIRd7B(B) ,TJGQJ4U$CQ:(B, ,TJGQJ4U$hP(B")))
(copy-sequence "Thai (ภาษาไทย) สวัสดีครับ, สวัสดีค่ะ")))
(documentation . t)))
(define-coding-system 'cp874
@ -75,12 +75,12 @@ This is the same as `thai-tis620' with the addition of no-break-space."
:charset-list '(iso-8859-11))
;; For automatic composition.
(let ((chars ",TQTUVWXYZghijklmn(B")
(elt '(["[,T!(B-,TO(B].[,Thijkl(B]?,TS(B?" 1 thai-composition-function]
(let ((chars "ัิีึืฺุู็่้๊๋์ํ๎")
(elt '(["[ก-ฯ].[่้๊๋์]?ำ?" 1 thai-composition-function]
[nil 0 thai-composition-function])))
(dotimes (i (length chars))
(aset composition-function-table (aref chars i) elt)))
(aset composition-function-table ?,TS(B '(["[,T!(B-,TO(B]." 1 thai-composition-function]))
(aset composition-function-table ?ำ '(["[ก-ฯ]." 1 thai-composition-function]))
(provide 'thai)

78
lisp/language/tibet-util.el
View file

@ -1,4 +1,4 @@
;;; tibet-util.el --- utilities for Tibetan -*- coding: iso-2022-7bit; -*-
;;; tibet-util.el --- utilities for Tibetan -*- coding: utf-8-emacs; -*-
;; Copyright (C) 1997, 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
@ -35,21 +35,21 @@
;;; Code:
(defconst tibetan-obsolete-glyphs
`(("$(7!=(B" . "$(7!=(B") ; 2 col <-> 1 col
("$(7!?(B" . "$(7!?(B")
("$(7!@(B" . "$(7!@(B")
("$(7!A(B" . "$(7!A(B")
("$(7"`(B" . "$(7"`(B")
("$(7!;(B" . "$(7!;(B")
("$(7!D(B" . "$(7!D(B")
`(("།" . "།") ; 2 col <-> 1 col
("༏" . "༏")
("༐" . "༐")
("༑" . "༑")
("ཿ" . "ཿ")
("་" . "་")
("༔" . "༔")
;; Yes these are dirty. But ...
("$(7!>(B $(7!>(B" . ,(compose-string "$(7!>(B $(7!>(B" 0 3 [?$(7!>(B (Br . Bl) ? (Br . Bl) ?$(7!>(B]))
("$(7!4!5!5(B" . ,(compose-string
"$(7#R#S#S#S(B" 0 4
[?$(7#R(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B]))
("$(7!4!5(B" . ,(compose-string "$(7#R#S#S(B" 0 3 [?$(7#R(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B]))
("$(7!6(B" . ,(compose-string "$(7#R#S!I(B" 0 3 [?$(7#R(B (Br . Bl) ?$(7#S(B (br . tr) ?$(7!I(B]))
("$(7!4(B" . ,(compose-string "$(7#R#S(B" 0 2 [?$(7#R(B (Br . Bl) ?$(7#S(B]))))
("༎ ༎" . ,(compose-string "༎ ༎" 0 3 [?༎ (Br . Bl) ? (Br . Bl) ?༎]))
("༄༅༅" . ,(compose-string
"࿁࿂࿂࿂" 0 4
[?࿁ (Br . Bl) ?࿂ (Br . Bl) ?࿂ (Br . Bl) ?࿂]))
("༄༅" . ,(compose-string "࿁࿂࿂" 0 3 [?࿁ (Br . Bl) ?࿂ (Br . Bl) ?࿂]))
("༆" . ,(compose-string "࿁࿂༙" 0 3 [?࿁ (Br . Bl) ?࿂ (br . tr) ?༙]))
("༄" . ,(compose-string "࿁࿂" 0 2 [?࿁ (Br . Bl) ?࿂]))))
;;;###autoload
(defun tibetan-char-p (ch)
@ -136,7 +136,7 @@ The returned string has no composition information."
;;;
;;; Here are examples of the words "bsgrubs" and "hfauM"
;;;
;;; $(7"7"G###C"U"7"G(B $(7"H"R"U"_(B
;;; བསྒྲུབས ཧཱུཾ
;;;
;;; M
;;; b s b s h
@ -144,7 +144,7 @@ The returned string has no composition information."
;;; r u
;;; u
;;;
;;; Consonants `'' ($(7"A(B), `w' ($(7">(B), `y' ($(7"B(B), `r' ($(7"C(B) take special
;;; Consonants `'' (འ), `w' (ཝ), `y' (ཡ), `r' (ར) take special
;;; forms when they are used as subjoined consonant. Consonant `r'
;;; takes another special form when used as superjoined in such a case
;;; as "rka", while it does not change its form when conjoined with
@ -161,15 +161,15 @@ The returned string has no composition information."
;; Special treatment for 'a chung.
;; If 'a follows a consonant, turn it into the subjoined form.
;; * Disabled by Tomabechi 2000/06/09 *
;; Because in Unicode, $(7"A(B may follow directly a consonant without
;; any intervening vowel, as in $(7"9"""Q"A!;(B=$(7"9(B $(7""(B $(7"A(B not $(7"9(B $(7""(B $(7"Q(B $(7"A(B
;;(if (and (= char ?$(7"A(B)
;; Because in Unicode, འ may follow directly a consonant without
;; any intervening vowel, as in མཁ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>འ་=མ ཁ འ not མ ཁ <20><><EFBFBD><EFBFBD> འ
;;(if (and (= char ?འ)
;; (aref (char-category-set (car last)) ?0))
;; (setq char ?$(7"R(B)) ;; modified for new font by Tomabechi 1999/12/10
;; (setq char ?ཱ)) ;; modified for new font by Tomabechi 1999/12/10
;; Composite vowel signs are decomposed before being added
;; Added by Tomabechi 2000/06/08
(if (memq char '(?$(7"T(B ?$(7"V(B ?$(7"W(B ?$(7"X(B ?$(7"Y(B ?$(7"Z(B ?$(7"b(B))
(if (memq char '(?ཱི ?ཱུ ?ྲྀ ?ཷ ?ླྀ ?ཹ ?ཱྀ))
(setq comp-vowel
(copy-sequence
(cddr (assoc (char-to-string char)
@ -184,22 +184,22 @@ The returned string has no composition information."
;; Compose lower vowel sign vertically under.
((aref (char-category-set char) ?3)
(if (or (eq char ?$(7"Q(B) ;; `$(7"Q(B' and `$,1FP(B' should not visible when composed.
(if (or (eq char ?<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) ;; `<60><><EFBFBD><EFBFBD>' and `཰' should not visible when composed.
(eq char #xF70))
(setq rule nil)
(setq rule stack-under)))
;; Transform ra-mgo (superscribed r) if followed by a subjoined
;; consonant other than w, ', y, r.
((and (= (car last) ?$(7"C(B)
(not (memq char '(?$(7#>(B ?$(7"R(B ?$(7#B(B ?$(7#C(B))))
(setcar last ?$(7!"(B) ;; modified for newfont by Tomabechi 1999/12/10
((and (= (car last) ?ར)
(not (memq char '(?ྭ ?ཱ ?ྱ ?ྲ))))
(setcar last ?<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) ;; modified for newfont by Tomabechi 1999/12/10
(setq rule stack-under))
;; Transform initial base consonant if followed by a subjoined
;; consonant but 'a.
(t
(let ((laststr (char-to-string (car last))))
(if (and (/= char ?$(7"R(B) ;; modified for new font by Tomabechi
(string-match "[$(7"!(B-$(7"="?"@"D(B-$(7"J"K(B]" laststr))
(if (and (/= char ?ཱ) ;; modified for new font by Tomabechi
(string-match "[ཀ-ཛྷཞཟལ-ཀྵཪ]" laststr))
(setcar last (string-to-char
(cdr (assoc (char-to-string (car last))
tibetan-base-to-subjoined-alist)))))
@ -216,7 +216,7 @@ The returned string has no composition information."
(defun tibetan-compose-string (str)
"Compose Tibetan string STR."
(let ((idx 0))
;; `$(7"A(B' is included in the pattern for subjoined consonants
;; `འ' is included in the pattern for subjoined consonants
;; because we treat it specially in tibetan-add-components.
;; (This feature is removed by Tomabechi 2000/06/08)
(while (setq idx (string-match tibetan-composable-pattern str idx))
@ -247,7 +247,7 @@ The returned string has no composition information."
(save-restriction
(narrow-to-region beg end)
(goto-char (point-min))
;; `$(7"A(B' is included in the pattern for subjoined consonants
;; `འ' is included in the pattern for subjoined consonants
;; because we treat it specially in tibetan-add-components.
;; (This feature is removed by Tomabechi 2000/06/08)
(while (re-search-forward tibetan-composable-pattern nil t)
@ -366,18 +366,18 @@ See also docstring of the function tibetan-compose-region."
;;;
(defvar tibetan-canonicalize-for-unicode-alist
'(("$(7"Q(B" . "") ;; remove vowel a
("$(7"T(B" . "$(7"R"S(B") ;; decompose vowels whose use is ``discouraged'' in Unicode 3.0
("$(7"V(B" . "$(7"R"U(B")
("$(7"W(B" . "$(7#C"a(B")
("$(7"X(B" . "$(7#C"R"a(B")
("$(7"Y(B" . "$(7#D"a(B")
("$(7"Z(B" . "$(7#D"R"a(B")
("$(7"b(B" . "$(7"R"a(B"))
'(("<EFBFBD><EFBFBD><EFBFBD><EFBFBD>" . "") ;; remove vowel a
("ཱི" . "ཱི") ;; decompose vowels whose use is ``discouraged'' in Unicode 3.0
("ཱུ" . "ཱུ")
("ྲྀ" . "ྲྀ")
("ཷ" . "ྲཱྀ")
("ླྀ" . "ླྀ")
("ཹ" . "ླཱྀ")
("ཱྀ" . "ཱྀ"))
"Rules for canonicalizing Tibetan vowels for Unicode.")
(defvar tibetan-canonicalize-for-unicode-regexp
"[$(7"Q"T"V"W"X"Y"Z"b(B]"
"[<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ཱཱིུྲྀཷླྀཹཱྀ]"
"Regexp for Tibetan vowels to be canonicalized in Unicode.")
(defun tibetan-canonicalize-for-unicode-region (from to)

822
lisp/language/tibetan.el
View file

@ -1,4 +1,4 @@
;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*-
;;; tibetan.el --- support for Tibetan language -*- coding: utf-8-emacs; -*-
;; Copyright (C) 1997, 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@ -43,45 +43,45 @@
;;; I hope I can add missing characters later.
;;;
;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
;;;2120 // $(7!!(B $(7!"(B $(7!#(B $(7!$(B $(7!%(B $(7!&(B $(7!'(B $(7!((B $(7!)(B $(7!*(B $(7!+(B $(7!,(B $(7!-(B $(7!.(B $(7!/(B ; obsolete glyphs (2123-5)
;;;2130 $(7!0(B $(7!1(B $(7!2(B $(7!3(B $(7!4(B $(7!5(B $(7!6(B $(7!7(B $(7!8(B $(7!9(B $(7!:(B $(7!;(B $(7!<(B $(7!=(B $(7!>(B $(7!?(B ; Punctuation,
;;;2140 $(7!@(B $(7!A(B $(7!B(B $(7!C(B $(7!D(B $(7!E(B $(7!F(B $(7!G(B $(7!H(B $(7!I(B $(7!J(B $(7!K(B $(7!L(B $(7!M(B $(7!N(B $(7!O(B ; Digits and
;;;2150 $(7!P(B $(7!Q(B $(7!R(B $(7!S(B $(7!T(B $(7!U(B $(7!V(B $(7!W(B $(7!X(B $(7!Y(B $(7!Z(B $(7![(B $(7!\(B $(7!](B $(7!^(B $(7!_(B ; Special signs.
;;;2160 $(7!`(B $(7!a(B $(7!b(B $(7!c(B $(7!d(B $(7!e(B $(7!f(B $(7!g(B $(7!h(B $(7!i(B $(7!j(B $(7!k(B $(7!l(B $(7!m(B $(7!n(B $(7!o(B ;
;;;2170 $(7!p(B $(7!q(B $(7!r(B $(7!s(B $(7!t(B $(7!u(B $(7!v(B $(7!w(B $(7!x(B $(7!y(B $(7!z(B $(7!{(B $(7!|(B $(7!}(B $(7!~(B // ;
;;;2120 // <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ; obsolete glyphs (2123-5)
;;;2130 ༀ ༁ ༂ ༃ ༄ ༅ ༆ ༇ ༈ ༉ ༊ ་ ༌ ། ༎ ༏ ; Punctuation,
;;;2140 ༐ ༑ ༒ ༓ ༔ ༕ ༖ ༗ ༘ ༙ ༚ ༛ ༜ ༝ ༞ ༟ ; Digits and
;;;2150 ༠ ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ ༪ ༫ ༬ ༭ ༮ ༯ ; Special signs.
;;;2160 ༰ ༱ ༲ ༳ ༴ ༵ ༶ ༷ ༸ ༹ ༺ ༻ ༼ ༽ ༾ ༿ ;
;;;2170 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> // ;
;;;
;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
;;;2220 // $(7"!(B $(7""(B $(7"#(B $(7"$(B $(7"%(B $(7"&(B $(7"'(B $(7"((B $(7")(B $(7"*(B $(7"+(B $(7",(B $(7"-(B $(7".(B $(7"/(B ; Base consonants
;;;2230 $(7"0(B $(7"1(B $(7"2(B $(7"3(B $(7"4(B $(7"5(B $(7"6(B $(7"7(B $(7"8(B $(7"9(B $(7":(B $(7";(B $(7"<(B $(7"=(B $(7">(B $(7"?(B ; and
;;;2240 $(7"@(B $(7"A(B $(7"B(B $(7"C(B $(7"D(B $(7"E(B $(7"F(B $(7"G(B $(7"H(B $(7"I(B $(7"J(B $(7"K(B $(7"L(B $(7"M(B $(7"N(B $(7"O(B ; Vowel signs.
;;;2250 $(7"P(B $(7"Q(B $(7"R(B $(7"S(B $(7"T(B $(7"U(B $(7"V(B $(7"W(B $(7"X(B $(7"Y(B $(7"Z(B $(7"[(B $(7"\(B $(7"](B $(7"^(B $(7"_(B ; (\x2251 = vowel a)
;;;2260 $(7"`(B $(7"a(B $(7"b(B $(7"c(B $(7"d(B $(7"e(B $(7"f(B $(7"g(B $(7"h(B $(7"i(B $(7"j(B $(7"k(B $(7"l(B $(7"m(B $(7"n(B $(7"o(B ; Long vowels and
;;;2270 $(7"p(B $(7"q(B $(7"r(B $(7"s(B $(7"t(B $(7"u(B $(7"v(B $(7"w(B $(7"x(B $(7"y(B $(7"z(B $(7"{(B $(7"|(B $(7"}(B $(7"~(B // ; vocalic r, l ARE
;;;2220 // ཀ ཁ ག གྷ ང ཅ ཆ ཇ <20><><EFBFBD><EFBFBD> ཉ ཊ ཋ ཌ ཌྷ ཎ ; Base consonants
;;;2230 ཏ ཐ ད དྷ ན པ ཕ བ བྷ མ ཙ ཚ ཛ ཛྷ ཝ ཞ ; and
;;;2240 ཟ འ ཡ ར ལ ཤ ཥ ས ཧ ཨ ཀྵ ཪ <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ; Vowel signs.
;;;2250 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ཱ ི ཱི ུ ཱུ ྲྀ ཷ ླྀ ཹ ེ ཻ ོ ཽ ཾ ; (\x2251 = vowel a)
;;;2260 ཿ ྀ ཱྀ ྂ ྃ ྄ ྅ ྆ ྇ ྈ ྉ ྊ ྋ <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ; Long vowels and
;;;2270 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> // ; vocalic r, l ARE
;;; ; atomically
;;; ; encoded.
;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
;;;2320 // $(7#!(B $(7#"(B $(7##(B $(7#$(B $(7#%(B $(7#&(B $(7#'(B $(7#((B $(7#)(B $(7#*(B $(7#+(B $(7#,(B $(7#-(B $(7#.(B $(7#/(B ; Subjoined consonants
;;;2330 $(7#0(B $(7#1(B $(7#2(B $(7#3(B $(7#4(B $(7#5(B $(7#6(B $(7#7(B $(7#8(B $(7#9(B $(7#:(B $(7#;(B $(7#<(B $(7#=(B $(7#>(B $(7#?(B ;
;;;2340 $(7#@(B $(7#A(B $(7#B(B $(7#C(B $(7#D(B $(7#E(B $(7#F(B $(7#G(B $(7#H(B $(7#I(B $(7#J(B $(7#K(B $(7#L(B $(7#M(B $(7#N(B $(7#O(B ;
;;;2350 $(7#P(B $(7#Q(B $(7#R(B $(7#S(B $(7#T(B $(7#U(B $(7#V(B $(7#W(B $(7#X(B $(7#Y(B $(7#Z(B $(7#[(B $(7#\(B $(7#](B $(7#^(B $(7#_(B ; Hereafter, the chars
;;;2360 $(7#`(B $(7#a(B $(7#b(B $(7#c(B $(7#d(B $(7#e(B $(7#f(B $(7#g(B $(7#h(B $(7#i(B $(7#j(B $(7#k(B $(7#l(B $(7#m(B $(7#n(B $(7#o(B ; are not specified
;;;2370 $(7#p(B $(7#q(B $(7#r(B $(7#s(B $(7#t(B $(7#u(B $(7#v(B $(7#w(B $(7#x(B $(7#y(B $(7#z(B $(7#{(B $(7#|(B $(7#}(B $(7#~(B // ; in Unicode.
;;;2320 // ྐ ྑ ྒ ྒྷ ྔ ྕ ྖ ྗ <20><><EFBFBD><EFBFBD> ྙ ྚ ྛ ྜ ྜྷ ྞ ; Subjoined consonants
;;;2330 ྟ ྠ ྡ ྡྷ ྣ ྤ ྥ ྦ ྦྷ ྨ ྩ ྪ ྫ ྫྷ ྭ ྮ ;
;;;2340 ྯ ྰ ྱ ྲ ླ ྴ ྵ ྶ ྷ ྸ ྐྵ ྺ ྻ ྼ <20><><EFBFBD><EFBFBD> ྾ ;
;;;2350 ྿ ࿀ ࿁ ࿂ ࿃ ࿄ ࿅ ࿆ ࿇ ࿈ ࿉ ࿊ ࿋ ࿌ <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ; Hereafter, the chars
;;;2360 ࿏ <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ; are not specified
;;;2370 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> // ; in Unicode.
;;;
;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
;;;2420 // $(7$!(B $(7$"(B $(7$#(B $(7$$(B $(7$%(B $(7$&(B $(7$'(B $(7$((B $(7$)(B $(7$*(B $(7$+(B $(7$,(B $(7$-(B $(7$.(B $(7$/(B ; Precomposed
;;;2430 $(7$0(B $(7$1(B $(7$2(B $(7$3(B $(7$4(B $(7$5(B $(7$6(B $(7$7(B $(7$8(B $(7$9(B $(7$:(B $(7$;(B $(7$<(B $(7$=(B $(7$>(B $(7$?(B ; consonants for
;;;2440 $(7$@(B $(7$A(B $(7$B(B $(7$C(B $(7$D(B $(7$E(B $(7$F(B $(7$G(B $(7$H(B $(7$I(B $(7$J(B $(7$K(B $(7$L(B $(7$M(B $(7$N(B $(7$O(B ; ordinary Tibetan.
;;;2450 $(7$P(B $(7$Q(B $(7$R(B $(7$S(B $(7$T(B $(7$U(B $(7$V(B $(7$W(B $(7$X(B $(7$Y(B $(7$Z(B $(7$[(B $(7$\(B $(7$](B $(7$^(B $(7$_(B ; They are decomposed
;;;2460 $(7$`(B $(7$a(B $(7$b(B $(7$c(B $(7$d(B $(7$e(B $(7$f(B $(7$g(B $(7$h(B $(7$i(B $(7$j(B $(7$k(B $(7$l(B $(7$m(B $(7$n(B $(7$o(B ; into base and
;;;2470 $(7$p(B $(7$q(B $(7$r(B $(7$s(B $(7$t(B $(7$u(B $(7$v(B $(7$w(B $(7$x(B $(7$y(B $(7$z(B $(7${(B $(7$|(B $(7$}(B $(7$~(B // ; subjoined consonants
;;;2420 // <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ; Precomposed
;;;2430 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ; consonants for
;;;2440 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ; ordinary Tibetan.
;;;2450 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ; They are decomposed
;;;2460 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ; into base and
;;;2470 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> // ; subjoined consonants
;;; ; when written on a
;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ; file in Tibetan
;;;2520 // $(7%!(B $(7%"(B $(7%#(B $(7%$(B $(7%%(B $(7%&(B $(7%'(B $(7%((B $(7%)(B $(7%*(B $(7%+(B $(7%,(B $(7%-(B $(7%.(B $(7%/(B ; coding system.
;;;2530 $(7%0(B $(7%1(B $(7%2(B $(7%3(B $(7%4(B $(7%5(B $(7%6(B $(7%7(B $(7%8(B $(7%9(B $(7%:(B $(7%;(B $(7%<(B $(7%=(B $(7%>(B $(7%?(B ;
;;;2540 $(7%@(B $(7%A(B $(7%B(B $(7%C(B $(7%D(B $(7%E(B $(7%F(B $(7%G(B $(7%H(B $(7%I(B $(7%J(B $(7%K(B $(7%L(B $(7%M(B $(7%N(B $(7%O(B ;
;;;2550 $(7%P(B $(7%Q(B $(7%R(B $(7%S(B $(7%T(B $(7%U(B $(7%V(B $(7%W(B $(7%X(B $(7%Y(B $(7%Z(B $(7%[(B $(7%\(B $(7%](B $(7%^(B $(7%_(B ;
;;;2560 $(7%`(B $(7%a(B $(7%b(B $(7%c(B $(7%d(B $(7%e(B $(7%f(B $(7%g(B $(7%h(B $(7%i(B $(7%j(B $(7%k(B $(7%l(B $(7%m(B $(7%n(B $(7%o(B ;
;;;2570 $(7%p(B $(7%q(B $(7%r(B $(7%s(B $(7%t(B $(7%u(B $(7%v(B $(7%w(B $(7%x(B $(7%y(B $(7%z(B $(7%{(B $(7%|(B $(7%}(B $(7%~(B // ;
;;;2520 // <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ; coding system.
;;;2530 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ;
;;;2540 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ;
;;;2550 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ;
;;;2560 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ;
;;;2570 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> // ;
;;;
@ -101,18 +101,18 @@
(input-method . "tibetan-wylie")
(features tibet-util)
(documentation . t)
(sample-text . "Tibetan ($(7"7"]"2!;"G#!"Q"2!;(B) $(7!4!5!5!>"7"!#C"Q!;"E"S"G!;"7"2"[!;"D"["#"G!>"I"]"_!;"9"Q!;"/"S!;"5"Q"2#9"[!;"H"A"U"c!>(B")))
(sample-text . "Tibetan (བོད་སྐ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ད་) ༄༅༅༎བཀྲ<E0BD80><E0BEB2><EFBFBD><EFBFBD>་ཤིས་བདེ་ལེགས༎ཨོཾ་མ<E0BC8B><E0BD98><EFBFBD><EFBFBD>་ཎི་པ<E0BC8B><E0BD94><EFBFBD><EFBFBD>དྨེ་ཧའུྂ༎")))
;; `$(7"A(B' is included in the pattern for subjoined consonants because we
;; `འ' is included in the pattern for subjoined consonants because we
;; treat it specially in tibetan-add-components.
;; modified by Tomabechi 1999/12/10
;; modified by Tomabechi 2000/06/08
;; To allow infinite addition of vowels/modifiers
;; as specified in Unicode v.3
;; $(7"A(B is removed from the class of subjoined. Tomabechi 2000/06/08
;; འ is removed from the class of subjoined. Tomabechi 2000/06/08
;; (for Unicode support)
(defconst tibetan-composable-pattern
"[$(7"!(B-$(7"J"K(B][$(7#!(B-$(7#J#K#L#M(B]*[$,1FP$(7"Q"R"S(B-$(7"^"a"b"e(B]*[$(7"_"c"d"g(B-$(7"l!I!e!g(B]*"
"[ཀ-ཀྵཪ][ྐ-ྐྵྺྻྼ]*[཰<><E0BDB0><EFBFBD><EFBFBD>ཱི-྄ཱཽྀྀ]*[ཾྂྃ྆-ྋ༙༵༷]*"
"Regexp matching a composable sequence of Tibetan characters.")
;;;
@ -123,50 +123,50 @@
;;; alists for tibetan char <-> transcription conversion
;;; longer transcription should come first
(defconst tibetan-consonant-transcription-alist
'(("tsh" . "$(7";(B")
("dzh" . "$(7"=(B")
("kSH" . "$(7"J(B")
("kh" . "$(7""(B")
("gh" . "$(7"$(B")
("ng" . "$(7"%(B")
("ch" . "$(7"'(B")
("ny" . "$(7"*(B")
("TH" . "$(7",(B")
("DH" . "$(7".(B")
("th" . "$(7"1(B")
("dh" . "$(7"3(B")
("ph" . "$(7"6(B")
("bh" . "$(7"8(B")
("ts" . "$(7":(B")
("dz" . "$(7"<(B")
("zh" . "$(7"?(B")
("sh" . "$(7"E(B")
("SH" . "$(7"F(B")
("k" . "$(7"!(B")
("g" . "$(7"#(B")
("c" . "$(7"&(B")
("j" . "$(7"((B")
("T" . "$(7"+(B")
("D" . "$(7"-(B")
("N" . "$(7"/(B")
("t" . "$(7"0(B")
("d" . "$(7"2(B")
("n" . "$(7"4(B")
("p" . "$(7"5(B")
("b" . "$(7"7(B")
("m" . "$(7"9(B")
("w" . "$(7">(B")
("z" . "$(7"@(B")
("'" . "$(7"A(B")
("y" . "$(7"B(B")
("r" . "$(7"C(B")
("l" . "$(7"D(B")
("s" . "$(7"G(B")
("h" . "$(7"H(B")
("H" . "$(7"H(B")
("A" . "$(7"I(B")
'(("tsh" . "ཚ")
("dzh" . "ཛྷ")
("kSH" . "ཀྵ")
("kh" . "ཁ")
("gh" . "གྷ")
("ng" . "ང")
("ch" . "ཆ")
("ny" . "ཉ")
("TH" . "ཋ")
("DH" . "ཌྷ")
("th" . "ཐ")
("dh" . "དྷ")
("ph" . "ཕ")
("bh" . "བྷ")
("ts" . "ཙ")
("dz" . "ཛ")
("zh" . "ཞ")
("sh" . "ཤ")
("SH" . "ཥ")
("k" . "ཀ")
("g" . "ག")
("c" . "ཅ")
("j" . "ཇ")
("T" . "ཊ")
("D" . "ཌ")
("N" . "ཎ")
("t" . "ཏ")
("d" . "ད")
("n" . "ན")
("p" . "པ")
("b" . "བ")
("m" . "མ")
("w" . "ཝ")
("z" . "ཟ")
("'" . "འ")
("y" . "ཡ")
("r" . "ར")
("l" . "ལ")
("s" . "ས")
("h" . "ཧ")
("H" . "ཧ")
("A" . "ཨ")
;; Added by Tomabechi 1999/12/10
("R" . "$(7"K(B") ;; fixed form RA
("R" . "ཪ") ;; fixed form RA
))
@ -174,203 +174,203 @@
'(
;; Composite Vowels
;; Added by Tomabechi 2000/06/08
("frr" . "$(7"X(B")
("fll" . "$(7"Z(B")
("fa" . "$(7"R(B")
("fi" . "$(7"T(B")
("fu" . "$(7"V(B")
("fr" . "$(7"W(B")
("fl" . "$(7"Y(B")
("fI" . "$(7"b(B")
("frr" . "ཷ")
("fll" . "ཹ")
("fa" . "ཱ")
("fi" . "ཱི")
("fu" . "ཱུ")
("fr" . "ྲྀ")
("fl" . "ླྀ")
("fI" . "ཱྀ")
;; Normal Vowels
("ai" . "$(7"\(B")
("au" . "$(7"^(B")
("ee" . "$(7"\(B")
("oo" . "$(7"^(B")
("a" . "$(7"Q(B") ; invisible vowel sign (\x2251)
("i" . "$(7"S(B")
("u" . "$(7"U(B")
("e" . "$(7"[(B")
("o" . "$(7"](B")
("E" . "$(7"\(B")
("O" . "$(7"^(B")
("I" . "$(7"a(B")
("," . "$(7"e(B") ; idem.
("ai" . "ཻ")
("au" . "ཽ")
("ee" . "ཻ")
("oo" . "ཽ")
("a" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>") ; invisible vowel sign (\x2251)
("i" . "ི")
("u" . "ུ")
("e" . "ེ")
("o" . "ོ")
("E" . "ཻ")
("O" . "ཽ")
("I" . "ྀ")
("," . "྄") ; idem.
))
(defconst tibetan-modifier-transcription-alist
'(("M" . "$(7"_(B")
("~" . "$(7"c(B")
("`" . "$(7"d(B")
("x" . "$(7"i(B")
("X" . "$(7"j(B")
("v" . "$(7"g(B")
("V" . "$(7"h(B")
("q" . "$(7"k(B")
("Q" . "$(7"l(B")
("_/" . "$(7!I(B")
("_o" . "$(7!g(B")
("_O" . "$(7!e(B")))
'(("M" . "ཾ")
("~" . "ྂ")
("`" . "ྃ")
("x" . "ྈ")
("X" . "ྉ")
("v" . "྆")
("V" . "྇")
("q" . "ྊ")
("Q" . "ྋ")
("_/" . "༙")
("_o" . "༷")
("_O" . "༵")))
(defconst tibetan-precomposed-transcription-alist
'(("phyw" . "$(7$G(B")
("tshw" . "$(7$)(B")
("rtsw" . "$(7%.(B")
("khw" . "$(7$"(B")
("nyw" . "$(7$%(B")
("tsw" . "$(7$((B")
("zhw" . "$(7$*(B")
("shw" . "$(7$.(B")
("khy" . "$(7$A(B")
("phy" . "$(7$D(B")
("khr" . "$(7$Q(B")
("thr" . "$(7$T(B")
("phr" . "$(7$W(B")
("shr" . "$(7$Z(B")
("dzr" . "$(7$^(B")
("grw" . "$(7$_(B")
("rng" . "$(7%#(B")
("rny" . "$(7%%(B")
("rts" . "$(7%+(B")
("rdz" . "$(7%,(B")
("rgw" . "$(7%-(B")
("rky" . "$(7%0(B")
("rgy" . "$(7%1(B")
("rmy" . "$(7%2(B")
("lng" . "$(7%B(B")
("sng" . "$(7%R(B")
("sny" . "$(7%S(B")
("sts" . "$(7%Z(B")
("sky" . "$(7%`(B")
("sgy" . "$(7%a(B")
("spy" . "$(7%b(B")
("sby" . "$(7%c(B")
("smy" . "$(7%d(B")
("skr" . "$(7%p(B")
("sgr" . "$(7%q(B")
("snr" . "$(7%r(B")
("spr" . "$(7%s(B")
("sbr" . "$(7%t(B")
("smr" . "$(7%u(B")
("kw" . "$(7$!(B")
("gw" . "$(7$#(B")
("cw" . "$(7$$(B")
("tw" . "$(7$&(B")
("dw" . "$(7$'(B")
("zw" . "$(7$+(B")
("rw" . "$(7$,(B")
("lw" . "$(7$-(B")
("sw" . "$(7$/(B")
("hw" . "$(7$0(B")
("ky" . "$(7$@(B")
("gy" . "$(7$B(B")
("py" . "$(7$C(B")
("by" . "$(7$E(B")
("my" . "$(7$F(B")
("kr" . "$(7$P(B")
("gr" . "$(7$R(B")
("tr" . "$(7$S(B")
("dr" . "$(7$U(B")
("pr" . "$(7$V(B")
("brk" . "$(7"7%!(B")
("brg" . "$(7"7%"(B")
("brng" . "$(7"7%#(B")
("brj" . "$(7"7%$(B")
("brny" . "$(7"7%%(B")
("brt" . "$(7"7%&(B")
("brd" . "$(7"7%'(B")
("brn" . "$(7"7%((B")
("brts" . "$(7"7%+(B")
("brdz" . "$(7"7%,(B")
("brl" . "$(7"7$d(B")
("br" . "$(7$X(B")
("mr" . "$(7$Y(B")
("sr" . "$(7$[(B")
("hr" . "$(7$\(B")
("jr" . "$(7$](B")
("kl" . "$(7$`(B")
("gl" . "$(7$a(B")
("blt" . "$(7"7%E(B")
("bld" . "$(7"7%F(B")
("bl" . "$(7$b(B")
("zl" . "$(7$c(B")
("rl" . "$(7$d(B")
("sl" . "$(7$e(B")
("rk" . "$(7%!(B")
("rg" . "$(7%"(B")
("rj" . "$(7%$(B")
("rt" . "$(7%&(B")
("rd" . "$(7%'(B")
("rn" . "$(7%((B")
("rb" . "$(7%)(B")
("rm" . "$(7%*(B")
("lk" . "$(7%@(B")
("lg" . "$(7%A(B")
("lc" . "$(7%C(B")
("lj" . "$(7%D(B")
("lt" . "$(7%E(B")
("ld" . "$(7%F(B")
("ln" . "$(7!!(B") ; dummy \x2121
("lp" . "$(7%G(B")
("lb" . "$(7%H(B")
("lh" . "$(7%I(B")
("sk" . "$(7%P(B")
("sg" . "$(7%Q(B")
("st" . "$(7%T(B")
("sd" . "$(7%U(B")
("sn" . "$(7%V(B")
("sp" . "$(7%W(B")
("sb" . "$(7%X(B")
("sm" . "$(7%Y(B"))
'(("phyw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("tshw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rtsw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("khw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("nyw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("tsw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("zhw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("shw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("khy" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("phy" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("khr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("thr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("phr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("shr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("dzr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("grw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rng" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rny" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rts" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rdz" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rgw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rky" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rgy" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rmy" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("lng" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sng" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sny" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sts" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sky" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sgy" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("spy" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sby" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("smy" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("skr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sgr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("snr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("spr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sbr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("smr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("kw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("gw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("cw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("tw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("dw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("zw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("lw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("hw" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ky" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("gy" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("py" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("by" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("my" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("kr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("gr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("tr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("dr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("pr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("brk" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("brg" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("brng" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("brj" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("brny" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("brt" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("brd" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("brn" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("brts" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("brdz" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("brl" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("br" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("mr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("hr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("jr" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("kl" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("gl" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("blt" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("bld" . "བ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("bl" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("zl" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rl" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sl" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rk" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rg" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rj" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rt" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rd" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rn" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rb" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("rm" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("lk" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("lg" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("lc" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("lj" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("lt" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ld" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ln" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>") ; dummy \x2121
("lp" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("lb" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("lh" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sk" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sg" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("st" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sd" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sn" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sp" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sb" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("sm" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"))
)
(defconst tibetan-subjoined-transcription-alist
(sort '(("+k" . "$(7#!(B")
("+kh" . "$(7#"(B")
("+g" . "$(7##(B")
("+gh" . "$(7#$(B")
("+ng" . "$(7#%(B")
("+c" . "$(7#&(B")
("+ch" . "$(7#'(B")
("+j" . "$(7#((B")
("+ny" . "$(7#*(B")
("+T" . "$(7#+(B")
("+TH" . "$(7#,(B")
("+D" . "$(7#-(B")
("+DH" . "$(7#.(B")
("+N" . "$(7#/(B")
("+t" . "$(7#0(B")
("+th" . "$(7#1(B")
("+d" . "$(7#2(B")
("+dh" . "$(7#3(B")
("+n" . "$(7#4(B")
("+p" . "$(7#5(B")
("+ph" . "$(7#6(B")
("+b" . "$(7#7(B")
("+bh" . "$(7#8(B")
("+m" . "$(7#9(B")
("+ts" . "$(7#:(B")
("+tsh" . "$(7#;(B")
("+dz" . "$(7#<(B")
("+dzh" . "$(7#=(B")
("+w" . "$(7#>(B")
("+zh" . "$(7#?(B")
("+z" . "$(7#@(B")
("+'" . "$(7#A(B")
("+y" . "$(7#B(B")
("+r" . "$(7#C(B")
("+l" . "$(7#D(B")
("+sh" . "$(7#E(B")
("+SH" . "$(7#F(B")
("+s" . "$(7#G(B")
("+h" . "$(7#H(B")
("+A" . "$(7#I(B")
("+kSH" . "$(7#J(B")
(sort '(("+k" . "ྐ")
("+kh" . "ྑ")
("+g" . "ྒ")
("+gh" . "ྒྷ")
("+ng" . "ྔ")
("+c" . "ྕ")
("+ch" . "ྖ")
("+j" . "ྗ")
("+ny" . "ྙ")
("+T" . "ྚ")
("+TH" . "ྛ")
("+D" . "ྜ")
("+DH" . "ྜྷ")
("+N" . "ྞ")
("+t" . "ྟ")
("+th" . "ྠ")
("+d" . "ྡ")
("+dh" . "ྡྷ")
("+n" . "ྣ")
("+p" . "ྤ")
("+ph" . "ྥ")
("+b" . "ྦ")
("+bh" . "ྦྷ")
("+m" . "ྨ")
("+ts" . "ྩ")
("+tsh" . "ྪ")
("+dz" . "ྫ")
("+dzh" . "ྫྷ")
("+w" . "ྭ")
("+zh" . "ྮ")
("+z" . "ྯ")
("+'" . "ྰ")
("+y" . "ྱ")
("+r" . "ྲ")
("+l" . "ླ")
("+sh" . "ྴ")
("+SH" . "ྵ")
("+s" . "ྶ")
("+h" . "ྷ")
("+A" . "ྸ")
("+kSH" . "ྐྵ")
;; Added by Tomabechi 1999/12/10
("+W" . "$(7#K(B") ;; fixed form subscribed WA
("+Y" . "$(7#L(B") ;; fixed form subscribed YA
("+R" . "$(7#M(B") ;; fixed form subscribed RA
("+W" . "ྺ") ;; fixed form subscribed WA
("+Y" . "ྻ") ;; fixed form subscribed YA
("+R" . "ྼ") ;; fixed form subscribed RA
)
(lambda (x y) (> (length (car x)) (length (car y))))))
@ -378,70 +378,70 @@
;;; alist for Tibetan base consonant <-> subjoined consonant conversion.
;;;
(defconst tibetan-base-to-subjoined-alist
'(("$(7"!(B" . "$(7#!(B")
("$(7""(B" . "$(7#"(B")
("$(7"#(B" . "$(7##(B")
("$(7"$(B" . "$(7#$(B")
("$(7"%(B" . "$(7#%(B")
("$(7"&(B" . "$(7#&(B")
("$(7"'(B" . "$(7#'(B")
("$(7"((B" . "$(7#((B")
("$(7"*(B" . "$(7#*(B")
("$(7"+(B" . "$(7#+(B")
("$(7",(B" . "$(7#,(B")
("$(7"-(B" . "$(7#-(B")
("$(7".(B" . "$(7#.(B")
("$(7"/(B" . "$(7#/(B")
("$(7"0(B" . "$(7#0(B")
("$(7"1(B" . "$(7#1(B")
("$(7"2(B" . "$(7#2(B")
("$(7"3(B" . "$(7#3(B")
("$(7"4(B" . "$(7#4(B")
("$(7"5(B" . "$(7#5(B")
("$(7"6(B" . "$(7#6(B")
("$(7"7(B" . "$(7#7(B")
("$(7"8(B" . "$(7#8(B")
("$(7"9(B" . "$(7#9(B")
("$(7":(B" . "$(7#:(B")
("$(7";(B" . "$(7#;(B")
("$(7"<(B" . "$(7#<(B")
("$(7"=(B" . "$(7#=(B")
("$(7">(B" . "$(7#>(B")
("$(7"?(B" . "$(7#?(B")
("$(7"@(B" . "$(7#@(B")
("$(7"A(B" . "$(7#A(B")
("$(7"B(B" . "$(7#B(B")
("$(7"C(B" . "$(7#C(B")
("$(7"D(B" . "$(7#D(B")
("$(7"E(B" . "$(7#E(B")
("$(7"F(B" . "$(7#F(B")
("$(7"G(B" . "$(7#G(B")
("$(7"H(B" . "$(7#H(B")
("$(7"I(B" . "$(7#I(B")
("$(7"J(B" . "$(7#J(B")
'(("ཀ" . "ྐ")
("ཁ" . "ྑ")
("ག" . "ྒ")
("གྷ" . "ྒྷ")
("ང" . "ྔ")
("ཅ" . "ྕ")
("ཆ" . "ྖ")
("ཇ" . "ྗ")
("ཉ" . "ྙ")
("ཊ" . "ྚ")
("ཋ" . "ྛ")
("ཌ" . "ྜ")
("ཌྷ" . "ྜྷ")
("ཎ" . "ྞ")
("ཏ" . "ྟ")
("ཐ" . "ྠ")
("ད" . "ྡ")
("དྷ" . "ྡྷ")
("ན" . "ྣ")
("པ" . "ྤ")
("ཕ" . "ྥ")
("བ" . "ྦ")
("བྷ" . "ྦྷ")
("མ" . "ྨ")
("ཙ" . "ྩ")
("ཚ" . "ྪ")
("ཛ" . "ྫ")
("ཛྷ" . "ྫྷ")
("ཝ" . "ྭ")
("ཞ" . "ྮ")
("ཟ" . "ྯ")
("འ" . "ྰ")
("ཡ" . "ྱ")
("ར" . "ྲ")
("ལ" . "ླ")
("ཤ" . "ྴ")
("ཥ" . "ྵ")
("ས" . "ྶ")
("ཧ" . "ྷ")
("ཨ" . "ྸ")
("ཀྵ" . "ྐྵ")
;; Added by Tomabechi 1999/12/10
("$(7"K(B" . "$(7#M(B") ;; Fixed form RA (224B->234D)
("ཪ" . "ྼ") ;; Fixed form RA (224B->234D)
))
;;; alist for Tibetan composite vowels (long i, vocalic r, etc.)
;;; New variable. created by Tomabechi 2000/06/08
(defconst tibetan-composite-vowel-alist
'(;; LONG A
;; ("$(7"R(B" . ((bc . tc) ?$(7"R(B))
;; ("ཱ" . ((bc . tc) ?ཱ))
;; LONG I
("$(7"T(B" . (?$(7"R(B (tc . bc) ?$(7"S(B))
("ཱི" . (?ཱ (tc . bc) ?ི))
;; LONG U
("$(7"V(B" . (?$(7"R(B (bc . tc) ?$(7"U(B))
("ཱུ" . (?ཱ (bc . tc) ?ུ))
;; VOCALIC R
("$(7"W(B" . (?$(7#C(B (tc . bc) ?$(7"a(B))
("ྲྀ" . (?ྲ (tc . bc) ?ྀ))
;; LONG VOCALIC R
("$(7"X(B" . (?$(7#C(B (bc . tc) ?$(7"R(B (tc . bc) ?$(7"a(B))
("ཷ" . (?ྲ (bc . tc) ?ཱ (tc . bc) ?ྀ))
;; VOCALIC L
("$(7"Y(B" . (?$(7#D(B (tc . bc) ?$(7"a(B))
;;$(7!;(BLONG VOCALIC L
("$(7"Z(B" . (?$(7#D(B (bc . tc) ?$(7"R(B (tc . bc) ?$(7"a(B))
("ླྀ" . (?ླ (tc . bc) ?ྀ))
;;་LONG VOCALIC L
("ཹ" . (?ླ (bc . tc) ?ཱ (tc . bc) ?ྀ))
;; LONG REVERSE I
("$(7"b(B" . (?$(7"R(B (tc . bc) ?$(7"a(B))
("ཱྀ" . (?ཱ (tc . bc) ?ྀ))
))
@ -451,102 +451,102 @@
;;; (includes some punctuation conversion rules)
;;;
(defconst tibetan-precomposition-rule-alist
`(("$(7"6#B#>(B" . "$(7$G(B")
("$(7"##C#>(B" . "$(7$_(B")
("$(7";#>(B" . "$(7$)(B")
("$(7"C#:#>(B" . "$(7%.(B")
("$(7"C###>(B" . "$(7%-(B")
("$(7"C#!#B(B" . "$(7%0(B")
("$(7"C###B(B" . "$(7%1(B")
("$(7"C#9#B(B" . "$(7%2(B")
("$(7"G#!#B(B" . "$(7%`(B")
("$(7"G###B(B" . "$(7%a(B")
("$(7"G#5#B(B" . "$(7%b(B")
("$(7"G#7#B(B" . "$(7%c(B")
("$(7"G#9#B(B" . "$(7%d(B")
("$(7"G#!#C(B" . "$(7%p(B")
("$(7"G###C(B" . "$(7%q(B")
("$(7"G#4#C(B" . "$(7%r(B")
("$(7"G#5#C(B" . "$(7%s(B")
("$(7"G#7#C(B" . "$(7%t(B")
("$(7"G#9#C(B" . "$(7%u(B")
("$(7""#>(B" . "$(7$"(B")
("$(7"*#>(B" . "$(7$%(B")
("$(7":#>(B" . "$(7$((B")
("$(7"?#>(B" . "$(7$*(B")
("$(7"E#>(B" . "$(7$.(B")
("$(7""#B(B" . "$(7$A(B")
("$(7"6#B(B" . "$(7$D(B")
("$(7""#C(B" . "$(7$Q(B")
("$(7"1#C(B" . "$(7$T(B")
("$(7"6#C(B" . "$(7$W(B")
("$(7"E#C(B" . "$(7$Z(B")
("$(7"<#C(B" . "$(7$^(B")
("$(7"C#%(B" . "$(7%#(B")
("$(7"C#*(B" . "$(7%%(B")
("$(7"C#:(B" . "$(7%+(B")
("$(7"C#<(B" . "$(7%,(B")
("$(7"D#%(B" . "$(7%B(B")
("$(7"G#%(B" . "$(7%R(B")
("$(7"G#*(B" . "$(7%S(B")
("$(7"G#:(B" . "$(7%Z(B")
("$(7"!#>(B" . "$(7$!(B")
("$(7"##>(B" . "$(7$#(B")
("$(7"&#>(B" . "$(7$$(B")
("$(7"0#>(B" . "$(7$&(B")
("$(7"2#>(B" . "$(7$'(B")
("$(7"@#>(B" . "$(7$+(B")
("$(7"C#>(B" . "$(7$,(B")
("$(7"D#>(B" . "$(7$-(B")
("$(7"G#>(B" . "$(7$/(B")
("$(7"H#>(B" . "$(7$0(B")
("$(7"!#B(B" . "$(7$@(B")
("$(7"##B(B" . "$(7$B(B")
("$(7"5#B(B" . "$(7$C(B")
("$(7"7#B(B" . "$(7$E(B")
("$(7"9#B(B" . "$(7$F(B")
("$(7"!#C(B" . "$(7$P(B")
("$(7"##C(B" . "$(7$R(B")
("$(7"0#C(B" . "$(7$S(B")
("$(7"2#C(B" . "$(7$U(B")
("$(7"5#C(B" . "$(7$V(B")
("$(7"7#C(B" . "$(7$X(B")
("$(7"9#C(B" . "$(7$Y(B")
("$(7"G#C(B" . "$(7$[(B")
("$(7"H#C(B" . "$(7$\(B")
("$(7"(#C(B" . "$(7$](B")
("$(7"!#D(B" . "$(7$`(B")
("$(7"##D(B" . "$(7$a(B")
("$(7"7#D(B" . "$(7$b(B")
("$(7"@#D(B" . "$(7$c(B")
("$(7"C#D(B" . "$(7$d(B")
("$(7"G#D(B" . "$(7$e(B")
("$(7"C#!(B" . "$(7%!(B")
("$(7"C##(B" . "$(7%"(B")
("$(7"C#((B" . "$(7%$(B")
("$(7"C#0(B" . "$(7%&(B")
("$(7"C#2(B" . "$(7%'(B")
("$(7"C#4(B" . "$(7%((B")
("$(7"C#7(B" . "$(7%)(B")
("$(7"C#9(B" . "$(7%*(B")
("$(7"D#!(B" . "$(7%@(B")
("$(7"D##(B" . "$(7%A(B")
("$(7"D#4(B" . "$(7!!(B") ; dummy 0x2121 added 2000/06/08 for transition l -> lng
("$(7"D#&(B" . "$(7%C(B")
("$(7"D#((B" . "$(7%D(B")
("$(7"D#0(B" . "$(7%E(B")
("$(7"D#2(B" . "$(7%F(B")
("$(7"D#5(B" . "$(7%G(B")
("$(7"D#7(B" . "$(7%H(B")
("$(7"D#H(B" . "$(7%I(B")
("$(7"G#!(B" . "$(7%P(B")
("$(7"G##(B" . "$(7%Q(B")
("$(7"G#0(B" . "$(7%T(B")
("$(7"G#2(B" . "$(7%U(B")
("$(7"G#4(B" . "$(7%V(B")
("$(7"G#5(B" . "$(7%W(B")
("$(7"G#7(B" . "$(7%X(B")
("$(7"G#9(B" . "$(7%Y(B")))
`(("ཕྱྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("གྲྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཚྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྩྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྒྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྐྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྒྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྨྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྐྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྒྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྤྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྦྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྨྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྐྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྒྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྣྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྤྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྦྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྨྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཁྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཉྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཙྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཞྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཤྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཁྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཕྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཁྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཐྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཕྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཤྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཛྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྔ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྙ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྩ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྫ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ལྔ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྔ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྙ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྩ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཀྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("གྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཅྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཏྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("དྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཟྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ལྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཧྭ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཀྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("གྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("པྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("བྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("མྱ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཀྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("གྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཏྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("དྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("པྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("བྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("མྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཧྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཇྲ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཀླ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("གླ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("བླ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ཟླ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རླ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སླ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྐ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྒ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྗ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྟ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྡ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྣ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྦ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("རྨ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ལྐ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ལྒ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ལྣ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>") ; dummy 0x2121 added 2000/06/08 for transition l -> lng
("ལྕ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ལྗ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ལྟ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ལྡ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ལྤ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ལྦ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("ལྷ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྐ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྒ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྟ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྡ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྣ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྤ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྦ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
("སྨ" . "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>")))
(defconst tibetan-regexp
(let ((l (list tibetan-precomposed-transcription-alist

292
lisp/language/viet-util.el
View file

@ -1,4 +1,4 @@
;;; viet-util.el --- utilities for Vietnamese -*- coding: iso-2022-7bit; -*-
;;; viet-util.el --- utilities for Vietnamese -*- coding: utf-8; -*-
;; Copyright (C) 1998, 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
@ -52,159 +52,159 @@
;; ------------+----------+--------
;; mark | mnemonic | example
;; ------------+----------+---------
;; breve | ( | a( -> ,1e(B
;; circumflex | ^ | a^ -> ,1b(B
;; horn | + | o+ -> ,1=(B
;; breve | ( | a( -> ă
;; circumflex | ^ | a^ -> â
;; horn | + | o+ -> ơ
;; ------------+----------+---------
;; acute | ' | a' -> ,1a(B
;; grave | ` | a` -> ,1`(B
;; hook above | ? | a? -> ,1d(B
;; tilde | ~ | a~ -> ,1c(B
;; dot below | . | a. -> ,1U(B
;; acute | ' | a' -> á
;; grave | ` | a` -> à
;; hook above | ? | a? -> ả
;; tilde | ~ | a~ -> ã
;; dot below | . | a. -> ạ
;; ------------+----------+---------
;; d bar | dd | dd -> ,1p(B
;; d bar | dd | dd -> đ
;; ------------+----------+---------
(defvar viet-viqr-alist
'(;; lowercase
(?,1!(B . "a('") ; 161
(?,1"(B . "a(`") ; 162
(?,1#(B . "a(.") ; 163
(?,1$(B . "a^'") ; 164
(?,1%(B . "a^`") ; 165
(?,1&(B . "a^?") ; 166
(?,1'(B . "a^.") ; 167
(?,1((B . "e~") ; 168
(?,1)(B . "e.") ; 169
(?,1*(B . "e^'") ; 170
(?,1+(B . "e^`") ; 171
(?,1,(B . "e^?") ; 172
(?,1-(B . "e^~") ; 173
(?,1.(B . "e^.") ; 174
(?,1/(B . "o^'") ; 175
(?,10(B . "o^`") ; 176
(?,11(B . "o^?") ; 177
(?,12(B . "o^~") ; 178
(?,15(B . "o^.") ; 181
(?,16(B . "o+`") ; 182
(?,17(B . "o+?") ; 183
(?,18(B . "i.") ; 184
(?,1=(B . "o+") ; 189
(?,1>(B . "o+'") ; 190
(?,1F(B . "a(?") ; 198
(?,1G(B . "a(~") ; 199
(?,1O(B . "y`") ; 207
(?,1Q(B . "u+'") ; 209
(?,1U(B . "a.") ; 213
(?,1V(B . "y?") ; 214
(?,1W(B . "u+`") ; 215
(?,1X(B . "u+?") ; 216
(?,1[(B . "y~") ; 219
(?,1\(B . "y.") ; 220
(?,1^(B . "o+~") ; 222
(?,1_(B . "u+") ; 223
(?,1`(B . "a`") ; 224
(?,1a(B . "a'") ; 225
(?,1b(B . "a^") ; 226
(?,1c(B . "a~") ; 227
(?,1d(B . "a?") ; 228
(?,1e(B . "a(") ; 229
(?,1f(B . "u+~") ; 230
(?,1g(B . "a^~") ; 231
(?,1h(B . "e`") ; 232
(?,1i(B . "e'") ; 233
(?,1j(B . "e^") ; 234
(?,1k(B . "e?") ; 235
(?,1l(B . "i`") ; 236
(?,1m(B . "i'") ; 237
(?,1n(B . "i~") ; 238
(?,1o(B . "i?") ; 239
(?,1p(B . "dd") ; 240
(?,1q(B . "u+.") ; 241
(?,1r(B . "o`") ; 242
(?,1s(B . "o'") ; 243
(?,1t(B . "o^") ; 244
(?,1u(B . "o~") ; 245
(?,1v(B . "o?") ; 246
(?,1w(B . "o.") ; 247
(?,1x(B . "u.") ; 248
(?,1y(B . "u`") ; 249
(?,1z(B . "u'") ; 250
(?,1{(B . "u~") ; 251
(?,1|(B . "u?") ; 252
(?,1}(B . "y'") ; 253
(?,1~(B . "o+.") ; 254
(?ắ . "a('") ; 161
(?ằ . "a(`") ; 162
(?ặ . "a(.") ; 163
(?ấ . "a^'") ; 164
(?ầ . "a^`") ; 165
(?ẩ . "a^?") ; 166
(?ậ . "a^.") ; 167
(?ẽ . "e~") ; 168
(?ẹ . "e.") ; 169
(?ế . "e^'") ; 170
(?ề . "e^`") ; 171
(?ể . "e^?") ; 172
(?ễ . "e^~") ; 173
(?ệ . "e^.") ; 174
(?ố . "o^'") ; 175
(?ồ . "o^`") ; 176
(?ổ . "o^?") ; 177
(?ỗ . "o^~") ; 178
(?ộ . "o^.") ; 181
(?ờ . "o+`") ; 182
(?ở . "o+?") ; 183
(?ị . "i.") ; 184
(?ơ . "o+") ; 189
(?ớ . "o+'") ; 190
(?ẳ . "a(?") ; 198
(?ẵ . "a(~") ; 199
(?ỳ . "y`") ; 207
(?ứ . "u+'") ; 209
(?ạ . "a.") ; 213
(?ỷ . "y?") ; 214
(?ừ . "u+`") ; 215
(?ử . "u+?") ; 216
(?ỹ . "y~") ; 219
(?ỵ . "y.") ; 220
(?ỡ . "o+~") ; 222
(?ư . "u+") ; 223
(?à . "a`") ; 224
(?á . "a'") ; 225
(?â . "a^") ; 226
(?ã . "a~") ; 227
(?ả . "a?") ; 228
(?ă . "a(") ; 229
(?ữ . "u+~") ; 230
(?ẫ . "a^~") ; 231
(?è . "e`") ; 232
(?é . "e'") ; 233
(?ê . "e^") ; 234
(?ẻ . "e?") ; 235
(?ì . "i`") ; 236
(?í . "i'") ; 237
(?ĩ . "i~") ; 238
(?ỉ . "i?") ; 239
(?đ . "dd") ; 240
(?ự . "u+.") ; 241
(?ò . "o`") ; 242
(?ó . "o'") ; 243
(?ô . "o^") ; 244
(?õ . "o~") ; 245
(?ỏ . "o?") ; 246
(?ọ . "o.") ; 247
(?ụ . "u.") ; 248
(?ù . "u`") ; 249
(?ú . "u'") ; 250
(?ũ . "u~") ; 251
(?ủ . "u?") ; 252
(?ý . "y'") ; 253
(?ợ . "o+.") ; 254
;; upper case
(?,2!(B . "A('") ; 161
(?,2"(B . "A(`") ; 162
(?,2#(B . "A(.") ; 163
(?,2$(B . "A^'") ; 164
(?,2%(B . "A^`") ; 165
(?,2&(B . "A^?") ; 166
(?,2'(B . "A^.") ; 167
(?,2((B . "E~") ; 168
(?,2)(B . "E.") ; 169
(?,2*(B . "E^'") ; 170
(?,2+(B . "E^`") ; 171
(?,2,(B . "E^?") ; 172
(?,2-(B . "E^~") ; 173
(?,2.(B . "E^.") ; 174
(?,2/(B . "O^'") ; 175
(?,20(B . "O^`") ; 176
(?,21(B . "O^?") ; 177
(?,22(B . "O^~") ; 178
(?,25(B . "O^.") ; 181
(?,26(B . "O+`") ; 182
(?,27(B . "O+?") ; 183
(?,28(B . "I.") ; 184
(?,2=(B . "O+") ; 189
(?,2>(B . "O+'") ; 190
(?,2F(B . "A(?") ; 198
(?,2G(B . "A(~") ; 199
(?,2O(B . "Y`") ; 207
(?,2Q(B . "U+'") ; 209
(?,2U(B . "A.") ; 213
(?,2V(B . "Y?") ; 214
(?,2W(B . "U+`") ; 215
(?,2X(B . "U+?") ; 216
(?,2[(B . "Y~") ; 219
(?,2\(B . "Y.") ; 220
(?,2^(B . "O+~") ; 222
(?,2_(B . "U+") ; 223
(?,2`(B . "A`") ; 224
(?,2a(B . "A'") ; 225
(?,2b(B . "A^") ; 226
(?,2c(B . "A~") ; 227
(?,2d(B . "A?") ; 228
(?,2e(B . "A(") ; 229
(?,2f(B . "U+~") ; 230
(?,2g(B . "A^~") ; 231
(?,2h(B . "E`") ; 232
(?,2i(B . "E'") ; 233
(?,2j(B . "E^") ; 234
(?,2k(B . "E?") ; 235
(?,2l(B . "I`") ; 236
(?,2m(B . "I'") ; 237
(?,2n(B . "I~") ; 238
(?,2o(B . "I?") ; 239
(?,2p(B . "DD") ; 240
(?,2p(B . "dD") ; 240
(?,2p(B . "Dd") ; 240
(?,2q(B . "U+.") ; 241
(?,2r(B . "O`") ; 242
(?,2s(B . "O'") ; 243
(?,2t(B . "O^") ; 244
(?,2u(B . "O~") ; 245
(?,2v(B . "O?") ; 246
(?,2w(B . "O.") ; 247
(?,2x(B . "U.") ; 248
(?,2y(B . "U`") ; 249
(?,2z(B . "U'") ; 250
(?,2{(B . "U~") ; 251
(?,2|(B . "U?") ; 252
(?,2}(B . "Y'") ; 253
(?,2~(B . "O+.") ; 254
(?Ắ . "A('") ; 161
(?Ằ . "A(`") ; 162
(?Ặ . "A(.") ; 163
(?Ấ . "A^'") ; 164
(?Ầ . "A^`") ; 165
(?Ẩ . "A^?") ; 166
(?Ậ . "A^.") ; 167
(?Ẽ . "E~") ; 168
(?Ẹ . "E.") ; 169
(?Ế . "E^'") ; 170
(?Ề . "E^`") ; 171
(?Ể . "E^?") ; 172
(?Ễ . "E^~") ; 173
(?Ệ . "E^.") ; 174
(?Ố . "O^'") ; 175
(?Ồ . "O^`") ; 176
(?Ổ . "O^?") ; 177
(?Ỗ . "O^~") ; 178
(?Ộ . "O^.") ; 181
(?Ờ . "O+`") ; 182
(?Ở . "O+?") ; 183
(?Ị . "I.") ; 184
(?Ơ . "O+") ; 189
(?Ớ . "O+'") ; 190
(?Ẳ . "A(?") ; 198
(?Ẵ . "A(~") ; 199
(?Ỳ . "Y`") ; 207
(?Ứ . "U+'") ; 209
(?Ạ . "A.") ; 213
(?Ỷ . "Y?") ; 214
(?Ừ . "U+`") ; 215
(?Ử . "U+?") ; 216
(?Ỹ . "Y~") ; 219
(?Ỵ . "Y.") ; 220
(?Ỡ . "O+~") ; 222
(?Ư . "U+") ; 223
(?À . "A`") ; 224
(?Á . "A'") ; 225
(? . "A^") ; 226
(?Ã . "A~") ; 227
(?Ả . "A?") ; 228
(?Ă . "A(") ; 229
(?Ữ . "U+~") ; 230
(?Ẫ . "A^~") ; 231
(?È . "E`") ; 232
(?É . "E'") ; 233
(?Ê . "E^") ; 234
(?Ẻ . "E?") ; 235
(?Ì . "I`") ; 236
(?Í . "I'") ; 237
(?Ĩ . "I~") ; 238
(?Ỉ . "I?") ; 239
(?Đ . "DD") ; 240
(?Đ . "dD") ; 240
(?Đ . "Dd") ; 240
(?Ự . "U+.") ; 241
(?Ò . "O`") ; 242
(?Ó . "O'") ; 243
(?Ô . "O^") ; 244
(?Õ . "O~") ; 245
(?Ỏ . "O?") ; 246
(?Ọ . "O.") ; 247
(?Ụ . "U.") ; 248
(?Ù . "U`") ; 249
(?Ú . "U'") ; 250
(?Ũ . "U~") ; 251
(?Ủ . "U?") ; 252
(?Ý . "Y'") ; 253
(?Ợ . "O+.") ; 254
;; escape from composition
(?\( . "\\(") ; breve (left parenthesis)

391
lisp/ldefs-boot.el
View file

File diff suppressed because it is too large Load diff

2
lisp/org/ChangeLog
View file

@ -5577,7 +5577,7 @@
2012-04-01 Bernt Hansen <bernt@norang.ca>
* org.el: Honour existing restrictions when regenerating the agenda.
* org.el: Honor existing restrictions when regenerating the agenda.
2012-04-01 Bastien Guerry <bzg@gnu.org>

55
lisp/progmodes/cc-engine.el
View file

@ -2180,32 +2180,45 @@ comment at the start of cc-engine.el for more info."
;; reduced by buffer changes, and increased by invocations of
;; `c-state-literal-at'. FIXME!!!
(defsubst c-state-pp-to-literal (from to)
(defsubst c-state-pp-to-literal (from to &optional not-in-delimiter)
;; Do a parse-partial-sexp from FROM to TO, returning either
;; (STATE TYPE (BEG . END)) if TO is in a literal; or
;; (STATE) otherwise,
;; where STATE is the parsing state at TO, TYPE is the type of the literal
;; (one of 'c, 'c++, 'string) and (BEG . END) is the boundaries of the literal.
;;
;; Unless NOT-IN-DELIMITER is non-nil, when TO is inside a two-character
;; comment opener, this is recognized as being in a comment literal.
;;
;; Only elements 3 (in a string), 4 (in a comment), 5 (following a quote),
;; 7 (comment type) and 8 (start of comment/string) (and possibly 9) of
;; STATE are valid.
(save-excursion
(let ((s (parse-partial-sexp from to))
ty)
(when (or (nth 3 s) (nth 4 s)) ; in a string or comment
ty co-st)
(cond
((or (nth 3 s) (nth 4 s)) ; in a string or comment
(setq ty (cond
((nth 3 s) 'string)
((eq (nth 7 s) t) 'c++)
((nth 7 s) 'c++)
(t 'c)))
(parse-partial-sexp (point) (point-max)
nil ; TARGETDEPTH
nil ; STOPBEFORE
s ; OLDSTATE
'syntax-table)) ; stop at end of literal
(if ty
`(,s ,ty (,(nth 8 s) . ,(point)))
`(,s)))))
nil ; TARGETDEPTH
nil ; STOPBEFORE
s ; OLDSTATE
'syntax-table) ; stop at end of literal
`(,s ,ty (,(nth 8 s) . ,(point))))
((and (not not-in-delimiter) ; inside a comment starter
(not (bobp))
(progn (backward-char)
(looking-at c-comment-start-regexp)))
(setq ty (if (looking-at c-block-comment-start-regexp) 'c 'c++)
co-st (point))
(forward-comment 1)
`(,s ,ty (,co-st . ,(point))))
(t `(,s))))))
(defun c-state-safe-place (here)
;; Return a buffer position before HERE which is "safe", i.e. outside any
@ -3143,10 +3156,13 @@ comment at the start of cc-engine.el for more info."
;; This function is called from c-after-change.
;; The caches of non-literals:
(if (< here c-state-nonlit-pos-cache-limit)
(setq c-state-nonlit-pos-cache-limit here))
(if (< here c-state-semi-nonlit-pos-cache-limit)
(setq c-state-semi-nonlit-pos-cache-limit here))
;; Note that we use "<=" for the possibility of the second char of a two-char
;; comment opener being typed; this would invalidate any cache position at
;; HERE.
(if (<= here c-state-nonlit-pos-cache-limit)
(setq c-state-nonlit-pos-cache-limit (1- here)))
(if (<= here c-state-semi-nonlit-pos-cache-limit)
(setq c-state-semi-nonlit-pos-cache-limit (1- here)))
;; `c-state-cache':
;; Case 1: if `here' is in a literal containing point-min, everything
@ -4444,19 +4460,12 @@ comment at the start of cc-engine.el for more info."
(lim (or lim (c-state-semi-safe-place pos)))
(pp-to-lit (save-restriction
(widen)
(c-state-pp-to-literal lim pos)))
(c-state-pp-to-literal lim pos not-in-delimiter)))
(state (car pp-to-lit))
(lit-limits (car (cddr pp-to-lit))))
(cond
(lit-limits)
((and (not not-in-delimiter)
(not (elt state 5))
(eq (char-before) ?/)
(looking-at "[/*]")) ; FIXME!!! use c-line/block-comment-starter. 2008-09-28.
;; We're standing in a comment starter.
(backward-char 1)
(cons (point) (progn (c-forward-single-comment) (point))))
(near
(goto-char pos)

2
lisp/progmodes/cc-fonts.el
View file

@ -2486,7 +2486,7 @@ need for `pike-font-lock-extra-types'.")
(setq comment-beg nil))
(setq region-beg comment-beg))
(if (eq (elt (parse-partial-sexp comment-beg (+ comment-beg 2)) 7) t)
(if (elt (parse-partial-sexp comment-beg (+ comment-beg 2)) 7)
;; Collect a sequence of doc style line comments.
(progn
(goto-char comment-beg)

9
nt/ChangeLog
View file

@ -1,3 +1,12 @@
2013-04-01 Eli Zaretskii <eliz@gnu.org>
* README: A better documentation of ddeclient.exe.
* README.W32: A better documentation of ddeclient.exe.
* paths.h (PATH_EXEC): Add nt/oo-spd/i386 and nt/oo/i386
subdirectories.
2013-03-30 Eli Zaretskii <eliz@gnu.org>
* inc/ms-w32.h (TERM_HEADER): Remove definition.

7
nt/README
View file

@ -51,7 +51,12 @@
+ ebrowse.exe - A tool for generating C++ browse information. See the
`Ebrowse' manual.
+ ddeclient.exe - A tool for interacting with DDE servers.
+ ddeclient.exe - A tool for interacting with DDE servers. To be
invoked as "ddeclient SERVER [TOPIC]", where SERVER is the DDE
server name, and sends each line of its standard input to the DDE
server using the DdeClientTransaction API. This program is
supposed to be invoked via the 'call-process-region' Emacs
primitive.
+ hexl.exe - A tool for converting files to hex dumps. See the
`Editing Binary Files' node of the Emacs manual.

7
nt/README.W32
View file

@ -114,7 +114,12 @@ See the end of the file for license conditions.
+ ebrowse.exe - A tool for generating C++ browse information. See the
`Ebrowse' manual.
+ ddeclient.exe - A tool for interacting with DDE servers.
+ ddeclient.exe - A tool for interacting with DDE servers. To be
invoked as "ddeclient SERVER [TOPIC]", where SERVER is the DDE
server name, and sends each line of its standard input to the DDE
server using the DdeClientTransaction API. This program is
supposed to be invoked via the 'call-process-region' Emacs
primitive.
+ hexl.exe - A tool for producing hex dumps of binary files. See the
`Editing Binary Files' node of the Emacs manual.

2
nt/paths.h
View file

@ -43,7 +43,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
variable exec-directory. exec-directory is used for finding
executables and other architecture-dependent files. */
/* #define PATH_EXEC "/usr/local/lib/emacs/etc" */
#define PATH_EXEC "%emacs_dir%/bin;%emacs_dir%/lib-src/oo-spd/i386;%emacs_dir%/lib-src/oo/i386"
#define PATH_EXEC "%emacs_dir%/bin;%emacs_dir%/lib-src/oo-spd/i386;%emacs_dir%/lib-src/oo/i386;%emacs_dir%/nt/oo-spd/i386;%emacs_dir%/nt/oo/i386"
/* Where Emacs should look for its architecture-independent data
files, like the NEWS file. The lisp variable data-directory

37
src/ChangeLog
View file

@ -1,3 +1,40 @@
2013-04-02 Paul Eggert <eggert@cs.ucla.edu>
Prefer < to > in range checks such as 0 <= i && i < N.
This makes it easier to visualize quantities on a number line.
This patch doesn't apply to all such range checks,
only to the range checks affected by the 2013-03-24 change.
This patch reverts most of the 2013-03-24 change.
* alloc.c (xpalloc, Fgarbage_collect):
* ccl.c (ccl_driver, resolve_symbol_ccl_program):
* character.c (string_escape_byte8):
* charset.c (read_hex):
* data.c (cons_to_unsigned):
* dispnew.c (update_frame_1):
* doc.c (Fsubstitute_command_keys):
* doprnt.c (doprnt):
* editfns.c (hi_time, decode_time_components):
* fileio.c (file_offset):
* fns.c (larger_vector, make_hash_table, Fmake_hash_table):
* font.c (font_intern_prop):
* frame.c (x_set_alpha):
* gtkutil.c (get_utf8_string):
* indent.c (check_display_width):
* keymap.c (Fkey_description):
* lisp.h (FIXNUM_OVERFLOW_P, vcopy):
* lread.c (read1):
* minibuf.c (read_minibuf_noninteractive):
* process.c (wait_reading_process_output):
* search.c (Freplace_match):
* window.c (get_phys_cursor_glyph):
* xdisp.c (redisplay_internal):
* xsmfns.c (smc_save_yourself_CB):
Prefer < to > for range checks.
* dispnew.c (sit_for): Don't mishandle NaNs.
This fixes a bug introduced in the 2013-03-24 change.
* editfns.c (decode_time_components): Don't hoist comparison.
This fixes another bug introduced in the 2013-03-24 change.
2013-03-31 Dmitry Antipov <dmantipov@yandex.ru>
* frame.h (struct frame): Drop scroll_bottom_vpos

2
src/ChangeLog.10
View file

@ -1865,7 +1865,7 @@
2006-10-07 Ralf Angeli <angeli@caeruleus.net>
* w32fns.c (w32_createwindow): Honour left and top positions if
* w32fns.c (w32_createwindow): Honor left and top positions if
supplied explicitly.
2006-10-06 Kim F. Storm <storm@cua.dk>

4
src/alloc.c
View file

@ -779,7 +779,7 @@ xpalloc (void *pa, ptrdiff_t *nitems, ptrdiff_t nitems_incr_min,
ptrdiff_t nitems_incr_max = n_max - n;
ptrdiff_t incr = max (nitems_incr_min, min (incr_estimate, nitems_incr_max));
eassert (item_size > 0 && nitems_incr_min > 0 && n >= 0 && nitems_max >= -1);
eassert (0 < item_size && 0 < nitems_incr_min && 0 <= n && -1 <= nitems_max);
if (! pa)
*nitems = 0;
if (nitems_incr_max < incr)
@ -5376,7 +5376,7 @@ See Info node `(elisp)Garbage Collection'. */)
double tot = total_bytes_of_live_objects ();
tot *= XFLOAT_DATA (Vgc_cons_percentage);
if (tot > 0)
if (0 < tot)
{
if (tot < TYPE_MAXIMUM (EMACS_INT))
gc_relative_threshold = tot;

4
src/ccl.c
View file

@ -1668,7 +1668,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size
}
map = XCDR (map);
if (! (VECTORP (map)
&& ASIZE (map) > 0
&& 0 < ASIZE (map)
&& INTEGERP (AREF (map, 0))
&& XINT (AREF (map, 0)) <= op
&& op - XINT (AREF (map, 0)) + 1 < ASIZE (map)))
@ -1867,7 +1867,7 @@ resolve_symbol_ccl_program (Lisp_Object ccl)
return Qnil;
}
if (! (XINT (AREF (result, CCL_HEADER_BUF_MAG)) >= 0
if (! (0 <= XINT (AREF (result, CCL_HEADER_BUF_MAG))
&& ASCENDING_ORDER (0, XINT (AREF (result, CCL_HEADER_EOF)),
ASIZE (ccl))))
return Qnil;

6
src/character.c
View file

@ -833,8 +833,8 @@ string_escape_byte8 (Lisp_Object string)
if (multibyte)
{
if (byte8_count > (MOST_POSITIVE_FIXNUM - nchars) / 3
|| byte8_count > (STRING_BYTES_BOUND - nbytes) / 2)
if ((MOST_POSITIVE_FIXNUM - nchars) / 3 < byte8_count
|| (STRING_BYTES_BOUND - nbytes) / 2 < byte8_count)
string_overflow ();
/* Convert 2-byte sequence of byte8 chars to 4-byte octal. */
@ -843,7 +843,7 @@ string_escape_byte8 (Lisp_Object string)
}
else
{
if (byte8_count > (STRING_BYTES_BOUND - nbytes) / 3)
if ((STRING_BYTES_BOUND - nbytes) / 3 < byte8_count)
string_overflow ();
/* Convert 1-byte sequence of byte8 chars to 4-byte octal. */

2
src/charset.c
View file

@ -447,7 +447,7 @@ read_hex (FILE *fp, bool *eof, bool *overflow)
n = 0;
while (c_isxdigit (c = getc (fp)))
{
if (n > UINT_MAX >> 4)
if (UINT_MAX >> 4 < n)
*overflow = 1;
n = ((n << 4)
| (c - ('0' <= c && c <= '9' ? '0'

4
src/data.c
View file

@ -2337,13 +2337,13 @@ cons_to_unsigned (Lisp_Object c, uintmax_t max)
uintmax_t val IF_LINT (= 0);
if (INTEGERP (c))
{
valid = XINT (c) >= 0;
valid = 0 <= XINT (c);
val = XINT (c);
}
else if (FLOATP (c))
{
double d = XFLOAT_DATA (c);
if (d >= 0
if (0 <= d
&& d < (max == UINTMAX_MAX ? (double) UINTMAX_MAX + 1 : max + 1))
{
val = d;

5
src/dired.c
View file

@ -517,8 +517,9 @@ file_name_completion (Lisp_Object file, Lisp_Object dirname, bool all_flag,
QUIT;
if (len < SCHARS (encoded_file)
|| scmp (dp->d_name, SSDATA (encoded_file),
SCHARS (encoded_file)) >= 0)
|| (scmp (dp->d_name, SSDATA (encoded_file),
SCHARS (encoded_file))
>= 0))
continue;
if (file_name_completion_stat (fd, dp, &st) < 0)

4
src/dispnew.c
View file

@ -4506,7 +4506,7 @@ update_frame_1 (struct frame *f, bool force_p, bool inhibit_id_p)
}
}
lint_assume (FRAME_LINES (f) >= 0);
lint_assume (0 <= FRAME_LINES (f));
pause_p = 0 < i && i < FRAME_LINES (f) - 1;
/* Now just clean up termcap drivers and set cursor, etc. */
@ -5772,7 +5772,7 @@ sit_for (Lisp_Object timeout, bool reading, int display_option)
else if (FLOATP (timeout))
{
double seconds = XFLOAT_DATA (timeout);
if (seconds <= 0)
if (! (0 < seconds))
return Qt;
else
{

2
src/doc.c
View file

@ -826,7 +826,7 @@ Otherwise, return a new string, without any text properties. */)
if (NILP (tem)) /* but not on any keys */
{
ptrdiff_t offset = bufp - buf;
if (bsize > STRING_BYTES_BOUND - 4)
if (STRING_BYTES_BOUND - 4 < bsize)
string_overflow ();
buf = xrealloc (buf, bsize += 4);
bufp = buf + offset;

2
src/doprnt.c
View file

@ -361,7 +361,7 @@ doprnt (char *buffer, ptrdiff_t bufsize, const char *format,
/* Copy string into final output, truncating if no room. */
doit:
eassert (tem >= 0);
eassert (0 <= tem);
/* Coming here means STRING contains ASCII only. */
if (STRING_BYTES_BOUND < tem)
error ("Format width or precision too large");

6
src/editfns.c
View file

@ -1398,8 +1398,8 @@ hi_time (time_t t)
no runtime check is needed, and taking care not to convert
negative numbers to unsigned before comparing them. */
if (! ((! TYPE_SIGNED (time_t)
|| TIME_T_MIN >> 16 >= MOST_NEGATIVE_FIXNUM
|| hi >= MOST_NEGATIVE_FIXNUM)
|| MOST_NEGATIVE_FIXNUM <= TIME_T_MIN >> 16
|| MOST_NEGATIVE_FIXNUM <= hi)
&& (TIME_T_MAX >> 16 <= MOST_POSITIVE_FIXNUM
|| hi <= MOST_POSITIVE_FIXNUM)))
time_overflow ();
@ -1561,7 +1561,7 @@ decode_time_components (Lisp_Object high, Lisp_Object low, Lisp_Object usec,
if (result)
{
if (hi >= (TYPE_SIGNED (time_t) ? TIME_T_MIN >> 16 : 0)
if ((TYPE_SIGNED (time_t) ? TIME_T_MIN >> 16 <= hi : 0 <= hi)
&& hi <= TIME_T_MAX >> 16)
{
/* Return the greatest representable time that is not greater

2
src/fileio.c
View file

@ -3449,7 +3449,7 @@ file_offset (Lisp_Object val)
if (FLOATP (val))
{
double v = XFLOAT_DATA (val);
if (v >= 0
if (0 <= v
&& (sizeof (off_t) < sizeof v
? v <= TYPE_MAXIMUM (off_t)
: v < TYPE_MAXIMUM (off_t)))

12
src/fns.c
View file

@ -3409,7 +3409,7 @@ larger_vector (Lisp_Object vec, ptrdiff_t incr_min, ptrdiff_t nitems_max)
ptrdiff_t n_max = (0 <= nitems_max && nitems_max < C_language_max
? nitems_max : C_language_max);
eassert (VECTORP (vec));
eassert (incr_min > 0 && nitems_max >= -1);
eassert (0 < incr_min && -1 <= nitems_max);
old_size = ASIZE (vec);
incr_max = n_max - old_size;
incr = max (incr_min, min (old_size >> 1, incr_max));
@ -3574,9 +3574,9 @@ make_hash_table (struct hash_table_test test,
eassert (SYMBOLP (test.name));
eassert (INTEGERP (size) && XINT (size) >= 0);
eassert ((INTEGERP (rehash_size) && XINT (rehash_size) > 0)
|| (FLOATP (rehash_size) && XFLOAT_DATA (rehash_size) > 1));
|| (FLOATP (rehash_size) && 1 < XFLOAT_DATA (rehash_size)));
eassert (FLOATP (rehash_threshold)
&& XFLOAT_DATA (rehash_threshold) > 0
&& 0 < XFLOAT_DATA (rehash_threshold)
&& XFLOAT_DATA (rehash_threshold) <= 1.0);
if (XFASTINT (size) == 0)
@ -4312,15 +4312,15 @@ usage: (make-hash-table &rest KEYWORD-ARGS) */)
/* Look for `:rehash-size SIZE'. */
i = get_key_arg (QCrehash_size, nargs, args, used);
rehash_size = i ? args[i] : make_float (DEFAULT_REHASH_SIZE);
if (! ((INTEGERP (rehash_size) && XINT (rehash_size) > 0)
|| (FLOATP (rehash_size) && XFLOAT_DATA (rehash_size) > 1)))
if (! ((INTEGERP (rehash_size) && 0 < XINT (rehash_size))
|| (FLOATP (rehash_size) && 1 < XFLOAT_DATA (rehash_size))))
signal_error ("Invalid hash table rehash size", rehash_size);
/* Look for `:rehash-threshold THRESHOLD'. */
i = get_key_arg (QCrehash_threshold, nargs, args, used);
rehash_threshold = i ? args[i] : make_float (DEFAULT_REHASH_THRESHOLD);
if (! (FLOATP (rehash_threshold)
&& XFLOAT_DATA (rehash_threshold) > 0
&& 0 < XFLOAT_DATA (rehash_threshold)
&& XFLOAT_DATA (rehash_threshold) <= 1))
signal_error ("Invalid hash table rehash threshold", rehash_threshold);

4
src/font.c
View file

@ -229,7 +229,7 @@ font_intern_prop (const char *str, ptrdiff_t len, bool force_symbol)
if (len == 1 && *str == '*')
return Qnil;
if (!force_symbol && len > 0 && '0' <= *str && *str <= '9')
if (!force_symbol && 0 < len && '0' <= *str && *str <= '9')
{
for (i = 1; i < len; i++)
if (! ('0' <= str[i] && str[i] <= '9'))
@ -243,7 +243,7 @@ font_intern_prop (const char *str, ptrdiff_t len, bool force_symbol)
{
if (i == len)
return make_number (n);
if (n > MOST_POSITIVE_FIXNUM / 10)
if (MOST_POSITIVE_FIXNUM / 10 < n)
break;
}

9
src/frame.c
View file

@ -889,7 +889,7 @@ DEFUN ("frame-list", Fframe_list, Sframe_list,
/* Return CANDIDATE if it can be used as 'other-than-FRAME' frame on the
same tty (for tty frames) or among frames which uses FRAME's keyboard.
If MINIBUF is nil, do not consider minibuffer-only candidate.
If MINIBUF is `visible', do not consider an invisible candidate.
If MINIBUF is `visible', do not consider an invisible candidate.
If MINIBUF is a window, consider only its own frame and candidate now
using that window as the minibuffer.
If MINIBUF is 0, consider candidate if it is visible or iconified.
@ -3311,16 +3311,15 @@ x_set_alpha (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
else if (FLOATP (item))
{
alpha = XFLOAT_DATA (item);
if (alpha < 0.0 || alpha > 1.0)
if (! (0 <= alpha && alpha <= 1.0))
args_out_of_range (make_float (0.0), make_float (1.0));
}
else if (INTEGERP (item))
{
EMACS_INT ialpha = XINT (item);
if (ialpha < 0 || ialpha > 100)
if (! (0 <= ialpha && alpha <= 100))
args_out_of_range (make_number (0), make_number (100));
else
alpha = ialpha / 100.0;
alpha = ialpha / 100.0;
}
else
wrong_type_argument (Qnumberp, item);

2
src/gtkutil.c
View file

@ -543,7 +543,7 @@ get_utf8_string (const char *str)
if (cp) g_free (cp);
len = strlen (str);
if (nr_bad > (min (PTRDIFF_MAX, SIZE_MAX) - len - 1) / 4)
if ((min (PTRDIFF_MAX, SIZE_MAX) - len - 1) / 4 < nr_bad)
memory_full (SIZE_MAX);
up = utf8_str = xmalloc (len + nr_bad * 4 + 1);
p = (unsigned char *)str;

2
src/indent.c
View file

@ -466,7 +466,7 @@ check_display_width (ptrdiff_t pos, ptrdiff_t col, ptrdiff_t *endpos)
if ((prop = Fplist_get (plist, QCwidth),
RANGED_INTEGERP (0, prop, INT_MAX)))
width = XINT (prop);
else if (FLOATP (prop) && XFLOAT_DATA (prop) >= 0
else if (FLOATP (prop) && 0 <= XFLOAT_DATA (prop)
&& XFLOAT_DATA (prop) <= INT_MAX)
width = (int)(XFLOAT_DATA (prop) + 0.5);
else if ((prop = Fplist_get (plist, QCalign_to),

2
src/keymap.c
View file

@ -2063,7 +2063,7 @@ For an approximate inverse of this, see `kbd'. */)
size += XINT (Flength (prefix));
/* This has one extra element at the end that we don't pass to Fconcat. */
if (size > min (PTRDIFF_MAX, SIZE_MAX) / word_size / 4)
if (min (PTRDIFF_MAX, SIZE_MAX) / word_size / 4 < size)
memory_full (SIZE_MAX);
SAFE_ALLOCA_LISP (args, size * 4);

4
src/lisp.h
View file

@ -543,7 +543,7 @@ static EMACS_INT const VALMASK
type or if I is a NaN. */
#define FIXNUM_OVERFLOW_P(i) \
(! (((i) >= 0 || (i) >= MOST_NEGATIVE_FIXNUM) && (i) <= MOST_POSITIVE_FIXNUM))
(! ((0 <= (i) || MOST_NEGATIVE_FIXNUM <= (i)) && (i) <= MOST_POSITIVE_FIXNUM))
LISP_INLINE ptrdiff_t
clip_to_bounds (ptrdiff_t lower, EMACS_INT num, ptrdiff_t upper)
@ -2560,7 +2560,7 @@ gc_aset (Lisp_Object array, ptrdiff_t idx, Lisp_Object val)
LISP_INLINE void
vcopy (Lisp_Object v, ptrdiff_t offset, Lisp_Object *args, ptrdiff_t count)
{
eassert (offset >= 0 && count >= 0 && offset + count <= ASIZE (v));
eassert (0 <= offset && 0 <= count && offset + count <= ASIZE (v));
memcpy (XVECTOR (v)->contents + offset, args, count * sizeof *args);
}

12
src/lread.c
View file

@ -2636,7 +2636,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
nskip--;
else
UNREAD (c);
if (load_force_doc_strings
&& (FROM_FILE_P (readcharfun)))
{
@ -2731,8 +2731,8 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
/* Read a non-negative integer. */
while (c >= '0' && c <= '9')
{
if (n > MOST_POSITIVE_FIXNUM / 10
|| n * 10 + c - '0' > MOST_POSITIVE_FIXNUM)
if (MOST_POSITIVE_FIXNUM / 10 < n
|| MOST_POSITIVE_FIXNUM < n * 10 + c - '0')
n = MOST_POSITIVE_FIXNUM + 1;
else
n = n * 10 + c - '0';
@ -2930,7 +2930,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
if (end - p < MAX_MULTIBYTE_LENGTH)
{
ptrdiff_t offset = p - read_buffer;
if (read_buffer_size > min (PTRDIFF_MAX, SIZE_MAX) / 2)
if (min (PTRDIFF_MAX, SIZE_MAX) / 2 < read_buffer_size)
memory_full (SIZE_MAX);
read_buffer = xrealloc (read_buffer, read_buffer_size * 2);
read_buffer_size *= 2;
@ -3064,7 +3064,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
if (end - p < MAX_MULTIBYTE_LENGTH)
{
ptrdiff_t offset = p - read_buffer;
if (read_buffer_size > min (PTRDIFF_MAX, SIZE_MAX) / 2)
if (min (PTRDIFF_MAX, SIZE_MAX) / 2 < read_buffer_size)
memory_full (SIZE_MAX);
read_buffer = xrealloc (read_buffer, read_buffer_size * 2);
read_buffer_size *= 2;
@ -3094,7 +3094,7 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
if (p == end)
{
ptrdiff_t offset = p - read_buffer;
if (read_buffer_size > min (PTRDIFF_MAX, SIZE_MAX) / 2)
if (min (PTRDIFF_MAX, SIZE_MAX) / 2 < read_buffer_size)
memory_full (SIZE_MAX);
read_buffer = xrealloc (read_buffer, read_buffer_size * 2);
read_buffer_size *= 2;

2
src/minibuf.c
View file

@ -251,7 +251,7 @@ read_minibuf_noninteractive (Lisp_Object map, Lisp_Object initial,
{
if (len == size)
{
if (size > STRING_BYTES_BOUND / 2)
if (STRING_BYTES_BOUND / 2 < size)
memory_full (SIZE_MAX);
size *= 2;
line = xrealloc (line, size);

2
src/nsmenu.m
View file

@ -508,7 +508,7 @@
x_activate_menubar (struct frame *f)
{
NSArray *a = [[NSApp mainMenu] itemArray];
/* Update each submenu separatly so ns_update_menubar don't reset
/* Update each submenu separately so ns_update_menubar doesn't reset
the delegate. */
int i = 0;
while (i < [a count])

2
src/process.c
View file

@ -4236,7 +4236,7 @@ wait_reading_process_output (intmax_t time_limit, int nsecs, int read_kbd,
time_limit = 0;
nsecs = -1;
}
else if (time_limit > TYPE_MAXIMUM (time_t))
else if (TYPE_MAXIMUM (time_t) < time_limit)
time_limit = TYPE_MAXIMUM (time_t);
/* Since we may need to wait several times,

6
src/search.c
View file

@ -2533,9 +2533,9 @@ since only regular expressions have distinguished subexpressions. */)
bool str_multibyte = STRING_MULTIBYTE (newtext);
bool really_changed = 0;
substed_alloc_size = (length > (STRING_BYTES_BOUND - 100) / 2
? STRING_BYTES_BOUND
: length * 2 + 100);
substed_alloc_size = (length <= (STRING_BYTES_BOUND - 100) / 2
? length * 2 + 100
: STRING_BYTES_BOUND);
substed = xmalloc (substed_alloc_size);
substed_len = 0;

2
src/w32term.c
View file

@ -5694,7 +5694,7 @@ w32fullscreen_hook (FRAME_PTR f)
/* Need to send SC_RESTORE to the window, in case we are
resizing from FULLSCREEN_MAXIMIZED. Otherwise, the mouse
resize hints will not be shown by the window manager when the
mouse pointer hovers over the window edges, becaise the WM
mouse pointer hovers over the window edges, because the WM
will still think the window is maximized. */
if (f->want_fullscreen != FULLSCREEN_BOTH)
SendMessage (FRAME_W32_WINDOW (f), WM_SYSCOMMAND, SC_RESTORE, 0);

2
src/window.c
View file

@ -5944,7 +5944,7 @@ get_phys_cursor_glyph (struct window *w)
hpos = row->used[TEXT_AREA] - 1;
}
if (hpos >= 0 && hpos < row->used[TEXT_AREA])
if (0 <= hpos && hpos < row->used[TEXT_AREA])
glyph = row->glyphs[TEXT_AREA] + hpos;
else
glyph = NULL;

2
src/xdisp.c
View file

@ -13168,7 +13168,7 @@ redisplay_internal (void)
PT == w->last_point
/* Make sure the cursor was last displayed
in this window. Otherwise we have to reposition it. */
&& w->cursor.vpos >= 0
&& 0 <= w->cursor.vpos
&& w->cursor.vpos < WINDOW_TOTAL_LINES (w))
{
if (!must_finish)

2
src/xsmfns.c
View file

@ -221,7 +221,7 @@ smc_save_yourself_CB (SmcConn smcConn,
props[props_idx]->name = xstrdup (SmRestartCommand);
props[props_idx]->type = xstrdup (SmLISTofARRAY8);
/* /path/to/emacs, --smid=xxx --no-splash --chdir=dir ... */
if (initial_argc > INT_MAX - 3)
if (INT_MAX - 3 < initial_argc)
memory_full (SIZE_MAX);
i = 3 + initial_argc;
props[props_idx]->num_vals = i;

2
test/automated/python-tests.el
View file

@ -445,7 +445,7 @@ objects = Thing.objects.all() \\\\
(should (= (python-indent-calculate-indentation) 0))))
(ert-deftest python-indent-block-enders ()
"Test `python-indent-block-enders' value honouring."
"Test `python-indent-block-enders' value honoring."
(python-tests-with-temp-buffer
"
Class foo(object):