diff options
| author | Lars Ingebrigtsen | 2020-08-26 11:28:18 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2020-08-26 11:28:18 +0200 |
| commit | 99fe2a2643ce67f04a908ffd3fe07746860486f0 (patch) | |
| tree | 29b16a3ce44a00a5e04bcecb7096d5d904f4499d | |
| parent | 1926fe6527ac5c3220dd736a2a1a9643f11d8220 (diff) | |
| download | emacs-99fe2a2643ce67f04a908ffd3fe07746860486f0.tar.gz emacs-99fe2a2643ce67f04a908ffd3fe07746860486f0.zip | |
Remove side-effect-free markup for assoc-default
* lisp/subr.el (assoc-default): assoc-default isn't
side-effect-free, because it takes a :test parameter that can do
anything (bug#37943).
| -rw-r--r-- | lisp/subr.el | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 660367642aa..08ff38ff8c1 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -766,7 +766,6 @@ If that is non-nil, the element matches; then `assoc-default' | |||
| 766 | 766 | ||
| 767 | If no element matches, the value is nil. | 767 | If no element matches, the value is nil. |
| 768 | If TEST is omitted or nil, `equal' is used." | 768 | If TEST is omitted or nil, `equal' is used." |
| 769 | (declare (side-effect-free t)) | ||
| 770 | (let (found (tail alist) value) | 769 | (let (found (tail alist) value) |
| 771 | (while (and tail (not found)) | 770 | (while (and tail (not found)) |
| 772 | (let ((elt (car tail))) | 771 | (let ((elt (car tail))) |