diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-11-19 06:42:46 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-11-19 20:43:51 +0100 |
| commit | 75555b5b6bc517911404fc769b02f583e40f6c35 (patch) | |
| tree | 024567695b0e966474688e1955398daf26321288 /lisp/cedet/semantic/sort.el | |
| parent | 3963aea4f4a22da0c1fb8ca8ca80b59c58373811 (diff) | |
| download | emacs-75555b5b6bc517911404fc769b02f583e40f6c35.tar.gz emacs-75555b5b6bc517911404fc769b02f583e40f6c35.tar.bz2 emacs-75555b5b6bc517911404fc769b02f583e40f6c35.zip | |
Remove some compat code for old versions and XEmacs
* lisp/ibuf-ext.el (ibuffer-old-saved-filters-warning)
(ibuffer-maybe-save-stuff): Assume customize-save-variable is
bound; it is autoloaded.
* lisp/cedet/semantic/symref/grep.el (semantic-symref-perform-search):
* lisp/password-cache.el (password-cache-remove):
* lisp/cedet/semantic/bovine/el.el (semantic-dependency-tag-file):
Remove Emacs 21 compat code.
* lisp/cedet/semantic/sort.el (semantic-string-lessp-ci):
Remove Emacs 20 compat code.
* test/lisp/cedet/semantic-utest.el (semantic-utest-temp-directory):
* lisp/mail/supercite.el (sc-ask): Remove XEmacs compat code.
* lisp/progmodes/idlw-shell.el (idlwave-shell-mode):
* lisp/progmodes/idlwave.el (idlwave-mode): Remove commented out
compat code.
Diffstat (limited to 'lisp/cedet/semantic/sort.el')
| -rw-r--r-- | lisp/cedet/semantic/sort.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/cedet/semantic/sort.el b/lisp/cedet/semantic/sort.el index 89fc917e0c7..a565d878f15 100644 --- a/lisp/cedet/semantic/sort.el +++ b/lisp/cedet/semantic/sort.el @@ -46,11 +46,7 @@ (defun semantic-string-lessp-ci (s1 s2) "Case insensitive version of `string-lessp'. Argument S1 and S2 are the strings to compare." - ;; Use downcase instead of upcase because an average name - ;; has more lower case characters. - (if (fboundp 'compare-strings) - (eq (compare-strings s1 0 nil s2 0 nil t) -1) - (string-lessp (downcase s1) (downcase s2)))) + (eq (compare-strings s1 0 nil s2 0 nil t) -1)) (defun semantic-sort-tag-type (tag) "Return a type string for TAG guaranteed to be a string." |