X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fmule%2Fmule-ccl.el;h=1f24a55c8d419c9ced90f2c86229f4a7affd3cec;hp=b0c44cd85f89c8758ac069bdad65409a69d3b148;hb=59eec5f21669e81977b5b1fe9bf717cab49cf7fb;hpb=1e7fd761ecf5fd2208bde8e30fc6f7cbf789b7db

diff --git a/lisp/mule/mule-ccl.el b/lisp/mule/mule-ccl.el
index b0c44cd..1f24a55 100644
--- 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)))))
 
 
-;;; 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))))