Mercurial > emacs

comparison lisp/international/fontset.el @ 90644:9b62e05dedf6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(create-fontset-from-fontset-spec): Fix script name handling.
author Kenichi Handa <handa@m17n.org>
date Mon, 30 Oct 2006 06:52:47 +0000
parents d9cb37754a26
children 5b24bb105d42
comparison
equal deleted inserted replaced
90643:02275d5d2f2c 90644:9b62e05dedf6
788 (while (string-match "[, \t\n]*\\([^:]+\\):[ \t]*\\([^,]+\\)" 788 (while (string-match "[, \t\n]*\\([^:]+\\):[ \t]*\\([^,]+\\)"
789 fontset-spec idx) 789 fontset-spec idx)
790 (setq idx (match-end 0)) 790 (setq idx (match-end 0))
791 (setq target (intern (match-string 1 fontset-spec))) 791 (setq target (intern (match-string 1 fontset-spec)))
792 (cond ((or (eq target 'ascii) 792 (cond ((or (eq target 'ascii)
793 (memq target (char-table-extra-slot char-script-table 0)) 793 (memq target (char-table-extra-slot char-script-table 0)))
794 (setq script (cdr (assq script charset-script-alist)))) 794 (push (list target (match-string 2 fontset-spec)) fontlist))
795 ((setq script (cdr (assq target charset-script-alist)))
795 (push (list script (match-string 2 fontset-spec)) fontlist)) 796 (push (list script (match-string 2 fontset-spec)) fontlist))
796 ((charsetp target) 797 ((charsetp target)
797 (push (list target (match-string 2 fontset-spec)) fontlist)))) 798 (push (list target (match-string 2 fontset-spec)) fontlist))))
798 799
799 ;; Complement FONTLIST. 800 ;; Complement FONTLIST.