[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dash 43e8b14 4/5: Remove some redundant quotes from exa
From: |
ELPA Syncer |
Subject: |
[elpa] externals/dash 43e8b14 4/5: Remove some redundant quotes from examples |
Date: |
Tue, 6 Jul 2021 15:57:10 -0400 (EDT) |
branch: externals/dash
commit 43e8b149a5e215016ebd6b00190f06239c2ebe84
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>
Remove some redundant quotes from examples
* dev/examples.el (-split-on): Unquote self-quoting keywords.
* README.md:
* dash.texi: Regenerate docs.
---
README.md | 4 ++--
dash.texi | 4 ++--
dev/examples.el | 10 +++++-----
3 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/README.md b/README.md
index 5c47209..baea7d8 100644
--- a/README.md
+++ b/README.md
@@ -1480,8 +1480,8 @@ See also [`-split-when`](#-split-when-fn-list)
```el
(-split-on '| '(Nil | Leaf a | Node [Tree a])) ;; => ((Nil) (Leaf a) (Node
[Tree a]))
-(-split-on ':endgroup '("a" "b" :endgroup "c" :endgroup "d" "e")) ;; => (("a"
"b") ("c") ("d" "e"))
-(-split-on ':endgroup '("a" "b" :endgroup :endgroup "d" "e")) ;; => (("a" "b")
("d" "e"))
+(-split-on :endgroup '("a" "b" :endgroup "c" :endgroup "d" "e")) ;; => (("a"
"b") ("c") ("d" "e"))
+(-split-on :endgroup '("a" "b" :endgroup :endgroup "d" "e")) ;; => (("a" "b")
("d" "e"))
```
#### -split-when `(fn list)`
diff --git a/dash.texi b/dash.texi
index 1c5022b..e2d0d8c 100644
--- a/dash.texi
+++ b/dash.texi
@@ -2070,11 +2070,11 @@ See also @code{-split-when} (@pxref{-split-when})
@result{} ((Nil) (Leaf a) (Node [Tree a]))
@end group
@group
-(-split-on ':endgroup '("a" "b" :endgroup "c" :endgroup "d" "e"))
+(-split-on :endgroup '("a" "b" :endgroup "c" :endgroup "d" "e"))
@result{} (("a" "b") ("c") ("d" "e"))
@end group
@group
-(-split-on ':endgroup '("a" "b" :endgroup :endgroup "d" "e"))
+(-split-on :endgroup '("a" "b" :endgroup :endgroup "d" "e"))
@result{} (("a" "b") ("d" "e"))
@end group
@end example
diff --git a/dev/examples.el b/dev/examples.el
index 2fb511f..95cdf98 100644
--- a/dev/examples.el
+++ b/dev/examples.el
@@ -806,11 +806,11 @@ value rather than consuming a list to produce a single
value."
(defexamples -split-on
(-split-on '| '(Nil | Leaf a | Node [Tree a])) => '((Nil) (Leaf a) (Node
[Tree a]))
- (-split-on ':endgroup '("a" "b" :endgroup "c" :endgroup "d" "e")) =>
'(("a" "b") ("c") ("d" "e"))
- (-split-on ':endgroup '("a" "b" :endgroup :endgroup "d" "e")) => '(("a"
"b") ("d" "e"))
- (-split-on ':endgroup '("a" "b" :endgroup "c" :endgroup)) => '(("a" "b")
("c"))
- (-split-on ':endgroup '("a" "b" :endgroup :endgroup :endgroup "d" "e")) =>
'(("a" "b") ("d" "e"))
- (-split-on ':endgroup '(:endgroup "c" :endgroup "d" "e")) => '(("c") ("d"
"e"))
+ (-split-on :endgroup '("a" "b" :endgroup "c" :endgroup "d" "e")) => '(("a"
"b") ("c") ("d" "e"))
+ (-split-on :endgroup '("a" "b" :endgroup :endgroup "d" "e")) => '(("a"
"b") ("d" "e"))
+ (-split-on :endgroup '("a" "b" :endgroup "c" :endgroup)) => '(("a" "b")
("c"))
+ (-split-on :endgroup '("a" "b" :endgroup :endgroup :endgroup "d" "e")) =>
'(("a" "b") ("d" "e"))
+ (-split-on :endgroup '(:endgroup "c" :endgroup "d" "e")) => '(("c") ("d"
"e"))
(-split-on '| '(Nil | | Node [Tree a])) => '((Nil) (Node [Tree a])))
(defexamples -split-when