changeset 23771:0ed776e14a50

(ccl-dump-translate-character-const-tbl): Give format correct control string.
author Kenichi Handa <handa@m17n.org>
date Thu, 26 Nov 1998 08:12:12 +0000
parents 45f1d511e726
children afe440aabd55
files lisp/international/ccl.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/ccl.el	Thu Nov 26 08:12:12 1998 +0000
+++ b/lisp/international/ccl.el	Thu Nov 26 08:12:12 1998 +0000
@@ -1252,7 +1252,7 @@
 
 (defun ccl-dump-translate-character-const-tbl (rrr RRR Rrr)
   (let ((tbl (ccl-get-next-code)))
-    (insert (format "translation table(%d) r%d r%d\n" tbl RRR rrr))))
+    (insert (format "translation table(%S) r%d r%d\n" tbl RRR rrr))))
 
 (defun ccl-dump-iterate-multiple-map (rrr RRR Rrr)
   (let ((notbl (ccl-get-next-code))