mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-28 00:01:33 -08:00
357d273d2e
* admin/unidata/unidata-gen.el (unidata-gen-table) (unidata-gen-table-symbol, unidata-gen-table-integer) (unidata-gen-table-numeric, unidata-gen-table-word-list) (unidata-describe-decomposition): * lisp/apropos.el (apropos-user-option): * lisp/bookmark.el (bookmark-bmenu-search): * lisp/composite.el (unicode-category-table): * lisp/elec-pair.el (electric-pair--balance-info): * lisp/electric.el (electric-quote-chars): * lisp/emulation/cua-base.el (cua-rectangle-mark-key): * lisp/epa-hook.el (epa-file-encrypt-to): * lisp/faces.el (face-font-selection-order) (face-font-family-alternatives, face-font-registry-alternatives) (face-valid-attribute-values, tty-run-terminal-initialization): * lisp/files.el (recover-file, file-expand-wildcards): * lisp/frame.el (frames-on-display-list): * lisp/help-at-pt.el (help-at-pt-display-when-idle): * lisp/help-fns.el (help-fns--face-attributes): * lisp/ido.el (ido-mode, ido-unc-hosts): * lisp/isearch.el (isearch-highlight-regexp) (isearch-highlight-lines-matching-regexp): * lisp/language/indian.el (script-regexp-alist): * lisp/language/lao.el: * lisp/leim/quail/ipa.el (ipa-x-sampa-prepend-to-keymap-entry): * lisp/mh-e/mh-folder.el (mh-process-commands): * lisp/mh-e/mh-mime.el (mh-display-with-external-viewer): * lisp/ps-mule.el (ps-mule-end-job): * lisp/ps-print.el (ps-color-scale, ps-background-pages) (ps-background-text, ps-background-image, ps-background) (ps-begin-job, ps-print-translation-table): * lisp/recentf.el (recentf-sort-ascending) (recentf-sort-descending, recentf-sort-basenames-ascending) (recentf-sort-basenames-descending) (recentf-sort-directories-ascending) (recentf-sort-directories-descending): * lisp/replace.el (occur-engine-add-prefix): * lisp/select.el (xselect--encode-string): * lisp/server.el (server-use-tcp): * lisp/ses.el (ses-sort-column): * lisp/sort.el (sort-columns): * lisp/term/ns-win.el (window-system-initialization): * lisp/tree-widget.el (tree-widget-image-formats): * lisp/whitespace.el (whitespace-report-region): Remove redundant #' before lambda.
85 lines
2.9 KiB
EmacsLisp
85 lines
2.9 KiB
EmacsLisp
;;; lao.el --- support for Lao -*- coding: utf-8; lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2001-2021 Free Software Foundation, Inc.
|
|
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
|
|
;; 2007, 2008, 2009, 2010, 2011
|
|
;; National Institute of Advanced Industrial Science and Technology (AIST)
|
|
;; Registration Number H14PRO021
|
|
;; Copyright (C) 2003
|
|
;; National Institute of Advanced Industrial Science and Technology (AIST)
|
|
;; Registration Number H13PRO009
|
|
|
|
;; Keywords: multilingual, Lao
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(define-coding-system 'lao
|
|
"8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)."
|
|
:coding-type 'charset
|
|
:mnemonic ?L
|
|
:charset-list '(lao))
|
|
|
|
(set-language-info-alist
|
|
"Lao" '((charset lao)
|
|
(coding-system lao)
|
|
(coding-priority lao)
|
|
(input-method . "lao")
|
|
(unibyte-display . lao)
|
|
(features lao-util)
|
|
(documentation . t)))
|
|
|
|
(let ((consonant "ກ-ຮໜໝ")
|
|
(tone "່-໌")
|
|
(vowel-upper-lower "ັິ-ົໍ")
|
|
(semivowel-lower "ຼ")
|
|
(fallback-rule [nil 0 compose-gstring-for-graphic]))
|
|
;; target characters regexp
|
|
;; ----------------- ------
|
|
(dolist (l `((,vowel-upper-lower . "[c].[t]?")
|
|
(,tone . "[c].")
|
|
(,semivowel-lower . "[c].[v][t]?")
|
|
(,semivowel-lower . "[c].[t]")))
|
|
(let* ((chars (car l))
|
|
(len (length chars))
|
|
;; Replace `c', `t', `v' to consonant, tone, and vowel.
|
|
(regexp (mapconcat (lambda (c)
|
|
(cond ((= c ?c) consonant)
|
|
((= c ?t) tone)
|
|
((= c ?v) vowel-upper-lower)
|
|
(t (string c))))
|
|
(cdr l) ""))
|
|
;; Element of composition-function-table.
|
|
(elt (list (vector regexp 1 #'lao-composition-function)
|
|
fallback-rule))
|
|
ch)
|
|
(dotimes (i len)
|
|
(setq ch (aref chars i))
|
|
(if (and (> i 1) (= (aref chars (1- i)) ?-))
|
|
;; End of character range.
|
|
(set-char-table-range composition-function-table
|
|
(cons (aref chars (- i 2)) ch) elt)
|
|
(if (or (= (1+ i) len)
|
|
(and (/= ch ?-) (/= (aref chars (1+ i)) ?-)))
|
|
;; A character not forming a range.
|
|
(set-char-table-range composition-function-table ch elt)))))))
|
|
|
|
(provide 'lao)
|
|
|
|
;;; lao.el ends here
|