mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(ccl-dump-call): Fix printing the subroutine name.

Browse Source
This commit is contained in:
Kenichi Handa 2004-06-11 05:58:29 +00:00
parent 230779b9a3
commit af76810e60
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/international/ccl.el
View File

@ -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)