diff options
Diffstat (limited to 'lisp/leim/quail')
-rw-r--r-- | lisp/leim/quail/croatian.el | 2 | ||||
-rw-r--r-- | lisp/leim/quail/hangul.el | 22 | ||||
-rw-r--r-- | lisp/leim/quail/hebrew.el | 2 | ||||
-rw-r--r-- | lisp/leim/quail/indian.el | 20 | ||||
-rw-r--r-- | lisp/leim/quail/ipa-praat.el | 2 | ||||
-rw-r--r-- | lisp/leim/quail/ipa.el | 12 | ||||
-rw-r--r-- | lisp/leim/quail/japanese.el | 10 | ||||
-rw-r--r-- | lisp/leim/quail/lao.el | 4 | ||||
-rw-r--r-- | lisp/leim/quail/latin-ltx.el | 54 | ||||
-rw-r--r-- | lisp/leim/quail/latin-post.el | 60 | ||||
-rw-r--r-- | lisp/leim/quail/latin-pre.el | 31 | ||||
-rw-r--r-- | lisp/leim/quail/lrt.el | 4 | ||||
-rw-r--r-- | lisp/leim/quail/persian.el | 2 | ||||
-rw-r--r-- | lisp/leim/quail/programmer-dvorak.el | 2 | ||||
-rw-r--r-- | lisp/leim/quail/sisheng.el | 2 | ||||
-rw-r--r-- | lisp/leim/quail/thai.el | 2 | ||||
-rw-r--r-- | lisp/leim/quail/tibetan.el | 8 | ||||
-rw-r--r-- | lisp/leim/quail/uni-input.el | 19 |
18 files changed, 202 insertions, 56 deletions
diff --git a/lisp/leim/quail/croatian.el b/lisp/leim/quail/croatian.el index 08f1e47b6f3..7402b81a8cc 100644 --- a/lisp/leim/quail/croatian.el +++ b/lisp/leim/quail/croatian.el @@ -1,4 +1,4 @@ -;;; croatian.el -- Quail package for inputting Croatian -*-coding: utf-8; lexical-binding:t -*- +;;; croatian.el --- Quail package for inputting Croatian -*-coding: utf-8; lexical-binding:t -*- ;; Copyright (C) 2003-2021 Free Software Foundation, Inc. diff --git a/lisp/leim/quail/hangul.el b/lisp/leim/quail/hangul.el index ca1aae77be3..c03e86b33c0 100644 --- a/lisp/leim/quail/hangul.el +++ b/lisp/leim/quail/hangul.el @@ -1,4 +1,4 @@ -;;; hangul.el --- Korean Hangul input method +;;; hangul.el --- Korean Hangul input method -*- lexical-binding: t; -*- ;; Copyright (C) 2008-2021 Free Software Foundation, Inc. @@ -88,9 +88,9 @@ (defvar hangul-im-keymap (let ((map (make-sparse-keymap))) - (define-key map "\d" 'hangul-delete-backward-char) - (define-key map [f9] 'hangul-to-hanja-conversion) - (define-key map [Hangul_Hanja] 'hangul-to-hanja-conversion) + (define-key map "\d" #'hangul-delete-backward-char) + (define-key map [f9] #'hangul-to-hanja-conversion) + (define-key map [Hangul_Hanja] #'hangul-to-hanja-conversion) map) "Keymap for Hangul method. It is used by all Hangul input methods.") @@ -337,7 +337,7 @@ Other parts are the same as a `hangul3-input-method-cho'." char))))) (aset hangul-queue 5 char))) (hangul-insert-character hangul-queue) - (if (zerop (apply '+ (append hangul-queue nil))) + (if (zerop (apply #'+ (append hangul-queue nil))) (hangul-insert-character (setq hangul-queue (vector 0 0 0 0 char 0))) (hangul-insert-character hangul-queue (setq hangul-queue (vector 0 0 0 0 char 0)))))) @@ -349,7 +349,7 @@ Other parts are the same as a `hangul3-input-method-cho'." (while (and (> i 0) (zerop (aref hangul-queue i))) (setq i (1- i))) (aset hangul-queue i 0)) - (if (notzerop (apply '+ (append hangul-queue nil))) + (if (notzerop (apply #'+ (append hangul-queue nil))) (hangul-insert-character hangul-queue) (delete-char -1))) @@ -514,16 +514,16 @@ When a Korean input method is off, convert the following hangul character." (defvar-local hangul-input-method-help-text nil) ;;;###autoload -(defun hangul-input-method-activate (input-method func help-text &rest args) +(defun hangul-input-method-activate (_input-method func help-text &rest _args) "Activate Hangul input method INPUT-METHOD. FUNC is a function to handle input key. HELP-TEXT is a text set in `hangul-input-method-help-text'." - (setq deactivate-current-input-method-function 'hangul-input-method-deactivate - describe-current-input-method-function 'hangul-input-method-help + (setq deactivate-current-input-method-function #'hangul-input-method-deactivate + describe-current-input-method-function #'hangul-input-method-help hangul-input-method-help-text help-text) (quail-delete-overlays) (if (eq (selected-window) (minibuffer-window)) - (add-hook 'minibuffer-exit-hook 'quail-exit-from-minibuffer)) + (add-hook 'minibuffer-exit-hook #'quail-exit-from-minibuffer)) (setq-local input-method-function func)) (defun hangul-input-method-deactivate () @@ -538,7 +538,7 @@ HELP-TEXT is a text set in `hangul-input-method-help-text'." (define-obsolete-function-alias 'hangul-input-method-inactivate - 'hangul-input-method-deactivate "24.3") + #'hangul-input-method-deactivate "24.3") (defun hangul-input-method-help () "Describe the current Hangul input method." diff --git a/lisp/leim/quail/hebrew.el b/lisp/leim/quail/hebrew.el index fc6bb80596b..28b2eb34367 100644 --- a/lisp/leim/quail/hebrew.el +++ b/lisp/leim/quail/hebrew.el @@ -1,4 +1,4 @@ -;; hebrew.el --- Quail package for inputting Hebrew characters -*- coding: utf-8; lexical-binding: t -*- +;;; hebrew.el --- Quail package for inputting Hebrew characters -*- coding: utf-8; lexical-binding: t -*- ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, ;; 2008, 2009, 2010, 2011 diff --git a/lisp/leim/quail/indian.el b/lisp/leim/quail/indian.el index 6f5054e3f62..251b18c9887 100644 --- a/lisp/leim/quail/indian.el +++ b/lisp/leim/quail/indian.el @@ -1,4 +1,4 @@ -;;; indian.el --- Quail packages for inputting Indian +;;; indian.el --- Quail packages for inputting Indian -*- lexical-binding: t; -*- ;; Copyright (C) 2000-2021 Free Software Foundation, Inc. @@ -39,7 +39,10 @@ (defun quail-define-indian-trans-package (hashtbls pkgname lang title doc) - (funcall 'quail-define-package pkgname lang title t doc + ;; This is a funcall to avoid `quail-update-leim-list-file' + ;; determining that this is a quail definition (it searches for + ;; "(quail-define-package"). + (funcall #'quail-define-package pkgname lang title t doc nil nil nil nil nil nil t nil) (maphash (lambda (key val) @@ -200,7 +203,7 @@ (setq clm 6) (dolist (v vowels) - (apply 'insert (propertize "\t" 'display (list 'space :align-to clm)) + (apply #'insert (propertize "\t" 'display (list 'space :align-to clm)) (if (nth 1 c) (list (nth 1 c) (nth 2 v)) (list ""))) (setq clm (+ clm 6)))) (insert "\n") @@ -309,7 +312,10 @@ Full key sequences are listed below:") (defun quail-define-inscript-package (char-tables key-tables pkgname lang title docstring) - (funcall 'quail-define-package pkgname lang title nil docstring + ;; This is a funcall to avoid `quail-update-leim-list-file' + ;; determining that this is a quail definition (it searches for + ;; "(quail-define-package"). + (funcall #'quail-define-package pkgname lang title nil docstring nil nil nil t nil nil nil nil) (let (char-table key-table char key) (while (and char-tables key-tables) @@ -627,7 +633,7 @@ Full key sequences are listed below:") (quail-define-package "malayalam-mozhi" "Malayalam" "MlmMI" t "Malayalam transliteration by Mozhi method." nil nil t nil nil nil t nil - 'indian-mlm-mozhi-update-translation) + #'indian-mlm-mozhi-update-translation) (maphash (lambda (key val) @@ -636,9 +642,9 @@ Full key sequences are listed below:") (vector val)))) (cdr indian-mlm-mozhi-hash)) -(defun indian-mlm-mozhi-underscore (key len) (throw 'quail-tag nil)) +(defun indian-mlm-mozhi-underscore (_key _len) (throw 'quail-tag nil)) -(quail-defrule "_" 'indian-mlm-mozhi-underscore) +(quail-defrule "_" #'indian-mlm-mozhi-underscore) (quail-defrule "|" ?) (quail-defrule "||" ?) diff --git a/lisp/leim/quail/ipa-praat.el b/lisp/leim/quail/ipa-praat.el index 0920bc79009..1a95395fd74 100644 --- a/lisp/leim/quail/ipa-praat.el +++ b/lisp/leim/quail/ipa-praat.el @@ -35,7 +35,7 @@ "ipa-praat" "IPA" "IPAP" t "International Phonetic Alphabet input method. This follows the input method of the phonetic analysis program -Praat (http://www.fon.hum.uva.nl/praat/). +Praat (https://www.fon.hum.uva.nl/praat/). * Vowels diff --git a/lisp/leim/quail/ipa.el b/lisp/leim/quail/ipa.el index d9f58885f20..c25687574ed 100644 --- a/lisp/leim/quail/ipa.el +++ b/lisp/leim/quail/ipa.el @@ -1,4 +1,4 @@ -;;; ipa.el --- Quail package for inputting IPA characters -*-coding: utf-8;-*- +;;; ipa.el --- Quail package for inputting IPA characters -*- lexical-binding: t; -*- ;; Copyright (C) 2009-2021 Free Software Foundation, Inc. ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -276,7 +276,7 @@ string." (cl-assert (vectorp quail-keymap) t) (setq quail-keymap (append quail-keymap nil)))) (list - (apply 'vector + (apply #'vector (mapcar #'(lambda (entry) (cl-assert (char-or-string-p entry) t) @@ -336,12 +336,12 @@ exchange in environments where Unicode is not available. This input method uses this transliteration to allow you to produce the IPA in your editor with a keyboard that's limited to ASCII. -See http://www.phon.ucl.ac.uk/home/sampa/ipasam-x.pdf for a full definition +See https://www.phon.ucl.ac.uk/home/sampa/ipasam-x.pdf for a full definition of the mapping.") (quail-define-rules ;; Table taken from https://en.wikipedia.org/wiki/X-SAMPA, checked with - ;; http://www.phon.ucl.ac.uk/home/sampa/ipasam-x.pdf + ;; https://www.phon.ucl.ac.uk/home/sampa/ipasam-x.pdf ("d`" "ɖ") ;; Voiced retroflex plosive U+0256 ("g" "ɡ") ;; Voiced velar plosive U+0261 @@ -502,9 +502,9 @@ of the mapping.") ;; diacritic. To avoid this, handle the input specially with the function ;; ipa-x-sampa-underscore-implosive. -(dolist (implosive-x-sampa (mapcar 'car ipa-x-sampa-implosive-submap)) +(dolist (implosive-x-sampa (mapcar #'car ipa-x-sampa-implosive-submap)) (setq implosive-x-sampa (car (split-string implosive-x-sampa "_"))) (quail-defrule (format "%s_" implosive-x-sampa) - 'ipa-x-sampa-underscore-implosive)) + #'ipa-x-sampa-underscore-implosive)) ;;; ipa.el ends here diff --git a/lisp/leim/quail/japanese.el b/lisp/leim/quail/japanese.el index a4ea550c265..6a2bcdc9ed7 100644 --- a/lisp/leim/quail/japanese.el +++ b/lisp/leim/quail/japanese.el @@ -1,4 +1,4 @@ -;;; japanese.el --- Quail package for inputting Japanese +;;; japanese.el --- Quail package for inputting Japanese -*- lexical-binding: t; -*- ;; Copyright (C) 2001-2021 Free Software Foundation, Inc. ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -412,7 +412,7 @@ C-h kkc-help List these key bindings. " nil t t nil nil nil nil nil - 'quail-japanese-update-translation + #'quail-japanese-update-translation '(("K" . quail-japanese-toggle-kana) (" " . quail-japanese-kanji-kkc) ("\C-m" . quail-no-conversion) @@ -491,7 +491,7 @@ qh: shift to the input method `japanese', qq: toggle between this input method and the input method `japanese-ascii'. " nil t t nil nil nil nil nil - 'quail-japanese-hankaku-update-translation) + #'quail-japanese-hankaku-update-translation) (dolist (elt quail-japanese-transliteration-rules) (quail-defrule (car elt) @@ -517,7 +517,7 @@ qq: toggle between this input method and the input method `japanese-ascii'. nil "Japanese hiragana input method by Roman transliteration." nil t t nil nil nil nil nil - 'quail-japanese-update-translation) + #'quail-japanese-update-translation) ;; Use the same map as that of `japanese'. (setcar (cdr (cdr quail-current-package)) @@ -538,7 +538,7 @@ qq: toggle between this input method and the input method `japanese-ascii'. nil "Japanese katakana input method by Roman transliteration." nil t t nil nil nil nil nil - 'quail-japanese-katakana-update-translation) + #'quail-japanese-katakana-update-translation) (dolist (elt quail-japanese-transliteration-rules) (quail-defrule (car elt) diff --git a/lisp/leim/quail/lao.el b/lisp/leim/quail/lao.el index af3b5892629..a932460a20a 100644 --- a/lisp/leim/quail/lao.el +++ b/lisp/leim/quail/lao.el @@ -1,4 +1,4 @@ -;;; lao.el --- Quail package for inputting Lao characters -*-coding: utf-8;-*- +;;; lao.el --- Quail package for inputting Lao characters -*- lexical-binding: t; -*- ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, ;; 2006, 2007, 2008, 2009, 2010, 2011 @@ -195,7 +195,7 @@ you need to re-load it to properly re-initialize related alists.") (quail-define-package "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) + nil t t t t nil nil nil #'quail-lao-update-translation nil t) (quail-install-map (quail-map-from-table diff --git a/lisp/leim/quail/latin-ltx.el b/lisp/leim/quail/latin-ltx.el index fd78253c4fb..2146304f156 100644 --- a/lisp/leim/quail/latin-ltx.el +++ b/lisp/leim/quail/latin-ltx.el @@ -1,4 +1,4 @@ -;;; latin-ltx.el --- Quail package for TeX-style input -*-coding: utf-8;-*- +;;; latin-ltx.el --- Quail package for TeX-style input -*- lexical-binding: t; -*- ;; Copyright (C) 2001-2021 Free Software Foundation, Inc. ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, @@ -279,13 +279,17 @@ system, including many technical ones. Examples: ("\\Vdash" ?⊩) ("\\Vert" ?‖) ("\\Vvdash" ?⊪) + ("\\above" ?┴) ("\\aleph" ?ℵ) ("\\amalg" ?∐) ("\\angle" ?∠) + ("\\aoint" ?∳) ("\\approx" ?≈) ("\\approxeq" ?≊) + ("\\asmash" ?⬆) ("\\ast" ?∗) ("\\asymp" ?≍) + ("\\atop" ?¦) ("\\backcong" ?≌) ("\\backepsilon" ?∍) ("\\backprime" ?‵) @@ -294,11 +298,18 @@ system, including many technical ones. Examples: ("\\backslash" ?\\) ("\\barwedge" ?⊼) ("\\because" ?∵) + ("\\begin" ?\〖) + ("\\below" ?┬) ("\\beth" ?ℶ) ("\\between" ?≬) ("\\bigcap" ?⋂) ("\\bigcirc" ?◯) ("\\bigcup" ?⋃) + ("\\bigodot" ?⨀) + ("\\bigoplus" ?⨁) + ("\\bigotimes" ?⨂) + ("\\bigsqcup" ?⨆) + ("\\biguplus" ?⨄) ("\\bigstar" ?★) ("\\bigtriangledown" ?▽) ("\\bigtriangleup" ?△) @@ -315,6 +326,7 @@ system, including many technical ones. Examples: ("\\boxminus" ?⊟) ("\\boxplus" ?⊞) ("\\boxtimes" ?⊠) + ("\\bra" ?\⟨) ("\\bullet" ?•) ("\\bumpeq" ?≏) ("\\cap" ?∩) @@ -331,7 +343,9 @@ system, including many technical ones. Examples: ("\\circledast" ?⊛) ("\\circledcirc" ?⊚) ("\\circleddash" ?⊝) + ("\\close" ?┤) ("\\clubsuit" ?♣) + ("\\coint" ?∲) ("\\coloneq" ?≔) ("\\complement" ?∁) ("\\cong" ?≅) @@ -349,8 +363,12 @@ system, including many technical ones. Examples: ("\\dagger" ?†) ("\\daleth" ?ℸ) ("\\dashv" ?⊣) + ("\\Dd" ?ⅅ) + ("\\dd" ?ⅆ) ("\\ddag" ?‡) ("\\ddagger" ?‡) + ("\\ddddot" ?⃜) + ("\\dddot" ?⃛) ("\\ddots" ?⋱) ("\\diamond" ?⋄) ("\\diamondsuit" ?♢) @@ -363,8 +381,12 @@ system, including many technical ones. Examples: ("\\downdownarrows" ?⇊) ("\\downleftharpoon" ?⇃) ("\\downrightharpoon" ?⇂) + ("\\dsmash" ?⬇) + ("\\ee" ?ⅇ) ("\\ell" ?ℓ) ("\\emptyset" ?∅) + ("\\end" ?\〗) + ("\\eqarray" ?█) ("\\eqcirc" ?≖) ("\\eqcolon" ?≕) ("\\eqslantgtr" ?⋝) @@ -414,16 +436,25 @@ system, including many technical ones. Examples: ("\\heartsuit" ?♥) ("\\hookleftarrow" ?↩) ("\\hookrightarrow" ?↪) + ("\\hphantom" ?⬄) + ("\\hsmash" ?⬌) ("\\iff" ?⇔) + ("\\ii" ?ⅈ) + ("\\iiiint" ?⨌) + ("\\iiint" ?∭) + ("\\iint" ?∬) ("\\imath" ?ı) ("\\in" ?∈) ("\\infty" ?∞) ("\\int" ?∫) ("\\intercal" ?⊺) + ("\\jj" ?ⅉ) + ("\\jmath" ?ȷ) ("\\langle" ?⟨) ;; Was ?〈, see bug#12948. ("\\lbrace" ?{) ("\\lbrack" ?\[) ("\\lceil" ?⌈) + ("\\ldiv" ?∕) ("\\ldots" ?…) ("\\le" ?≤) ("\\leadsto" ?↝) @@ -529,16 +560,25 @@ system, including many technical ones. Examples: ("\\nvdash" ?⊬) ("\\nwarrow" ?↖) ("\\odot" ?⊙) + ("\\oiiint" ?∰) + ("\\oiint" ?∯) ("\\oint" ?∮) ("\\ominus" ?⊖) ("\\oplus" ?⊕) ("\\oslash" ?⊘) ("\\otimes" ?⊗) + ("\\overbrace" ?⏞) + ("\\overparen" ?⏜) ("\\par" ?
) ("\\parallel" ?∥) ("\\partial" ?∂) ("\\perp" ?⊥) + ("\\phantom" ?⟡) ("\\pitchfork" ?⋔) + ("\\pppprime" ?⁗) + ("\\ppprime" ?‴) + ("\\pprime" ?″) + ("\\prcue" ?≼) ("\\prec" ?≺) ("\\precapprox" ?≾) ("\\preceq" ?≼) @@ -548,12 +588,16 @@ system, including many technical ones. Examples: ("\\prime" ?′) ("\\prod" ?∏) ("\\propto" ?∝) + ("\\qdrt" ?∜) ("\\qed" ?∎) ("\\quad" ? ) ("\\rangle" ?\⟩) ;; Was ?〉, see bug#12948. + ("\\ratio" ?∶) ("\\rbrace" ?}) ("\\rbrack" ?\]) ("\\rceil" ?⌉) + ("\\rddots" ?⋰) + ("\\rect" ?▭) ("\\rfloor" ?⌋) ("\\rightarrow" ?→) ("\\rightarrowtail" ?↣) @@ -565,6 +609,8 @@ system, including many technical ones. Examples: ("\\rightrightarrows" ?⇉) ("\\rightthreetimes" ?⋌) ("\\risingdotseq" ?≓) + ("\\rrect" ?▢) + ("\\sdiv" ?⁄) ("\\rtimes" ?⋊) ("\\sbs" ?﹨) ("\\searrow" ?↘) @@ -577,6 +623,7 @@ system, including many technical ones. Examples: ("\\smallamalg" ?∐) ("\\smallsetminus" ?∖) ("\\smallsmile" ?⌣) + ("\\smash" ?⬍) ("\\smile" ?⌣) ("\\spadesuit" ?♠) ("\\sphericalangle" ?∢) @@ -627,12 +674,16 @@ system, including many technical ones. Examples: ("\\ulcorner" ?⌜) ("\\uparrow" ?↑) ("\\updownarrow" ?↕) + ("\\underbar" ?▁) + ("\\underbrace" ?⏟) + ("\\underparen" ?⏝) ("\\upleftharpoon" ?↿) ("\\uplus" ?⊎) ("\\uprightharpoon" ?↾) ("\\upuparrows" ?⇈) ("\\urcorner" ?⌝) ("\\u{i}" ?ĭ) + ("\\vbar" ?│) ("\\vDash" ?⊨) ((lambda (name char) @@ -655,6 +706,7 @@ system, including many technical ones. Examples: ("\\vee" ?∨) ("\\veebar" ?⊻) ("\\vert" ?|) + ("\\vphantom" ?⇳) ("\\wedge" ?∧) ("\\wp" ?℘) ("\\wr" ?≀) diff --git a/lisp/leim/quail/latin-post.el b/lisp/leim/quail/latin-post.el index 8e21ed80130..8329fff82ed 100644 --- a/lisp/leim/quail/latin-post.el +++ b/lisp/leim/quail/latin-post.el @@ -744,7 +744,7 @@ Doubling the postfix separates the letter and postfix: e.g. a\\='\\=' -> a\\=' ;;; correctly on most displays. ;;; This reference is an authoritative guide to Hawaiian orthography: -;;; http://www2.hawaii.edu/~strauch/tips/HawaiianOrthography.html +;;; https://www2.hawaii.edu/~strauch/tips/HawaiianOrthography.html ;;; Initial coding 2018-09-08 Bob Newell, Honolulu, Hawaiʻi ;;; Comments to bobnewell@bobnewell.net @@ -1298,6 +1298,64 @@ Doubling the postfix separates the letter and postfix: e.g. a\\=`\\=` -> a\\=` ("a__" ["a_"]) ) +;; Input modes of various orthographies for the Lakota language. +;; I'd like to acknowledge the elders and ancestors who fought +;; to keep the language and culture alive. +;; Grant Shangreaux <grant@churls.world> 2021-05-23 + +(quail-define-package + "lakota-white-hat-postfix" "Lakota" "Lak " t + "Lakota White Hat orthography input method with postfix modifiers. +The `f' key produces the nasal ŋ while unused letters `r' and `v' add +the combining dot above and macron diacritics respectively. This allows +production of all the consonants: + +cv -> c̄ hr -> ḣ pv -> p̄ tv -> t̄ +cr -> ċ kv -> k̄ pr -> ṗ tr -> ṫ +gr -> ġ kr -> k̇ sr -> ṡ zr -> ż + +The glottal stop is produced by repeating the ' character. This orthography +does not use stress diacritics on vowels. Mit̄ak̄uyep̄i p̄ilamayayap̄ilo." +nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("f" ?ŋ) + ("''" ?’) + ;; using hex representation as these characters combine with the ? syntax + ("r" #x307) ; COMBINING DOT ABOVE + ("v" #x304)) ; COMBINING MACRON + + + +(quail-define-package + "lakota-slo-postfix" "Lakota" "SLO " t + "Suggested Lakota Orthography input method with postfix modifier. +To add stress to a vowel, simply type the single quote ' after the vowel. +The glottal stop is produced by repeating the ' character. All other +characters are bound to a single key. Mitákuyepi philámayayapi ló." +nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ;; accented vowels + ("a'" ?á) ("A'" ?Á) + ("e'" ?é) ("E'" ?É) + ("i'" ?í) ("I'" ?Í) + ("o'" ?ó) ("O'" ?Ó) + ("u'" ?ú) ("U'" ?Ú) + + ;; consonants with caron + ("c" ?č) ("C" ?Č) + ("j" ?ȟ) ("J" ?Ȟ) + ("q" ?ǧ) ("Q" ?Ǧ) + ("x" ?ž) ("X" ?Ž) + ("r" ?š) ("R" ?Š) + + ;; velar nasal n + ("f" ?ŋ) + + ;; glottal stop + ("''" ?’)) + (quail-define-package "norwegian-postfix" "Latin-1" "NO<" t "Norwegian (Norsk) input method (rule: AE->Æ OE->Ø AA->Å E\\='->É diff --git a/lisp/leim/quail/latin-pre.el b/lisp/leim/quail/latin-pre.el index 22006547c45..3b9c942a8c1 100644 --- a/lisp/leim/quail/latin-pre.el +++ b/lisp/leim/quail/latin-pre.el @@ -1294,7 +1294,7 @@ of characters from a single Latin-N charset. ;;; correctly on most displays. ;;; This reference is an authoritative guide to Hawaiian orthography: -;;; http://www2.hawaii.edu/~strauch/tips/HawaiianOrthography.html +;;; https://www2.hawaii.edu/~strauch/tips/HawaiianOrthography.html ;;; Initial coding 2018-09-08 Bob Newell, Honolulu, Hawaiʻi ;;; Comments to bobnewell@bobnewell.net @@ -1337,4 +1337,33 @@ Doubling the prefix separates the letter and prefix. --a -> -a ("``" ["`"]) ) +(quail-define-package + "lakota-slo-prefix" "Lakota" "SLO " t + "Suggested Lakota Orthography input method with prefix modifier. +To add stress to a vowel, simply type the single quote ' before the vowel. +The glottal stop is produced by repeating the ' character. All other +characters are bound to a single key. Mitákuyepi philámayayapi ló." +nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ;; accented vowels + ("'a" ?á) ("'A" ?Á) + ("'e" ?é) ("'E" ?É) + ("'i" ?í) ("'I" ?Í) + ("'o" ?ó) ("'O" ?Ó) + ("'u" ?ú) ("'U" ?Ú) + + ;; consonants with caron + ("c" ?č) ("C" ?Č) + ("j" ?ȟ) ("J" ?Ȟ) + ("q" ?ǧ) ("Q" ?Ǧ) + ("x" ?ž) ("X" ?Ž) + ("r" ?š) ("R" ?Š) + + ;; velar nasal n + ("f" ?ŋ) + + ;; glottal stop + ("''" ?’)) + ;;; latin-pre.el ends here diff --git a/lisp/leim/quail/lrt.el b/lisp/leim/quail/lrt.el index e05bc1e6cb7..68eaeb58ec6 100644 --- a/lisp/leim/quail/lrt.el +++ b/lisp/leim/quail/lrt.el @@ -1,4 +1,4 @@ -;;; lrt.el --- Quail package for inputting Lao characters by LRT method -*-coding: utf-8;-*- +;;; lrt.el --- Quail package for inputting Lao characters by LRT method -*- lexical-binding: t; -*- ;; Copyright (C) 1998, 2001-2021 Free Software Foundation, Inc. ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -60,7 +60,7 @@ `\\' (backslash) + `$' => ຯ LAO ELLIPSIS " nil 'forget-last-selection 'deterministic 'kbd-translate 'show-layout - nil nil nil 'quail-lrt-update-translation nil t) + nil nil nil #'quail-lrt-update-translation nil t) ;; LRT (Lao Roman Transcription) input method accepts the following ;; key sequence: diff --git a/lisp/leim/quail/persian.el b/lisp/leim/quail/persian.el index 4157f886704..cb1f6e3c78b 100644 --- a/lisp/leim/quail/persian.el +++ b/lisp/leim/quail/persian.el @@ -1,4 +1,4 @@ -;;; persian.el --- Quail package for inputting Persian/Farsi keyboard -*- coding: utf-8; lexical-binding: t -*- +;;; persian.el --- Quail package for inputting Persian/Farsi keyboard -*- coding: utf-8; lexical-binding: t -*- ;; Copyright (C) 2011-2021 Free Software Foundation, Inc. diff --git a/lisp/leim/quail/programmer-dvorak.el b/lisp/leim/quail/programmer-dvorak.el index 49f9d82bc0d..9e1e23c04bb 100644 --- a/lisp/leim/quail/programmer-dvorak.el +++ b/lisp/leim/quail/programmer-dvorak.el @@ -24,7 +24,7 @@ ;;; Commentary: ;;; This file provides an input method for the programmers Dvorak keyboard -;;; layout by Roland Kaufman (<http://www.kaufmann.no/roland/dvorak/>). +;;; layout by Roland Kaufman (<https://www.kaufmann.no/roland/dvorak/>). ;;; Code: diff --git a/lisp/leim/quail/sisheng.el b/lisp/leim/quail/sisheng.el index 8e7a500276a..aa35bb0574f 100644 --- a/lisp/leim/quail/sisheng.el +++ b/lisp/leim/quail/sisheng.el @@ -1,4 +1,4 @@ -;;; sisheng.el --- sisheng input method for Chinese pinyin transliteration +;;; sisheng.el --- sisheng input method for Chinese pinyin transliteration -*- lexical-binding: t; -*- ;; Copyright (C) 2004-2021 Free Software Foundation, Inc. diff --git a/lisp/leim/quail/thai.el b/lisp/leim/quail/thai.el index 7cf11daf9d0..07ba657f9b8 100644 --- a/lisp/leim/quail/thai.el +++ b/lisp/leim/quail/thai.el @@ -1,4 +1,4 @@ -;;; thai.el --- Quail package for inputting Thai characters -*-coding: utf-8;-*- +;;; thai.el --- Quail package for inputting Thai characters -*- lexical-binding: t; -*- ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, ;; 2005, 2006, 2007, 2008, 2009, 2010, 2011 diff --git a/lisp/leim/quail/tibetan.el b/lisp/leim/quail/tibetan.el index a54763d56f6..33cc6f5965f 100644 --- a/lisp/leim/quail/tibetan.el +++ b/lisp/leim/quail/tibetan.el @@ -1,4 +1,4 @@ -;;; tibetan.el --- Quail package for inputting Tibetan characters -*-coding: utf-8-emacs;-*- +;;; tibetan.el --- Quail package for inputting Tibetan characters -*-coding: utf-8-emacs; lexical-binding: t; -*- ;; Copyright (C) 1997, 2001-2021 Free Software Foundation, Inc. ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -158,7 +158,7 @@ Tsheg is assigned to SPC. Space is assigned to period `.'. " nil nil nil nil nil nil nil nil - 'quail-tibetan-update-translation) + #'quail-tibetan-update-translation) ;; Here we build up a Quail map for a Tibetan sequence the whole of ;; which can be one composition. @@ -371,7 +371,7 @@ (setq trans-list (cons trans trans-list) i last) (setq trans-list nil i len)))) - (apply 'concat (nreverse trans-list)))) + (apply #'concat (nreverse trans-list)))) (defvar quail-tibkey-characters nil) @@ -440,7 +440,7 @@ I hope I'll complete in a future revision. " nil nil nil nil nil nil nil nil - 'quail-tibkey-update-translation) + #'quail-tibkey-update-translation) (quail-install-map (quail-map-from-table diff --git a/lisp/leim/quail/uni-input.el b/lisp/leim/quail/uni-input.el index c7cf6abe2aa..bfe4ce6f120 100644 --- a/lisp/leim/quail/uni-input.el +++ b/lisp/leim/quail/uni-input.el @@ -1,4 +1,4 @@ -;;; uni-input.el --- Hex Unicode input method +;;; uni-input.el --- Hex Unicode input method -*- lexical-binding: t; -*- ;; Copyright (C) 2001-2021 Free Software Foundation, Inc. ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 @@ -57,11 +57,12 @@ (echo-keystrokes 0) (help-char nil) (events (list key)) - (str " ")) + ;; (str " ") + ) (unwind-protect (catch 'non-digit (progn - (dotimes (i 4) + (dotimes (_ 4) (let ((seq (read-key-sequence nil)) key) (if (and (stringp seq) @@ -76,7 +77,7 @@ (throw 'non-digit (append (reverse events) (listify-key-sequence seq)))))) (quail-delete-region) - (let ((n (string-to-number (apply 'string + (let ((n (string-to-number (apply #'string (cdr (nreverse events))) 16))) (if (characterp n) @@ -100,12 +101,12 @@ While this input method is active, the variable (quail-delete-overlays) (setq describe-current-input-method-function nil)) (kill-local-variable 'input-method-function)) - (setq deactivate-current-input-method-function 'ucs-input-deactivate) - (setq describe-current-input-method-function 'ucs-input-help) + (setq deactivate-current-input-method-function #'ucs-input-deactivate) + (setq describe-current-input-method-function #'ucs-input-help) (quail-delete-overlays) (if (eq (selected-window) (minibuffer-window)) - (add-hook 'minibuffer-exit-hook 'quail-exit-from-minibuffer)) - (setq-local input-method-function 'ucs-input-method))) + (add-hook 'minibuffer-exit-hook #'quail-exit-from-minibuffer)) + (setq-local input-method-function #'ucs-input-method))) (defun ucs-input-deactivate () "Deactivate UCS input method." @@ -114,7 +115,7 @@ While this input method is active, the variable (define-obsolete-function-alias 'ucs-input-inactivate - 'ucs-input-deactivate "24.3") + #'ucs-input-deactivate "24.3") (defun ucs-input-help () (interactive) |