diff options
| author | Sam Steingold <sds@gnu.org> | 2022-07-28 12:35:21 -0400 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2022-07-28 12:36:21 -0400 |
| commit | eeeb481750b5cec264af0f4ea5298cae011e5050 (patch) | |
| tree | fa0a52ecceda4e14d10f714a3ec1a57982805a98 /lisp/emacs-lisp | |
| parent | 6023b95948e85f44d827e0066832de145737aea7 (diff) | |
| download | emacs-eeeb481750b5cec264af0f4ea5298cae011e5050.tar.gz emacs-eeeb481750b5cec264af0f4ea5298cae011e5050.tar.bz2 emacs-eeeb481750b5cec264af0f4ea5298cae011e5050.zip | |
Cleanup `string-equal-ignore-case' declarations.
Also, a minor declaration cleanup for other `compare-strings' thin wrappers.
* lisp/emacs-lisp/byte-opt.el (side-effect-free-fns): Remove
`string-equal-ignore-case', `string-prefix-p', `string-suffix-p'.
(side-effect-and-error-free-fns): Add `proper-list-p' (it already
was in `pure-fns').
(pure-fns): Remove `string-prefix-p', `string-suffix-p'
(`string-equal-ignore-case' was missing here).
* lisp/subr.el (proper-list-p): Remove partially duplicate `put's from here.
(string-equal-ignore-case, string-prefix-p, string-suffix-p): Add
`pure' and `side-effect-free' declarations.
(string-equal-ignore-case): Make inline.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 3f4af44051c..9817fa0eb15 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1451,8 +1451,7 @@ See Info node `(elisp) Integer Basics'." radians-to-degrees rassq rassoc read-from-string regexp-opt regexp-quote region-beginning region-end reverse round sin sqrt string string< string= string-equal string-lessp - string> string-greaterp string-empty-p string-equal-ignore-case - string-prefix-p string-suffix-p string-blank-p + string> string-greaterp string-empty-p string-blank-p string-search string-to-char string-to-number string-to-syntax substring sxhash sxhash-equal sxhash-eq sxhash-eql @@ -1500,7 +1499,7 @@ See Info node `(elisp) Integer Basics'." natnump nlistp not null number-or-marker-p numberp one-window-p overlayp point point-marker point-min point-max preceding-char primary-charset - processp + processp proper-list-p recent-keys recursion-depth safe-length selected-frame selected-window sequencep standard-case-table standard-syntax-table stringp subrp symbolp @@ -1545,7 +1544,7 @@ See Info node `(elisp) Integer Basics'." floor ceiling round truncate ffloor fceiling fround ftruncate string= string-equal string< string-lessp string> string-greaterp - string-empty-p string-blank-p string-prefix-p string-suffix-p + string-empty-p string-blank-p string-search consp atom listp nlistp proper-list-p sequencep arrayp vectorp stringp bool-vector-p hash-table-p |