(describe-coding-system): Describe `dependency' property.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index a967844f305ac805ba82118280899c011db3012b..24b6a5d7018e0c4f7b492e14438b6ba87fccc502 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -668,6 +668,17 @@ which font is being used for displaying the character."
       (describe-current-coding-system)
     (with-output-to-temp-buffer "*Help*"
       (print-coding-system-briefly coding-system 'doc-string)
+      (princ "\n")
+      (let ((vars (coding-system-get coding-system 'dependency)))
+       (when vars
+         (princ "See also the documentation of these customizable variables
+which alter the behaviour of this coding system.\n")
+         (dolist (v vars)
+           (princ "  `")
+           (princ v)
+           (princ "'\n"))
+         (princ "\n")))
+
       (let ((coding-spec (coding-system-spec coding-system)))
        (princ "Type: ")
        (let ((type (coding-system-type coding-system))