# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 865144716 0
# Node ID 3da4eaba1fe892de6ef015db4a84c960b7f020c7
# Parent  6f264bb70b49d59ec00ebe49b205c4d7bf9072b6
(custom-variable-prompt): Handle variable-at-point returning 0.

diff -r 6f264bb70b49 -r 3da4eaba1fe8 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Sun Jun 01 01:03:51 1997 +0000
+++ b/lisp/cus-edit.el	Sun Jun 01 05:58:36 1997 +0000
@@ -362,7 +362,7 @@
 	 (enable-recursive-minibuffers t)
 	 val)
      (setq val (completing-read 
-		(if v
+		(if (symbolp v)
 		    (format "Customize variable: (default %s) " v)
 		  "Customize variable: ")
 		obarray (lambda (symbol)
@@ -370,7 +370,8 @@
 			       (or (get symbol 'custom-type)
 				   (user-variable-p symbol))))))
      (list (if (equal val "")
-	       v (intern val)))))
+	       (if (symbolp v) v nil)
+	     (intern val)))))
 
 (defun custom-menu-filter (menu widget)
   "Convert MENU to the form used by `widget-choose'.