(define-ccl-program): Doc fix.

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index 687698c47090f9839a37c59f4444eb02c1b122a0..300a977c4fb6b7c4122f9994e7f095bba748059b 100644 (file)
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -1493,7 +1493,7 @@ TRANSLATE :=
 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))