diff options
| -rw-r--r-- | x-symbol/lisp/x-symbol-emacs.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/x-symbol/lisp/x-symbol-emacs.el b/x-symbol/lisp/x-symbol-emacs.el index 18212be3..1966328e 100644 --- a/x-symbol/lisp/x-symbol-emacs.el +++ b/x-symbol/lisp/x-symbol-emacs.el @@ -416,6 +416,15 @@ are separated with SEPARATOR (\", \" by default)." (defalias 'x-symbol-window-width 'window-width) +;; emacs-u-22 version: problematic +;; (defun x-symbol-set-face-font (face font charsets default) +;; (let ((fontset (replace-in-string (symbol-name face) "-" ""))) +;; (unless (query-fontset fontset) +;; (create-fontset-from-ascii-font font nil fontset)) +;; (dolist (charset charsets) +;; (when charset (set-fontset-font fontset charset font))) +;; (set-face-font face fontset))) + (defun x-symbol-set-face-font (face font charsets default) (let ((fontset (concat "fontset-" (symbol-name face)))) (unless (query-fontset fontset) |