diff options
author | 2008-02-05 22:06:14 +0000 | |
---|---|---|
committer | 2008-02-05 22:06:14 +0000 | |
commit | c5dbb140389fc67cbe78c84ae7dca8fd78d92e95 (patch) | |
tree | 18c03ddeac10872d8fbd013cadbad6bb22c2c2c3 /x-symbol | |
parent | 4087a0029d01da88c0c92f5a6a9fe1b1fb56d28a (diff) |
Restore Emacs<=23 compatibility!
Diffstat (limited to 'x-symbol')
-rw-r--r-- | x-symbol/lisp/x-symbol-emacs.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/x-symbol/lisp/x-symbol-emacs.el b/x-symbol/lisp/x-symbol-emacs.el index 02648e66..5fa9da5f 100644 --- a/x-symbol/lisp/x-symbol-emacs.el +++ b/x-symbol/lisp/x-symbol-emacs.el @@ -272,10 +272,13 @@ test." (aset char-coding-system-table (make-char name) t)) (when registry (set-fontset-font "fontset-default" name (cons "*" registry)) -; da: set-font-encoding call breaks on Emacs 23 -; (when (eq graphic 0) (set-font-encoding registry name 0)) -; this patch not good enough: characters in xsymb font still lost - (when (eq graphic 0) (set-font-encoding registry name)) + (when (eq graphic 0) + (cond + ((>= emacs-major-version 23) + ;; this change not good enough: characters in xsymb font still lost + (set-font-encoding registry name)) + (t + (set-font-encoding registry name 0)))) (when ccl-program (add-to-list 'font-ccl-encoder-alist (cons registry ccl-program)))) name))) |