[elpa] externals/dash b337ef9 052/426: Sync examples-to-docs.el with the one in s.el

[Phillip Lord]

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

    Sync examples-to-docs.el with the one in s.el
---
 examples-to-docs.el |   16 +++++++++++-----
 1 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/examples-to-docs.el b/examples-to-docs.el
index 40063a5..20fcda6 100644
--- a/examples-to-docs.el
+++ b/examples-to-docs.el
@@ -1,11 +1,17 @@
-(require 'bang)
-
 (defvar functions '())
 
 (defun example-to-string (example)
   (let ((actual (car example))
         (expected (cadr (cdr example))))
-    (replace-regexp-in-string "\\\\\\?" "?" (format "%S ;; => %S" actual 
expected))))
+    (replace-regexp-in-string
+     "\r" "\\r"
+     (replace-regexp-in-string
+      "\t" "\\t"
+      (replace-regexp-in-string
+       "\n" "\\n"
+       (replace-regexp-in-string
+        "\\\\\\?" "?"
+        (format "%S ;; => %S" actual expected)) t t) t t) t t)))
 
 (defun examples-to-strings (examples)
   (let (result)
@@ -47,13 +53,13 @@
    (let ((case-fold-search nil))
      (downcase
       (replace-regexp-in-string "\\([a-z]\\)\\([A-Z]\\)" "\\1 \\2" s)))
-   "[^A-Za-z0-9]+"))
+   "[^A-Za-z0-9]+" t))
 
 (defun dashed-words (s)
   "Convert string S to snake-case string."
   (mapconcat 'identity (mapcar
                         '(lambda (word) (downcase word))
-                        (!!remove (equal it "") (split-name s))) "-"))
+                        (split-name s)) "-"))
 
 (defun github-id (command-name signature)
   (dashed-words (format "%s %s" command-name signature)))