(describe-variable): Don't use symbol-name if v isn't symbol.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/help.el b/lisp/help.el
index a7d0155c89c..2ab2c9cb0a1 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -633,7 +633,8 @@ Returns the documentation as a string, also."
      (setq val (completing-read (if (symbolp v)
                                     (format "Describe variable (default %s): " v)
                                   "Describe variable: ")
-                                obarray 'boundp t nil nil (symbol-name v)))
+                                obarray 'boundp t nil nil
+                                (if (symbolp v) (symbol-name v))))
      (list (if (equal val "")
                v (intern val)))))
   (if (symbolp variable)