From c5dbb140389fc67cbe78c84ae7dca8fd78d92e95 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Tue, 5 Feb 2008 22:06:14 +0000
Subject: Restore Emacs<=23 compatibility!

---
 x-symbol/lisp/x-symbol-emacs.el | 11 +++++++----
 1 file 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)))
-- 
cgit v1.2.3