Disable x-symbol-mac-setup2 for now until compile can be fixed.

1 files changed, 19 insertions, 17 deletions

diff --git a/x-symbol/lisp/x-symbol.el b/x-symbol/lisp/x-symbol.el
index 3afc6fce..831d4f49 100644
--- a/x-symbol/lisp/x-symbol.el
+++ b/x-symbol/lisp/x-symbol.el
@@ -4907,23 +4907,25 @@ uses it with TOKEN and CHARSYM."
 
 
 (defun x-symbol-mac-setup2 ()
-  (define-ccl-program ccl-encode-fake-xsymb1-font
-    `(0
-      ((r2 = r1)
-       (r1 = 0)
-       (if (r0 == ,(charset-id 'xsymb1-right))
-	   (r2 |= 128))))
-    "CCL program for fake xsymb1 font")
-  (setq font-ccl-encoder-alist
-	(cons (cons x-symbol-xsymb1-name ccl-encode-fake-xsymb1-font)
-	      font-ccl-encoder-alist))
-  (set-fontset-font nil 'xsymb1-left 
-		    (cons x-symbol-xsymb1-name "iso10646-1"))
-  (set-fontset-font nil 'xsymb1-right
-		    (cons x-symbol-xsymb1-name "iso10646-1"))
-  (dolist (face '(x-symbol-face x-symbol-sub-face x-symbol-sup-face))
-    (set-face-attribute face nil
-			:family 'unspecified :font 'unspecified)))
+  )
+  ;; FIXME: disabled for now, breaks compilation
+;;;   (define-ccl-program ccl-encode-fake-xsymb1-font
+;;;     `(0
+;;;       ((r2 = r1)
+;;;        (r1 = 0)
+;;;        (if (r0 == ,(charset-id 'xsymb1-right))
+;;; 	   (r2 |= 128))))
+;;;     "CCL program for fake xsymb1 font")
+;;;   (setq font-ccl-encoder-alist
+;;; 	(cons (cons x-symbol-xsymb1-name ccl-encode-fake-xsymb1-font)
+;;; 	      font-ccl-encoder-alist))
+;;;   (set-fontset-font nil 'xsymb1-left 
+;;; 		    (cons x-symbol-xsymb1-name "iso10646-1"))
+;;;   (set-fontset-font nil 'xsymb1-right
+;;; 		    (cons x-symbol-xsymb1-name "iso10646-1"))
+;;  (dolist (face '(x-symbol-face x-symbol-sub-face x-symbol-sup-face))
+;;    (set-face-attribute face nil
+;;			:family 'unspecified :font 'unspecified)))
 
 
 ;;;===========================================================================