diff options
Diffstat (limited to 'lisp/net/tramp-compat.el')
| -rw-r--r-- | lisp/net/tramp-compat.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index ef5b1f7ec90..bc32044451c 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el @@ -312,6 +312,13 @@ CONDITION can also be a list of error conditions." (if (>= n (length list)) list (nbutlast list (- (length list) n))))))) +;; Function `string-equal-ignore-case' is new in Emacs 29.1. +(defalias 'tramp-compat-string-equal-ignore-case + (if (fboundp 'string-equal-ignore-case) + #'string-equal-ignore-case + (lambda (string1 string2) + (eq t (compare-strings string1 nil nil string2 nil nil t))))) + (dolist (elt (all-completions "tramp-compat-" obarray 'functionp)) (put (intern elt) 'tramp-suppress-trace t)) @@ -328,6 +335,6 @@ CONDITION can also be a list of error conditions." ;; parentheses with a backslash in docstrings anymore. ;; ;; * Starting with Emacs 27.1, there's `make-empty-file'. Could be -;; used instead of `write-region'. +;; used instead of `(write-region "" ...)'. ;;; tramp-compat.el ends here |