Commit bd882697 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

parent 5b6dddaa
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment