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

@@ -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))

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))