diff options
author | Kenichi Handa <handa@m17n.org> | 2004-06-11 05:58:29 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2004-06-11 05:58:29 +0000 |
commit | af76810e6093f7ce53309ab52e8404940efa112c (patch) | |
tree | deee2c5bde00662228be6a4ab118b2452e83ef8b /lisp/international/ccl.el | |
parent | 230779b9a3db028aed90da480edc2236d08847d0 (diff) | |
download | emacs-af76810e6093f7ce53309ab52e8404940efa112c.tar.gz |
(ccl-dump-call): Fix printing the subroutine name.
Diffstat (limited to 'lisp/international/ccl.el')
-rw-r--r-- | lisp/international/ccl.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index e9e46bb0c6c..e55f1fbcf36 100644 --- a/lisp/international/ccl.el +++ b/lisp/international/ccl.el @@ -1120,7 +1120,8 @@ (insert (format "write r%d (%d remaining)\n" rrr cc))) (defun ccl-dump-call (ignore cc) - (insert (format "call subroutine #%d\n" 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) |