# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 880063142 0
# Node ID 456ed25a8605453ec16d7cd27c376ba0da334c8c
# Parent  d9e4922a5ace4001ecc96e944796f52b54abbbc5
(describe-variable): Don't use symbol-name if v isn't symbol.

diff -r d9e4922a5ace -r 456ed25a8605 lisp/help.el
--- a/lisp/help.el	Thu Nov 20 21:56:52 1997 +0000
+++ b/lisp/help.el	Thu Nov 20 21:59:02 1997 +0000
@@ -633,7 +633,8 @@
      (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)