(coding-system-parent): Moved to mule.el.

This commit is contained in:
Kenichi Handa 1997-06-18 13:22:13 +00:00
parent bd882697ea
commit 74e2a7b575

View file

@ -246,14 +246,6 @@ coding-spec (see the function `make-coding-system')."
(coding-system-unification-table
(get coding-system 'coding-system)))))
;;;###autoload
(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))))
(defun coding-system-lessp (x y)
(cond ((eq x 'no-conversion) t)
((eq y 'no-conversion) nil)