فهرست منبع

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.
Kyle Meyer 2 سال پیش
والد
کامیت
75d63533d3
1فایلهای تغییر یافته به همراه7 افزوده شده و 8 حذف شده
  1. 7 8
      lisp/org-compat.el

+ 7 - 8
lisp/org-compat.el

@@ -116,6 +116,13 @@ the symbol of the calling function, for example."
       (when (not (equal attr cachedattr))
         (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
@@ -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-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