From: Kenichi Handa <handa@m17n.org>
Date: Mon, 30 Sep 2002 06:40:01 +0000 (+0000)
Subject: (describe-coding-system): Describe `dependency' property..
X-Git-Tag: ttn-vms-21-2-B4~12977
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8fdfd269df4e5859839b741e66f7fdbeea116932;p=emacs.git

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

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 2b8b225963e..78c0e1c0e6e 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -618,6 +618,16 @@ PC `codepages' and other coded character sets.  See `non-iso-charset-alist'."
     (with-output-to-temp-buffer (help-buffer)
       (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")))
+
       (princ "Type: ")
       (let ((type (coding-system-type coding-system))
 	    (flags (coding-system-flags coding-system)))