X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fcus-edit.el;h=b27db594d252b9efbac4ddfba2397dd0124b2730;hb=2d35dcdea158eb8420989e3b019ffab5e6e42a92;hp=b6317b320394c86c7fbdb7f779b3dcdfb3660238;hpb=98a6e4055a1fa624c592ac06f79287d55196ca37;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index b6317b3..b27db59 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -304,7 +304,8 @@ Return a list suitable for use in `interactive'."
 		obarray (lambda (symbol)
 			  (and (boundp symbol)
 			       (or (get symbol 'custom-type)
-				   (user-variable-p symbol)))) t))
+				   (user-variable-p symbol)))) 
+                t nil nil (and v (symbol-name v))))
      (list (if (equal val "")
 	       (if (symbolp v) v nil)
 	     (intern val)))))