[elpa] externals/dash b0bef0f 276/316: Don't set text-quoting-style globally

[ELPA Syncer]

branch: externals/dash
commit b0bef0f4070ab2101fd8522e84bbc79a83e62ade
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    Don't set text-quoting-style globally
    
    * dev/examples-to-docs.el (dash--describe):
    * dev/examples-to-info.el (dash--describe): Bind text-quoting-style
    here instead of setting it globally.
---
 dev/examples-to-docs.el | 6 ++----
 dev/examples-to-info.el | 7 +++----
 2 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/dev/examples-to-docs.el b/dev/examples-to-docs.el
index c8e93fa..1a02e1a 100644
--- a/dev/examples-to-docs.el
+++ b/dev/examples-to-docs.el
@@ -22,13 +22,10 @@
 ;;; Code:
 
 (require 'dash)
-(require 'dash-functional)
 
 (require 'help-fns)
 (require 'lisp-mnt)
 
-(setq text-quoting-style 'grave)
-
 (defvar functions ())
 
 (defun example-to-string (example)
@@ -49,7 +46,8 @@
   "Return the (ARGLIST DOCSTRING) of FN symbol.
 Based on `describe-function-1'."
   (with-temp-buffer
-    (pcase-let* ((`(,real-fn ,def ,_alias ,real-def)
+    (pcase-let* ((text-quoting-style 'grave)
+                 (`(,real-fn ,def ,_alias ,real-def)
                   (help-fns--analyze-function fn))
                  (buf (current-buffer))
                  (doc-raw (documentation fn t))
diff --git a/dev/examples-to-info.el b/dev/examples-to-info.el
index 85d7c46..127c900 100644
--- a/dev/examples-to-info.el
+++ b/dev/examples-to-info.el
@@ -22,12 +22,10 @@
 ;;; Code:
 
 (require 'dash)
-(require 'dash-functional)
+
 (require 'help-fns)
 (require 'lisp-mnt)
 
-(setq text-quoting-style 'grave)
-
 (defvar functions ())
 
 (defun example-to-string (example)
@@ -54,7 +52,8 @@
   "Return the (ARGLIST DOCSTRING) of FN symbol.
 Based on `describe-function-1'."
   (with-temp-buffer
-    (pcase-let* ((`(,real-fn ,def ,_alias ,real-def)
+    (pcase-let* ((text-quoting-style 'grave)
+                 (`(,real-fn ,def ,_alias ,real-def)
                   (help-fns--analyze-function fn))
                  (buf (current-buffer))
                  (doc-raw (documentation fn t))