diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-03-17 12:13:27 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2023-03-17 12:33:14 +0100 |
| commit | 891a37ab36a0782a798841c056a2dd86bd31161a (patch) | |
| tree | c187247d9afc3d3f7f5a81214dda5f96f3df50d3 /lisp/subr.el | |
| parent | eba7d7970f330068d3332419623f87caf6953e6c (diff) | |
| download | emacs-891a37ab36a0782a798841c056a2dd86bd31161a.tar.gz | |
* lisp/subr.el (string-prefix-p, string-suffix-p): Not pure.
The `ignore-case` arguments prevent these functions from being pure.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 8aedce934d1..9ba0acace01 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -5531,7 +5531,7 @@ See also `string-equal'." "Return non-nil if PREFIX is a prefix of STRING. If IGNORE-CASE is non-nil, the comparison is done without paying attention to case differences." - (declare (pure t) (side-effect-free t)) + (declare (side-effect-free t)) (let ((prefix-length (length prefix))) (if (> prefix-length (length string)) nil (eq t (compare-strings prefix 0 prefix-length string @@ -5541,7 +5541,7 @@ to case differences." "Return non-nil if SUFFIX is a suffix of STRING. If IGNORE-CASE is non-nil, the comparison is done without paying attention to case differences." - (declare (pure t) (side-effect-free t)) + (declare (side-effect-free t)) (let ((start-pos (- (length string) (length suffix)))) (and (>= start-pos 0) (eq t (compare-strings suffix nil nil |