(coding-system-parent): Moved from mule-util.el.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 830f3924e2fd816a90d16bef1c50afe94fb18a8c..5b97b0e6e33370ed1522601974656417770305b0 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -291,6 +291,13 @@ See also the documentation of make-char."
        (or (get coding-system 'coding-category)
           (coding-system-category (get coding-system 'coding-system)))))
 
+(defun coding-system-parent (coding-system)
+  "Return parent of CODING-SYSTEM."
+  (let ((parent (get coding-system 'parent-coding-system)))
+    (and parent
+        (or (coding-system-parent parent)
+            parent))))
+
 ;; Make subsidiary coding systems (eol-type variants) of CODING-SYSTEM.
 (defun make-subsidiary-coding-system (coding-system)
   (let ((subsidiaries (vector (intern (format "%s-unix" coding-system))