forked from mirrors/org-mode
compat: Move string-equal-ignore-case to correct section
Emacs's 70341cab3 put this in the "Emacs < 24.4 compatibility" section (which no longer exists in main), but string-equal-ignore-case is new to Emacs 29.
This commit is contained in:
parent
98e168b489
commit
75d63533d3
|
@ -116,6 +116,13 @@ the symbol of the calling function, for example."
|
||||||
(when (not (equal attr cachedattr))
|
(when (not (equal attr cachedattr))
|
||||||
(puthash sym attr org-file-has-changed-p--hash-table)))))
|
(puthash sym attr org-file-has-changed-p--hash-table)))))
|
||||||
|
|
||||||
|
(unless (fboundp 'string-equal-ignore-case)
|
||||||
|
;; From Emacs subr.el.
|
||||||
|
(defun string-equal-ignore-case (string1 string2)
|
||||||
|
"Like `string-equal', but case-insensitive.
|
||||||
|
Upper-case and lower-case letters are treated as equal.
|
||||||
|
Unibyte strings are converted to multibyte for comparison."
|
||||||
|
(eq t (compare-strings string1 0 nil string2 0 nil t))))
|
||||||
|
|
||||||
|
|
||||||
;;; Emacs < 28.1 compatibility
|
;;; Emacs < 28.1 compatibility
|
||||||
|
@ -1172,14 +1179,6 @@ Pass COLUMN and FORCE to `move-to-column'."
|
||||||
(define-obsolete-function-alias 'org-define-error #'define-error "9.6")
|
(define-obsolete-function-alias 'org-define-error #'define-error "9.6")
|
||||||
(define-obsolete-function-alias 'org-without-partial-completion 'progn "9.6")
|
(define-obsolete-function-alias 'org-without-partial-completion 'progn "9.6")
|
||||||
|
|
||||||
(unless (fboundp 'string-equal-ignore-case)
|
|
||||||
;; From Emacs subr.el.
|
|
||||||
(defun string-equal-ignore-case (string1 string2)
|
|
||||||
"Like `string-equal', but case-insensitive.
|
|
||||||
Upper-case and lower-case letters are treated as equal.
|
|
||||||
Unibyte strings are converted to multibyte for comparison."
|
|
||||||
(eq t (compare-strings string1 0 nil string2 0 nil t))))
|
|
||||||
|
|
||||||
|
|
||||||
;;; Integration with and fixes for other packages
|
;;; Integration with and fixes for other packages
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue