Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

restore and obsolete gnus-string-equal' and bibtex-string='

Browse source 
* lisp/gnus/gnus-util.el (gnus-string-equal): Restore and declare obsolete.
* lisp/textmodes/bibtex.el (bibtex-string=): Likewise.
This commit is contained in:
Sam Steingold 2022-07-26 14:08:38 -04:00
parent 1e3a7bf69d
commit 90ec9bb83e
2 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/gnus-util.el
View file

@ -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

5
lisp/textmodes/bibtex.el
View file

@ -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]+")