Mercurial > emacs
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))