diff options
author | Andreas Schwab <[email protected]> | 1999-02-08 09:52:43 +0000 |
---|---|---|
committer | Andreas Schwab <[email protected]> | 1999-02-08 09:52:43 +0000 |
commit | 3c092276c7d4a618d6badcdc283a5a7fdebf97fb (patch) | |
tree | d05d951f51fe2a090c1b7a94b7bf0709f180fa49 /lisp/international | |
parent | 857ea15ca99ef305572ab55e2039ddfe6b573848 (diff) |
(coding-system-list): Don't sort
coding-system-list here.
Diffstat (limited to 'lisp/international')
-rw-r--r-- | lisp/international/mule-util.el | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index 7b6c1c2cd2..ae13446ca6 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). |