Symbols needs to be quoted when reading in new values

E.g. try setting text-quoting-style

2 files changed, 6 insertions, 1 deletions

diff --git a/CHANGELOG.md b/CHANGELOG.md
index cbd1224..5d0c04e 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,6 +4,9 @@ Helpful now correctly handles \= escapes in docstrings.
 
 Added disassemble buttons to byte-code functions in symbol properties.
 
+Fixed an issue with the prompt when setting variables to symbol
+values.
+
 # v0.5
 
 Allow function tracing to be enabled/disabled from Helpful buffers.
diff --git a/helpful.el b/helpful.el
index 5426031..2eef9d9 100644
--- a/helpful.el
+++ b/helpful.el
@@ -443,7 +443,9 @@ or disable if already enabled."
             (read-from-minibuffer
              "Eval: "
              (format
-              (if (consp sym-value) "(setq %s '%S)" "(setq %s %S)")
+              (if (or (symbolp sym-value) (consp sym-value))
+                  "(setq %s '%S)"
+                "(setq %s %S)")
               sym sym-value)
              read-expression-map t
              'read-expression-history))))