forked from mirrors/org-mode
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:
parent
89ec5e198b
commit
8e9518a3b0
|
@ -88,10 +88,16 @@
|
||||||
(= lastc ?\\))))))
|
(= lastc ?\\))))))
|
||||||
|
|
||||||
;; `string-collate-lessp' is new in Emacs 25.
|
;; `string-collate-lessp' is new in Emacs 25.
|
||||||
(defalias 'org-string-collate-lessp
|
(if (fboundp 'string-collate-lessp)
|
||||||
(if (fboundp 'string-collate-lessp)
|
(defalias 'org-string-collate-lessp
|
||||||
'string-collate-lessp
|
'string-collate-lessp)
|
||||||
'string-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).
|
;;; Obsolete aliases (remove them after the next major release).
|
||||||
|
|
Loading…
Reference in New Issue