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