diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index b7725791732..22b1a032e73 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -271,7 +271,7 @@
 
 ;;;###autoload
 (defun ccl-compile (ccl-program)
-  "Return a compiled code of CCL-PROGRAM as a vector of integer."
+  "Return the compiled code of CCL-PROGRAM as a vector of integers."
   (if (or (null (consp ccl-program))
 	  (null (integerp (car ccl-program)))
 	  (null (listp (car (cdr ccl-program)))))
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 0bb4438bcc4..0f8d6c3f66f 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -448,7 +448,8 @@ for more detail."
 	    (list prop val)))))
 
 (defun coding-system-category (coding-system)
-  "Return the coding category of CODING-SYSTEM."
+  "Return the coding category of CODING-SYSTEM.
+See also `coding-category-list'."
   (coding-system-get coding-system 'coding-category))
 
 (defun coding-system-base (coding-system)