procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve the default fontset wrt symbols

Browse source 
* lisp/international/fontset.el (setup-default-fontset): Better
setup of fontset-default for symbols: use Symbola and FreeMono.
(Bug#20727)
This commit is contained in:
Eli Zaretskii 2015-06-08 21:04:08 +03:00
parent 20de61c833
commit 8d9e5bab41
1 changed files with 45 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
lisp/international/fontset.el
View file

@ -693,6 +693,51 @@
(cons (car math-subgroup) (nth 1 math-subgroup))
(font-spec :registry "iso10646-1" :script (nth 2 math-subgroup))))
;; Special setup for various symbols and some rarely used characters
;; covered well by Symbola.
(dolist (symbol-subgroup '((#x0250 . #x02AF) ;; IPA Extensions
(#x0370 . #x03FF) ;; Greek and Coptic
(#x0500 . #x052F) ;; Cyrillic Supplement
(#x2000 . #x206F) ;; General Punctuation
(#x2070 . #x209F) ;; Superscripts and Subscripts
(#x20A0 . #x20CF) ;; Currency Symbols
(#x2100 . #x214F) ;; Letterlike Symbols
(#x2150 . #x218F) ;; Number Forms
(#x2190 . #x21FF) ;; Arrows
(#x2200 . #x22FF) ;; Mathematical Operators
(#x2300 . #x23FF) ;; Miscellaneous Technical
(#x2400 . #x243F) ;; Control Pictures
(#x2440 . #x245F) ;; Optical Char Recognition
(#x2460 . #x24FF) ;; Enclosed Alphanumerics
(#x25A0 . #x25FF) ;; Geometric Shapes
(#x2600 . #x26FF) ;; Miscellaneous Symbols
(#x2700 . #x27bF) ;; Dingbats
(#x27C0 . #x27EF) ;; Misc Mathematical Symbols-A
(#x27F0 . #x27FF) ;; Supplemental Arrows-A
(#x2900 . #x297F) ;; Supplemental Arrows-B
(#x2980 . #x29FF) ;; Misc Mathematical Symbols-B
(#x2A00 . #x2AFF) ;; Suppl. Math Operators
(#x2B00 . #x2BFF) ;; Misc Symbols and Arrows
(#x2E00 . #x2E7F) ;; Supplemental Punctuation
(#x4DC0 . #x4DFF) ;; Yijing Hexagram Symbols
(#xFE10 . #xFE1F) ;; Vertical Forms
(#x10100 . #x1013F) ;; Aegean Numbers
(#x102E0 . #x102FF) ;; Coptic Epact Numbers
(#x1D000 . #x1D0FF) ;; Byzanthine Musical Symbols
(#x1D200 . #x1D24F) ;; Ancient Greek Musical Notation
(#x1F0A0 . #x1F0FF) ;; Playing Cards
(#x1F100 . #x1F1FF) ;; Enclosed Alphanumeric Suppl
(#x1F300 . #x1F5FF) ;; Misc Symbols and Pictographs
(#x1F600 . #x1F64F) ;; Emoticons
(#x1F650 . #x1F67F) ;; Ornamental Dingbats
(#x1F680 . #x1F6FF) ;; Transport and Map Symbols
(#x1F700 . #x1F77F) ;; Alchemical Symbols
(#x1F780 . #x1F7FF) ;; Geometric Shapes Extended
(#x1F800 . #x1F8FF))) ;; Supplemental Arrows-C
(set-fontset-font "fontset-default" symbol-subgroup "Symbola"))
;; Box Drawing and Block Elements
(set-fontset-font "fontset-default" '(#x2500 . #x259F) "FreeMono")
;; Append CJK fonts for characters other than han, kana, cjk-misc.
;; Append fonts for scripts whose name is also a charset name.
(let* ((data (build-default-fontset-data))