Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
950 ;; (t 950 ;; (t
951 ;; (error "CCL: Invalid type of arguments: %s" cmd))) 951 ;; (error "CCL: Invalid type of arguments: %s" cmd)))
952 ;; (setq args (cdr args))))) 952 ;; (setq args (cdr args)))))
953 953
954 954
955 ;;; CCL dump staffs 955 ;;; CCL dump stuff
956
957 ;; To avoid byte-compiler warning.
958 (defvar ccl-code)
959 956
960 ;;;###autoload 957 ;;;###autoload
961 (defun ccl-dump (ccl-code) 958 (defun ccl-dump (ccl-code)
962 "Disassemble compiled CCL-CODE." 959 "Disassemble compiled CCL-CODE."
963 (let ((len (length ccl-code)) 960 (let ((len (length ccl-code))
981 (ccl-dump-1)) 978 (ccl-dump-1))
982 )) 979 ))
983 980
984 ;; Return a CCL code in `ccl-code' at `ccl-current-ic'. 981 ;; Return a CCL code in `ccl-code' at `ccl-current-ic'.
985 (defun ccl-get-next-code () 982 (defun ccl-get-next-code ()
983 (declare (special ccl-code))
986 (prog1 984 (prog1
987 (aref ccl-code ccl-current-ic) 985 (aref ccl-code ccl-current-ic)
988 (setq ccl-current-ic (1+ ccl-current-ic)))) 986 (setq ccl-current-ic (1+ ccl-current-ic))))
989 987
990 (defun ccl-dump-1 () 988 (defun ccl-dump-1 ()