# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1053713745 0
# Node ID cfd56310595c3d4513c3f144527b6814cc30607a
# Parent  70fb9c159754b95c9c8de0810c078635ca42a72c
(define-ccl-program): Doc fix.

diff -r 70fb9c159754 -r cfd56310595c lisp/international/ccl.el
--- a/lisp/international/ccl.el	Fri May 23 18:14:36 2003 +0000
+++ b/lisp/international/ccl.el	Fri May 23 18:15:45 2003 +0000
@@ -1493,7 +1493,7 @@
 LOOKUP :=
 	(lookup-character SYMBOL REG(charset) REG(codepoint))
 	| (lookup-integer SYMBOL REG(integer))
-        ;; SYMBOL refers to a table defined by `define-hash-translation-table'.
+        ;; SYMBOL refers to a table defined by `define-translation-hash-table'.
 MAP :=
      (iterate-multiple-map REG REG MAP-IDs)
      | (map-multiple REG REG (MAP-SET))