[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f8cdb9e0506: Declare more mutating functions
From: |
Mattias Engdegård |
Subject: |
master f8cdb9e0506: Declare more mutating functions |
Date: |
Sun, 21 May 2023 04:14:56 -0400 (EDT) |
branch: master
commit f8cdb9e05067fba5dee193ac604e75a67a7ff2c9
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
Declare more mutating functions
* lisp/emacs-lisp/bytecomp.el (mutating-fns):
Add assoc-delete-all, assq-delete-all and rassq-delete-all.
* lisp/emacs-lisp/shortdoc.el (alist, list):
Don't mutate constants in examples illustrating use of
assoc-delete-all, assq-delete-all and rassq-delete-all.
---
lisp/emacs-lisp/bytecomp.el | 1 +
lisp/emacs-lisp/shortdoc.el | 12 +++++++-----
2 files changed, 8 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index b8d7b63a81a..ac040799a22 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3590,6 +3590,7 @@ lambda-expression."
(delq 2) (delete 2)
(delete-dups 1) (delete-consecutive-dups 1)
(plist-put 1)
+ (assoc-delete-all 2) (assq-delete-all 2) (rassq-delete-all 2)
(fillarray 1)
(store-substring 1)
(clear-string 1)
diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 1e8ab4ad46d..8c44a4fb0a0 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -137,11 +137,11 @@ A FUNC form can have any number of `:no-eval' (or
`:no-value'),
:eval (assoc-string "foo" '(("foo" . "bar") ("zot" "baz"))))
"Manipulating Alists"
(assoc-delete-all
- :eval (assoc-delete-all "foo" '(("foo" . "bar") ("zot" . "baz")) #'equal))
+ :eval (assoc-delete-all "b" (list '("a" . a) '("b" . b) '("b" . c))))
(assq-delete-all
- :eval (assq-delete-all 'foo '((foo . bar) (zot . baz))))
+ :eval (assq-delete-all 2 (list '(1 . a) '(2 . b) '(2 . c))))
(rassq-delete-all
- :eval (rassq-delete-all 'bar '((foo . bar) (zot . baz))))
+ :eval (rassq-delete-all 'b (list '(1 . a) '(2 . b) '(2 . c))))
(alist-get
:eval (let ((foo '((bar . baz))))
(setf (alist-get 'bar foo) 'zot)
@@ -705,10 +705,12 @@ A FUNC form can have any number of `:no-eval' (or
`:no-value'),
:eval (assoc-default 2 '((1 . a) (2 . b) #'=)))
(copy-alist
:eval (copy-alist '((1 . a) (2 . b))))
- (assq-delete-all
- :eval (assq-delete-all 2 (list '(1 . a) '(2 . b) '(2 . c))))
(assoc-delete-all
:eval (assoc-delete-all "b" (list '("a" . a) '("b" . b) '("b" . c))))
+ (assq-delete-all
+ :eval (assq-delete-all 2 (list '(1 . a) '(2 . b) '(2 . c))))
+ (rassq-delete-all
+ :eval (rassq-delete-all 'b (list '(1 . a) '(2 . b) '(2 . c))))
"Property Lists"
(plist-get
:eval (plist-get '(a 1 b 2 c 3) 'b))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master f8cdb9e0506: Declare more mutating functions,
Mattias Engdegård <=