diff options
| author | Kenichi Handa | 1997-06-18 13:22:13 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-06-18 13:22:13 +0000 |
| commit | 74e2a7b575d6fa07c7bbec47a6cfae192b1dc685 (patch) | |
| tree | 41b87c8982089c2d4cca8573f5d25b23c99e3e45 | |
| parent | bd882697eaf8c576757b07373761169fabb581e3 (diff) | |
| download | emacs-74e2a7b575d6fa07c7bbec47a6cfae192b1dc685.tar.gz emacs-74e2a7b575d6fa07c7bbec47a6cfae192b1dc685.zip | |
(coding-system-parent): Moved to mule.el.
| -rw-r--r-- | lisp/international/mule-util.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index 25f2c6db6ba..06b57c264ef 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el | |||
| @@ -246,14 +246,6 @@ coding-spec (see the function `make-coding-system')." | |||
| 246 | (coding-system-unification-table | 246 | (coding-system-unification-table |
| 247 | (get coding-system 'coding-system))))) | 247 | (get coding-system 'coding-system))))) |
| 248 | 248 | ||
| 249 | ;;;###autoload | ||
| 250 | (defun coding-system-parent (coding-system) | ||
| 251 | "Return parent of CODING-SYSTEM." | ||
| 252 | (let ((parent (get coding-system 'parent-coding-system))) | ||
| 253 | (and parent | ||
| 254 | (or (coding-system-parent parent) | ||
| 255 | parent)))) | ||
| 256 | |||
| 257 | (defun coding-system-lessp (x y) | 249 | (defun coding-system-lessp (x y) |
| 258 | (cond ((eq x 'no-conversion) t) | 250 | (cond ((eq x 'no-conversion) t) |
| 259 | ((eq y 'no-conversion) nil) | 251 | ((eq y 'no-conversion) nil) |