mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2026-09-10 07:46:51 -04:00
1de92cc3ec
* lisp/xml.el (xml--entity-replacement-text, xml-substitute-special): * lisp/vc/vc-hg.el (vc-hg--pushpull): * lisp/vc/vc-git.el (vc-git-escape-file-name): * lisp/vc/emerge.el (emerge-hash-string-into-string): * lisp/url/url.el (url-do-setup): * lisp/url/url-expand.el (url-expand-file-name): * lisp/url/url-cache.el (url-cache-create-filename-human-readable): * lisp/textmodes/tildify.el (tildify--find-env): * lisp/textmodes/rst.el (rst-re): * lisp/textmodes/reftex.el (reftex-compile-variables): * lisp/textmodes/reftex-ref.el (reftex-latin1-to-ascii): * lisp/textmodes/reftex-index.el (reftex-index-make-replace-string) (reftex-index-select-phrases-macro): * lisp/textmodes/ispell.el (ispell--make-\\w-expression): * lisp/textmodes/enriched.el (enriched-make-annotation): * lisp/textmodes/bibtex.el (bibtex-summary): * lisp/tab-bar.el (tab-bar-format-align-right): * lisp/shell.el (shell--unquote&requote-argument) (shell--parse-pcomplete-arguments): * lisp/proced.el (proced-format): * lisp/play/decipher.el (decipher-show-alphabet) (decipher--digram-counts): * lisp/pcomplete.el (pcomplete-entries): * lisp/pcmpl-x.el (pcmpl-x-ack-short-options): * lisp/obsolete/pgg-parse.el (pgg-format-key-identifier): * lisp/newcomment.el (comment-padright): * lisp/net/webjump.el (webjump-url-encode): * lisp/net/newst-backend.el (newsticker--unxml-node): * lisp/net/mairix.el (mairix-widget-make-query-from-widgets): * lisp/net/eudcb-ldap.el (eudc-ldap-format-query-as-rfc1558): * lisp/net/dbus.el (dbus-introspect-get-signature): * lisp/mh-e/mh-utils.el (mh-help): * lisp/mh-e/mh-alias.el (mh-alias-apropos): * lisp/mail/supercite.el (sc-attribs-strip-initials): * lisp/mail/rfc2231.el (rfc2231-parse-string): * lisp/mail/ietf-drums.el (ietf-drums-parse-address): * lisp/mail/footnote.el (footnote-roman-lower-regexp): * lisp/language/lao.el: * lisp/isearch.el (with-isearch-suspended, isearch-edit-string) (isearch-repeat, word-search-regexp, isearch-symbol-regexp) (isearch-del-char, isearch-yank-string, isearch-yank-from-kill-ring) (isearch-char-by-name, isearch-emoji-by-name) (isearch-post-command-hook, isearch-process-search-char) (isearch-ring-adjust1, isearch-complete): * lisp/international/quail.el (quail-title): * lisp/international/isearch-x.el (isearch-process-search-multibyte-characters): * lisp/info.el (Info-url-for-node): * lisp/ido.el (ido-set-matches-1): * lisp/htmlfontify.el (hfy-default-header): * lisp/gnus/nnmairix.el (nnmairix-widget-make-query-from-widgets): * lisp/gnus/mm-url.el (mm-url-form-encode-xwfu): * lisp/gnus/mm-decode.el (mm-mailcap-command): * lisp/gnus/gnus-art.el (article-lapsed-string) (article-verify-x-pgp-sig, gnus-article-extend-url-button): * lisp/gnus/canlock.el (canlock-make-cancel-key): * lisp/forms.el (forms--update, forms--debug): * lisp/find-cmd.el (find-cmd): * lisp/eshell/esh-arg.el (eshell-quote-argument): * lisp/emulation/viper-util.el (viper-array-to-string) (viper-key-press-events-to-chars): * lisp/emulation/viper-macs.el (viper-display-macro): * lisp/emulation/viper-init.el (viper-charlist-to-string): * lisp/emulation/cua-rect.el (cua--copy-rectangle-as-kill) (cua-copy-rectangle-as-text): * lisp/emacs-lisp/elp.el (elp-results): * lisp/calendar/solar.el (solar-time-string): * lisp/calendar/icalendar.el (icalendar--create-ical-alarm) (icalendar--do-create-ical-alarm): * lisp/calendar/diary-lib.el (diary-remind) (diary-font-lock-date-forms, diary-fancy-date-pattern): * lisp/calendar/calendar.el (calendar-make-temp-face) (calendar-date-string): * lisp/calendar/cal-persia.el (calendar-persian-date-string): * lisp/calendar/cal-coptic.el (calendar-coptic-date-string): * lisp/calendar/cal-bahai.el (calendar-bahai-date-string): * lisp/arc-mode.el (archive-summarize-files): * lisp/allout.el (allout-latex-verb-quote): * admin/unidata/unidata-gen.el (unidata-gen-table-word-list): Delete redundant "" argument to 'mapconcat'.
86 lines
2.9 KiB
EmacsLisp
86 lines
2.9 KiB
EmacsLisp
;;; lao.el --- support for Lao -*- coding: utf-8; lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2001-2026 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 ((eq c ?c) consonant)
|
|
((eq c ?t) tone)
|
|
((eq 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
|