From b0bef0f4070ab2101fd8522e84bbc79a83e62ade Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Thu, 28 Jan 2021 21:58:19 +0000 Subject: [PATCH] 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))