From 3c092276c7d4a618d6badcdc283a5a7fdebf97fb Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 8 Feb 1999 09:52:43 +0000 Subject: [PATCH] (coding-system-list): Don't sort coding-system-list here. --- lisp/international/mule-util.el | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) 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). -- 2.39.2