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/textmodes/bibtex.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/textmodes/bibtex.el')
-rw-r--r-- | lisp/textmodes/bibtex.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 64cb0dc0fe6..8135d40d261 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -2213,6 +2213,11 @@ Point must be at beginning of preamble. Do not move point." ;; Helper Functions +(defsubst bibtex-string= (str1 str2) + "Return t if STR1 and STR2 are equal, ignoring case." + (declare (obsolete string-equal-ignore-case "29.1")) + (eq t (compare-strings str1 0 nil str2 0 nil t))) + (defun bibtex-delete-whitespace () "Delete all whitespace starting at point." (if (looking-at "[ \t\n]+") |