From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Sun, 6 Mar 2011 02:04:41 +0000 (-0600)
Subject: * cus-edit.el (custom-prompt-variable):  Use the `custom-get' property
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~674^2~12
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da0275f8e3bfcaa3e76bd681b3f7f67fd6f9c437;p=emacs.git

* cus-edit.el (custom-prompt-variable):  Use the `custom-get' property
  of the variable if it exists.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 283e07b7a19..e46ce544b3a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-06  Jay Belanger  <jay.p.belanger@gmail.com>
+
+	* cus-edit.el (custom-prompt-variable): Use the `custom-get' property
+	of the variable if it exists.
+
 2011-03-06  Juanma Barranquero  <lekktu@gmail.com>
 
 	* bookmark.el:
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 8d12511fcdf..88821652784 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -920,6 +920,8 @@ it were the arg to `interactive' (which see) to interactively read the value.
 
 If the variable has a `custom-type' property, it must be a widget and the
 `:prompt-value' property of that widget will be used for reading the value.
+If the variable also has a `custom-get' property, that is used for finding 
+the current value of the variable, otherwise `symbol-value' is used.
 
 If optional COMMENT argument is non-nil, also prompt for a comment and return
 it as the third element in the list."
@@ -941,7 +943,9 @@ it as the third element in the list."
 		   (widget-prompt-value type
 					prompt
 					(if (boundp var)
-					    (symbol-value var))
+                                            (funcall 
+                                             (or (get var 'custom-get) 'symbol-value) 
+                                             var))
 					(not (boundp var))))
 		  (t
 		   (eval-minibuffer prompt))))))