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

[Miles Bader]

Index: emacs/lisp/international/ccl.el
diff -c emacs/lisp/international/ccl.el:1.29.8.3 
emacs/lisp/international/ccl.el:1.29.8.4
*** emacs/lisp/international/ccl.el:1.29.8.3    Tue Feb 17 23:15:43 2004
--- emacs/lisp/international/ccl.el     Tue Jul  6 10:10:48 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)