diff options
Diffstat (limited to 'lisp/international/fontset.el')
| -rw-r--r-- | lisp/international/fontset.el | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 8f0f263dcce..3deaff96774 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -497,37 +497,37 @@ (:registry "iso10646-1")))) (cjk-table (make-char-table nil)) (script-coverage - #'(lambda (script) - (let ((coverage)) - (map-char-table - #'(lambda (range val) - (when (eq val script) - (if (consp range) - (setq range (cons (car range) (cdr range)))) - (push range coverage))) - char-script-table) - coverage))) + (lambda (script) + (let ((coverage)) + (map-char-table + (lambda (range val) + (when (eq val script) + (if (consp range) + (setq range (cons (car range) (cdr range)))) + (push range coverage))) + char-script-table) + coverage))) (data (list (vconcat (mapcar 'car cjk)))) (i 0)) (dolist (elt cjk) (let ((mask (ash 1 i))) (map-charset-chars - #'(lambda (range _arg) - (let ((from (car range)) (to (cdr range))) - (if (< to #x110000) - (while (<= from to) - (or (memq (aref char-script-table from) - '(kana hangul han cjk-misc)) - (aset cjk-table from - (logior (or (aref cjk-table from) 0) mask))) - (setq from (1+ from)))))) + (lambda (range _arg) + (let ((from (car range)) (to (cdr range))) + (if (< to #x110000) + (while (<= from to) + (or (memq (aref char-script-table from) + '(kana hangul han cjk-misc)) + (aset cjk-table from + (logior (or (aref cjk-table from) 0) mask))) + (setq from (1+ from)))))) (nth 1 elt) nil (nth 2 elt) (nth 3 elt))) (setq i (1+ i))) (map-char-table - #'(lambda (range val) - (if (consp range) - (setq range (cons (car range) (cdr range)))) - (push (cons range val) data)) + (lambda (range val) + (if (consp range) + (setq range (cons (car range) (cdr range)))) + (push (cons range val) data)) cjk-table) (dolist (script scripts) (dolist (range (funcall script-coverage (car script))) @@ -1227,7 +1227,7 @@ Done when `mouse-set-font' is called." (string-match "fontset-auto[0-9]+$" fontset) (push (list (fontset-plain-name fontset) fontset) l))) (cons "Fontset" - (sort l #'(lambda (x y) (string< (car x) (car y))))))) + (sort l (lambda (x y) (string< (car x) (car y))))))) (declare-function query-fontset "fontset.c" (pattern &optional regexpp)) |