[elpa] externals/dash 78fc2a3 038/439: Quote and downcase params with digits in them too.

[Phillip Lord]

branch: externals/dash
commit 78fc2a3a5e8f4dc3d6fa3ce3bbd98d2bf39ce3b2
Author: Magnar Sveen <address@hidden>
Commit: Magnar Sveen <address@hidden>

    Quote and downcase params with digits in them too.
---
 README.md           |    4 ++--
 examples-to-docs.el |    2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index b90fb85..ec26500 100644
--- a/README.md
+++ b/README.md
@@ -146,7 +146,7 @@ additional args.
 
 ### !difference `(list list2)`
 
-Return a new list with only the members of `list` that are not in LIST2.
+Return a new list with only the members of `list` that are not in `list2`.
 The test for equality is done with `equal`,
 or with `!compare-fn` if that's non-nil.
 
@@ -158,7 +158,7 @@ or with `!compare-fn` if that's non-nil.
 
 ### !intersection `(list list2)`
 
-Return a new list containing only the elements that are members of both `list` 
and LIST2.
+Return a new list containing only the elements that are members of both `list` 
and `list2`.
 The test for equality is done with `equal`,
 or with `!compare-fn` if that's non-nil.
 
diff --git a/examples-to-docs.el b/examples-to-docs.el
index 04bc329..a5685e3 100644
--- a/examples-to-docs.el
+++ b/examples-to-docs.el
@@ -24,7 +24,7 @@
 
 (defun quote-docstring (docstring)
   (let (case-fold-search)
-    (setq docstring (replace-regexp-in-string "\\b\\([A-Z][A-Z-]*\\)\\b" 
'quote-and-downcase docstring t))
+    (setq docstring (replace-regexp-in-string "\\b\\([A-Z][A-Z-]*[0-9]*\\)\\b" 
'quote-and-downcase docstring t))
     (setq docstring (replace-regexp-in-string "`\\([^ ]+\\)'" "`\\1`" 
docstring t)))
   docstring)