diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 696940e..7c74f0e 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -698,6 +698,11 @@ (dolist (symbol-subgroup '((#x0250 . #x02AF) ;; IPA Extensions (#x2000 . #x206F) ;; General Punctuation + (#x2000 . #x2012) ;; General Punctuation + (#x2015 . #x2017) + (#x201F . #x202F) + (#x2031 . #x2038) + (#x203B . #x206F) (#x2070 . #x209F) ;; Superscripts and Subscripts (#x20A0 . #x20CF) ;; Currency Symbols (#x2100 . #x214F) ;; Letterlike Symbols @@ -738,6 +743,16 @@ (set-fontset-font "fontset-default" '(#x2500 . #x259F) "FreeMono" nil 'prepend) + (set-fontset-font "fontset-default" '(#x2013 . #x2014) + "-*-fixed-medium-r-*-*-*-*-*-*-*-*-iso10646-1" + nil 'prepend) + (set-fontset-font "fontset-default" '(#x2018 . #x201E) + "-*-fixed-medium-r-*-*-*-*-*-*-*-*-iso10646-1" + nil 'prepend) + (set-fontset-font "fontset-default" '(#x2039 . #x203A) + "-*-fixed-medium-r-*-*-*-*-*-*-*-*-iso10646-1" + nil 'prepend) + ;; 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))