XEmacs 21.2.36 "Notos"

[chise/xemacs-chise.git.1] / lisp / mule / mule-ccl.el

diff --git a/lisp/mule/mule-ccl.el b/lisp/mule/mule-ccl.el
index ae0a188..1f24a55 100644 (file)
--- a/lisp/mule/mule-ccl.el
+++ b/lisp/mule/mule-ccl.el
@@ -952,10 +952,7 @@
 ;;       (setq args (cdr args)))))
 
 \f
-;;; CCL dump staffs
-
-;; To avoid byte-compiler warning.
-(defvar ccl-code)
+;;; CCL dump stuff
 
 ;;;###autoload
 (defun ccl-dump (ccl-code)
@@ -983,6 +980,7 @@
 
 ;; Return a CCL code in `ccl-code' at `ccl-current-ic'.
 (defun ccl-get-next-code ()
+  (declare (special ccl-code))
   (prog1
       (aref ccl-code ccl-current-ic)
     (setq ccl-current-ic (1+ ccl-current-ic))))