From 90ec9bb83e213712e2170e7f2ed69f11d925919b Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 26 Jul 2022 14:08:38 -0400 Subject: restore and obsolete `gnus-string-equal' and `bibtex-string=' * lisp/gnus/gnus-util.el (gnus-string-equal): Restore and declare obsolete. * lisp/textmodes/bibtex.el (bibtex-string=): Likewise. --- lisp/gnus/gnus-util.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'lisp/gnus/gnus-util.el') diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 31a275c7d05..dda2b4ff5fc 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -1073,6 +1073,16 @@ ARG is passed to the first function." s) (error string))) +;; This might use `compare-strings' to reduce consing in the +;; case-insensitive case, but it has to cope with null args. +;; (`string-equal' uses symbol print names.) +(defun gnus-string-equal (x y) + "Like `string-equal', except it compares case-insensitively." + (declare (obsolete string-equal-ignore-case "29.1")) + (and (= (length x) (length y)) + (or (string-equal x y) + (string-equal (downcase x) (downcase y))))) + (defcustom gnus-use-byte-compile t "If non-nil, byte-compile crucial run-time code." :type 'boolean -- cgit v1.2.3