From d73e52d4d6abb324e93584d01f53d360f57834a9 Mon Sep 17 00:00:00 2001 From: Johnathan Rabkin Date: Thu, 20 Sep 2012 07:32:31 -0400 Subject: * lisp/emms-browser.el: Fix bug in use of compare-strings. The standard use of compare-strings in this manner is (eq t (compare-st...)). --- lisp/emms-browser.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emms-browser.el b/lisp/emms-browser.el index c52f326..271ac73 100644 --- a/lisp/emms-browser.el +++ b/lisp/emms-browser.el @@ -674,7 +674,7 @@ compilations, etc." (sort-lines nil (point-min) (point-max))))) (defun case-fold-string= (a b) - (compare-strings a nil nil b nil nil t)) + (eq t (compare-strings a nil nil b nil nil t))) (defun case-fold-string-hash (a) (sxhash (upcase a))) -- cgit v1.2.3