Refactor unicode fixes

This commit is contained in:
Henrik Lissner 2016-05-08 18:28:38 -04:00
parent 806fa7d85a
commit 1d187fa478
3 changed files with 16 additions and 9 deletions

View file

@ -284,5 +284,14 @@ Examples:
(require 'autoloads))
(message "Done!")))
(defun narf-fix-unicode (font chars &optional size)
"Display certain unicode characters in a specific font.
e.g. (narf-fix-unicode \"DejaVu Sans\" '(?⚠ ?★ ?➊ ?➋ ?➌ ?➍ ?➎ ?❻ ?➐ ?➑ ?➒ ?➓))"
(mapc (lambda (x) (set-fontset-font
"fontset-default" `(,x . ,x)
(font-spec :name font :size size) nil 'prepend))
chars))
(provide 'core-defuns)
;;; core-defuns.el ends here