diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-02-10 17:37:25 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-02-10 17:37:25 -0500 |
| commit | 1b4435e6ea6e7699e43f6079b111b42879fc7c47 (patch) | |
| tree | a25239a4a3ebc629a064ce039fe1396be81c89f7 /lisp/leim/quail/ipa.el | |
| parent | 8d33cc53a2d0ce893afad77703ba361593896084 (diff) | |
| download | emacs-1b4435e6ea6e7699e43f6079b111b42879fc7c47.tar.gz emacs-1b4435e6ea6e7699e43f6079b111b42879fc7c47.tar.bz2 emacs-1b4435e6ea6e7699e43f6079b111b42879fc7c47.zip | |
* 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/ipa.el')
| -rw-r--r-- | lisp/leim/quail/ipa.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/leim/quail/ipa.el b/lisp/leim/quail/ipa.el index d9f58885f20..e805c6ad3b2 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) @@ -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 |