[elpa] externals/dash 85016d3 029/439: Fix quoted forms like `' in docs.

[Phillip Lord]

branch: externals/dash
commit 85016d32fb709f97c38c7dddc7210791ff7b786d
Author: Magnar Sveen <address@hidden>
Commit: Magnar Sveen <address@hidden>

    Fix quoted forms like `' in docs.
---
 docs.md             |   18 ++++++++++--------
 examples-to-docs.el |    5 ++++-
 2 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/docs.md b/docs.md
index 63c85d0..988f419 100644
--- a/docs.md
+++ b/docs.md
@@ -57,6 +57,8 @@ Returns a new list of the items in LIST for which FN returns 
nil.
 (!remove (lambda (num) (= 0 (% num 2))) (quote (1 2 3 4))) ;; => (quote (1 3))
 (!remove (quote even?) (quote (1 2 3 4))) ;; => (quote (1 3))
 (!!remove (= 0 (% it 2)) (quote (1 2 3 4))) ;; => (quote (1 3))
+(let ((mod 2)) (!remove (lambda (num) (= 0 (% num mod))) (quote (1 2 3 4)))) 
;; => (quote (1 3))
+(let ((mod 2)) (!!remove (= 0 (% it mod)) (quote (1 2 3 4)))) ;; => (quote (1 
3))
 ```
 
 ## !concat `(&rest lists)`
@@ -97,8 +99,8 @@ additional args.
 ## !difference `(list 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.
+The test for equality is done with `equal`,
+or with `!compare-fn` if that's non-nil.
 
 ```cl
 (!difference (quote nil) (quote nil)) ;; => (quote nil)
@@ -109,8 +111,8 @@ 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.
-The test for equality is done with `equal',
-or with `!compare-fn' if that's non-nil.
+The test for equality is done with `equal`,
+or with `!compare-fn` if that's non-nil.
 
 ```cl
 (!intersection (quote nil) (quote nil)) ;; => (quote nil)
@@ -121,8 +123,8 @@ or with `!compare-fn' if that's non-nil.
 ## !uniq `(list)`
 
 Return a new list with all duplicates removed.
-The test for equality is done with `equal',
-or with `!compare-fn' if that's non-nil.
+The test for equality is done with `equal`,
+or with `!compare-fn` if that's non-nil.
 
 ```cl
 (!uniq (quote nil)) ;; => (quote nil)
@@ -132,8 +134,8 @@ or with `!compare-fn' if that's non-nil.
 ## !contains? `(list element)`
 
 Return whether LIST contains ELEMENT.
-The test for equality is done with `equal',
-or with `!compare-fn' if that's non-nil.
+The test for equality is done with `equal`,
+or with `!compare-fn` if that's non-nil.
 
 ```cl
 (!contains? (quote (1 2 3)) 1) ;; => t
diff --git a/examples-to-docs.el b/examples-to-docs.el
index 4aa2b65..c9fbe96 100644
--- a/examples-to-docs.el
+++ b/examples-to-docs.el
@@ -19,10 +19,13 @@
     (car (cddr (symbol-function ',cmd))) ;; docstring
     (examples-to-strings ',examples)))) ;; examples
 
+(defun quote-docstring (docstring)
+  (replace-regexp-in-string "`\\([^ ]+\\)'" "`\\1`" docstring))
+
 (defun function-to-md (function)
   (let ((command-name (car function))
         (signature (cadr function))
-        (docstring (cadr (cdr function)))
+        (docstring (quote-docstring (cadr (cdr function))))
         (examples (mapconcat 'identity (cadr (cddr function)) "\n")))
     (format "## %s `%s`\n\n%s\n\n```cl\n%s\n```\n" command-name signature 
docstring examples)))