diff options
| author | Sebastian Reuße <seb@wirrsal.net> | 2018-03-11 16:43:50 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-03-13 09:09:48 +0100 |
| commit | 8e9518a3b0996c24e287dbf60d1b2d2cbb4e7b60 (patch) | |
| tree | 2bc779050b4986857e435ba57799251909c92f08 | |
| parent | 89ec5e198b07e21740d4e5080b64fd8fa2b35a53 (diff) | |
| download | org-mode-8e9518a3b0996c24e287dbf60d1b2d2cbb4e7b60.tar.gz | |
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.
| -rw-r--r-- | lisp/org-compat.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 9757522..a22b5f1 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -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). |