diff options
| author | David Aspinall | 2008-01-29 00:23:31 +0000 |
|---|---|---|
| committer | David Aspinall | 2008-01-29 00:23:31 +0000 |
| commit | 6d3fc7d620974b28a4afeb339027a0c4c5c20b64 (patch) | |
| tree | 2fb27788ba17d6e149f1f806d4e27a5a27da49ef | |
| parent | 0b7896a409979c1534d47f4c4ee121180674e33b (diff) | |
Fix define-ccl-program call; require 'ccl for compile.
| -rw-r--r-- | x-symbol/lisp/x-symbol.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/x-symbol/lisp/x-symbol.el b/x-symbol/lisp/x-symbol.el index c02f27ef..8d68c53b 100644 --- a/x-symbol/lisp/x-symbol.el +++ b/x-symbol/lisp/x-symbol.el @@ -42,6 +42,7 @@ (require (if (featurep 'mule) 'x-symbol-mule 'x-symbol-nomule)) (eval-when-compile (require 'x-symbol-macs)) (eval-when-compile (require 'cl)) +(eval-when-compile (require 'ccl)) (eval-when-compile (defvar font-lock-extra-managed-props) ; font-lock of Emacs-21.4 @@ -4898,14 +4899,13 @@ uses it with TOKEN and CHARSYM." (list (concat "-apple-" x-symbol-xsymb1-name "-medium-r-normal--%d-%d0-*-*-*-*-iso10646-1"))))) -(eval-and-compile ;; da: tricky to compile this; define-ccl-program is a macro -'(define-ccl-program ccl-encode-fake-xsymb1-font +(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")) + "CCL program for fake xsymb1 font") (defun x-symbol-mac-setup2 () (setq font-ccl-encoder-alist |