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."
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