diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-04-01 15:23:01 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-04-01 16:10:36 +0200 |
commit | 8129998deb54c3621dd715c79694725c74630e67 (patch) | |
tree | c5afe1c024e9bbab7d768164ce9451d14efa1840 /lisp/international/mule.el | |
parent | 84519cdbda3fdb2351a95fe9e70d1ee74d982081 (diff) | |
download | emacs-8129998deb54c3621dd715c79694725c74630e67.tar.gz |
Remove redundant #' before lambda in international/*.el
* lisp/international/characters.el:
(use-cjk-char-width-table, update-glyphless-char-display):
* lisp/international/fontset.el (build-default-fontset-data)
(generate-fontset-menu):
* lisp/international/latin1-disp.el (latin1-display-reset):
* lisp/international/mule-cmds.el
(select-safe-coding-system-interactively):
* lisp/international/mule-diag.el (sort-listed-character-sets)
(font-show-log):
* lisp/international/mule.el (char-displayable-p):
* lisp/international/quail.el (quail-keyboard-layout-type)
(quail-update-translation, quail-find-key):
* lisp/international/titdic-cnv.el (tsang-quick-converter)
(ziranma-converter): Remove redundant #' before lambda.
Diffstat (limited to 'lisp/international/mule.el')
-rw-r--r-- | lisp/international/mule.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 83cbb44c4db..a6fccff3c9a 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -490,27 +490,27 @@ per-character basis, this may not be accurate." (cond ((listp cs-list) (catch 'tag - (mapc #'(lambda (charset) - (if (encode-char char charset) - (throw 'tag charset))) + (mapc (lambda (charset) + (if (encode-char char charset) + (throw 'tag charset))) cs-list) nil)) ((eq cs-list 'iso-2022) (catch 'tag2 - (mapc #'(lambda (charset) - (if (and (plist-get (charset-plist charset) - :iso-final-char) - (encode-char char charset)) - (throw 'tag2 charset))) + (mapc (lambda (charset) + (if (and (plist-get (charset-plist charset) + :iso-final-char) + (encode-char char charset)) + (throw 'tag2 charset))) charset-list) nil)) ((eq cs-list 'emacs-mule) (catch 'tag3 - (mapc #'(lambda (charset) - (if (and (plist-get (charset-plist charset) - :emacs-mule-id) - (encode-char char charset)) - (throw 'tag3 charset))) + (mapc (lambda (charset) + (if (and (plist-get (charset-plist charset) + :emacs-mule-id) + (encode-char char charset)) + (throw 'tag3 charset))) charset-list) nil))))))))))) |