mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

Prefer seq-filter in hanja-util.el

Browse Source 
Benchmarking shows seq-filter to be ~30% faster on this machine.

* lisp/language/hanja-util.el (hanja-filter): Make into obsolete alias
for 'seq-filter'.  Update single caller.
This commit is contained in:
Stefan Kangas 2023-10-29 01:40:25 +02:00
parent e08238cdd7
commit 3624e9bd40
1 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/language/hanja-util.el
View File

@ -6479,11 +6479,7 @@ character. This variable is initialized by `hanja-init-load'.")
map)
"Keymap for Hanja (Korean Hanja Converter).")
(defun hanja-filter (condp lst)
"Construct a list from the elements of LST for which CONDP returns true."
(delq
nil
(mapcar (lambda (x) (and (funcall condp x) x)) lst)))
(define-obsolete-function-alias 'hanja-filter #'seq-filter "30.1")
(defun hanja-list-prev-group ()
"Select the previous group of hangul->hanja conversions."
@ -6570,12 +6566,12 @@ The value is a hanja character that is selected interactively."
0 0
;; Filter characters that can not be decoded.
;; Maybe it can not represent characters in current terminal coding.
(hanja-filter (lambda (x) (car x))
(mapcar (lambda (c)
(if (listp c)
(cons (car c) (cdr c))
(list c)))
(aref hanja-table char)))))
(seq-filter #'car
(mapcar (lambda (c)
(if (listp c)
(cons (car c) (cdr c))
(list c)))
(aref hanja-table char)))))
(unwind-protect
(when (aref hanja-conversions 2)
(catch 'exit-input-loop