diff options
| author | Sam Steingold <sds@gnu.org> | 2022-07-26 14:08:38 -0400 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2022-07-26 14:08:38 -0400 |
| commit | 90ec9bb83e213712e2170e7f2ed69f11d925919b (patch) | |
| tree | e8ffc74479d091748d82fa58b02b9933428dde4b /lisp/gnus/gnus-util.el | |
| parent | 1e3a7bf69d05dbbe5c853780f18caf81f1e22d32 (diff) | |
| download | emacs-90ec9bb83e213712e2170e7f2ed69f11d925919b.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus/gnus-util.el')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 10 |
1 files changed, 10 insertions, 0 deletions
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 |