[Emacs-diffs] Changes to emacs/lisp/international/ccl.el

[Kenichi Handa]

Index: emacs/lisp/international/ccl.el
diff -c emacs/lisp/international/ccl.el:1.34 
emacs/lisp/international/ccl.el:1.35
*** emacs/lisp/international/ccl.el:1.34        Mon Feb 16 00:03:56 2004
--- emacs/lisp/international/ccl.el     Fri Jun 11 05:58:29 2004
***************
*** 1120,1126 ****
    (insert (format "write r%d (%d remaining)\n" rrr cc)))
  
  (defun ccl-dump-call (ignore cc)
!   (insert (format "call subroutine #%d\n" cc)))
  
  (defun ccl-dump-write-const-string (rrr cc)
    (if (= rrr 0)
--- 1120,1127 ----
    (insert (format "write r%d (%d remaining)\n" rrr cc)))
  
  (defun ccl-dump-call (ignore cc)
!   (let ((subroutine (car (ccl-get-next-code))))
!     (insert (format "call subroutine `%s'\n" subroutine))))
  
  (defun ccl-dump-write-const-string (rrr cc)
    (if (= rrr 0)