changeset 18312:705da3ce58c0

(coding-system-parent): Moved from mule-util.el.
author Kenichi Handa <handa@m17n.org>
date Wed, 18 Jun 1997 13:21:23 +0000
parents 8b716cb12cdd
children 083d035f7932
files lisp/international/mule.el
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule.el	Wed Jun 18 13:09:05 1997 +0000
+++ b/lisp/international/mule.el	Wed Jun 18 13:21:23 1997 +0000
@@ -291,6 +291,13 @@
        (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))