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 b0c44cd..1f24a55 100644 (file)
--- a/lisp/mule/mule-ccl.el
+++ b/lisp/mule/mule-ccl.el
@@ -299,7 +299,7 @@
 
 ;;;###autoload
 (defun ccl-program-p (obj)
-  "T if OBJECT is a valid CCL compiled code."
+  "Return t if OBJECT is a valid CCL compiled code."
   (and (vectorp obj)
        (let ((i 0) (len (length obj)) (flag t))
         (if (> len 1)
@@ -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))))