From: Kenichi Handa <handa@m17n.org>
Date: Thu, 18 Feb 1999 13:11:50 +0000 (+0000)
Subject: (coding-system-list): Moved to mule.el.
X-Git-Tag: emacs-20.4~603
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd529916976e7c04b967808e992f16ab76023348;p=emacs.git

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

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 1c71791e8eb..70872b636dc 100644
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -240,26 +240,6 @@ Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil
   "Return the value of CODING-SYSTEM's translation-table-for-encode property."
   (coding-system-get coding-system 'translation-table-for-encode))
 
-;;;###autoload
-(defun coding-system-list (&optional base-only)
-  "Return a list of all existing coding systems.
-If optional arg BASE-ONLY is non-nil, only base coding systems are listed."
-  (let* ((codings (copy-sequence coding-system-list))
-	 (tail (cons nil codings)))
-    ;; Remove subsidiary coding systems (eol variants) and alias
-    ;; coding systems (if necessary).
-    (while (cdr tail)
-      (let* ((coding (car (cdr tail)))
-	     (aliases (coding-system-get coding 'alias-coding-systems)))
-	(if (or
-	     ;; CODING is an eol variant if not in ALIASES.
-	     (not (memq coding aliases))
-	     ;; CODING is an alias if it is not car of ALIASES.
-	     (and base-only (not (eq coding (car aliases)))))
-	    (setcdr tail (cdr (cdr tail)))
-	  (setq tail (cdr tail)))))
-    codings))
-
 ;;;###autoload
 (defun coding-system-equal (coding-system-1 coding-system-2)
   "Return t if and only if CODING-SYSTEM-1 and CODING-SYSTEM-2 are identical.