diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-02-10 17:35:31 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-02-10 17:35:31 -0500 |
| commit | 8d33cc53a2d0ce893afad77703ba361593896084 (patch) | |
| tree | 578228a4eae80a0449c46be7caf2cb4cee12fa89 /lisp/leim/quail/indian.el | |
| parent | 5a598fa41491132758810649ddbb565d44142f76 (diff) | |
| download | emacs-8d33cc53a2d0ce893afad77703ba361593896084.tar.gz | |
* lisp/leim/quail: Use lexical-binding
* lisp/leim/quail/hangul.el:
* lisp/leim/quail/indian.el:
* lisp/leim/quail/ipa.el:
* lisp/leim/quail/japanese.el:
* lisp/leim/quail/lao.el:
* lisp/leim/quail/latin-ltx.el:
* lisp/leim/quail/lrt.el:
* lisp/leim/quail/sisheng.el:
* lisp/leim/quail/thai.el:
* lisp/leim/quail/tibetan.el: Use lexical-binding.
* lisp/leim/quail/uni-input.el (ucs-input-method): Remove unused var `str`.
Diffstat (limited to 'lisp/leim/quail/indian.el')
| -rw-r--r-- | lisp/leim/quail/indian.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/leim/quail/indian.el b/lisp/leim/quail/indian.el index 6f5054e3f62..2e365082738 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,7 @@ (defun quail-define-indian-trans-package (hashtbls pkgname lang title doc) - (funcall 'quail-define-package pkgname lang title t doc + (quail-define-package pkgname lang title t doc nil nil nil nil nil nil t nil) (maphash (lambda (key val) @@ -200,7 +200,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 +309,7 @@ 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 + (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 +627,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 +636,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 "||" ?) |