From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Tue, 7 Jan 2003 19:17:46 +0000 (+0000)
Subject: (describe-variable): Use custom-variable-p.
X-Git-Tag: ttn-vms-21-2-B4~11783
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=13eb72d26e421da3eb699eda7a4215177854ff31;p=emacs.git

(describe-variable): Use custom-variable-p.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 46a72b32ba2..2b61cd88d47 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -464,12 +464,7 @@ it is displayed along with the global value."
                 (terpri))
               (princ (or doc "Not documented as a variable.")))
 	    ;; Make a link to customize if this variable can be customized.
-	    ;; Note, it is not reliable to test only for a custom-type property
-	    ;; because those are only present after the var's definition
-	    ;; has been loaded.
-	    (if (or (get variable 'custom-type) ; after defcustom
-		    (get variable 'custom-loads) ; from loaddefs.el
-		    (get variable 'standard-value)) ; from cus-start.el
+	    (if (custom-variable-p variable)
 		(let ((customize-label "customize"))
 		  (terpri)
 		  (terpri)