Mercurial > hg > xemacs-beta

diff lisp/mule/mule-ccl.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 576fb035e263
line wrap: on
line diff
--- a/lisp/mule/mule-ccl.el	Mon Aug 13 11:33:40 2007 +0200
+++ b/lisp/mule/mule-ccl.el	Mon Aug 13 11:35:02 2007 +0200
@@ -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))))