tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix string-collate-lessp shim 

* org-compat.el (org-string-collate-lessp): When shimming
string-collate-lessp, accept the same arguments as in the unshimmed
case.
This commit is contained in:
Sebastian Reuße 2018-03-11 16:43:50 +01:00 committed by Nicolas Goaziou
parent 89ec5e198b
commit 8e9518a3b0
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/org-compat.el
View File

@ -88,10 +88,16 @@
(= lastc ?\\))))))
;; `string-collate-lessp' is new in Emacs 25.
(defalias 'org-string-collate-lessp
(if (fboundp 'string-collate-lessp)
'string-collate-lessp
'string-lessp))
(if (fboundp 'string-collate-lessp)
(defalias 'org-string-collate-lessp
'string-collate-lessp)
(defun org-string-collate-lessp (s1 s2 &optional locale ignore-case)
"Return non-nil if STRING1 is less than STRING2 in lexicographic order.
Case is significant.
LOCALE and IGNORE-CASE are ignored."
(string< s1 s2)))
;;; Obsolete aliases (remove them after the next major release).