Mercurial > emacs
changeset 56029:f2f5948989a5
(ccl-dump-call): Fix printing the subroutine name.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 11 Jun 2004 05:58:29 +0000 |
| parents | 32381d1c4eab |
| children | c66eebe86159 |
| files | lisp/international/ccl.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/ccl.el Fri Jun 11 05:56:44 2004 +0000 +++ b/lisp/international/ccl.el Fri Jun 11 05:58:29 2004 +0000 @@ -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)