From: Andreas Schwab <schwab@suse.de>
Date: Mon, 8 Feb 1999 09:52:43 +0000 (+0000)
Subject: (coding-system-list): Don't sort
X-Git-Tag: emacs-20.4~672
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c092276c7d4a618d6badcdc283a5a7fdebf97fb;p=emacs.git

(coding-system-list): Don't sort
coding-system-list here.
---

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 7b6c1c2cd27..ae13446ca6b 100644
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -240,25 +240,11 @@ 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))
 
-(defun coding-system-lessp (x y)
-  (cond ((eq x 'no-conversion) t)
-	((eq y 'no-conversion) nil)
-	((eq x 'emacs-mule) t)
-	((eq y 'emacs-mule) nil)
-	((eq x 'undecided) t)
-	((eq y 'undecided) nil)
-	(t (let ((c1 (coding-system-mnemonic x))
-		 (c2 (coding-system-mnemonic y)))
-	     (or (< (downcase c1) (downcase c2))
-		 (and (not (> (downcase c1) (downcase c2)))
-		      (< c1 c2)))))))
-
 ;;;###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 (sort (copy-sequence coding-system-list)
-			'coding-system-lessp))
+  (let* ((codings (copy-sequence coding-system-list))
 	 (tail (cons nil codings)))
     ;; Remove subsidiary coding systems (eol variants) and alias
     ;; coding systems (if necessary).