changeset 49102:8f2b5f65ebd1

(describe-variable): Use custom-variable-p.
author Markus Rost <rost@math.uni-bielefeld.de>
date Tue, 07 Jan 2003 19:17:46 +0000
parents 785e3ea04e42
children 7c84e7bb3879
files lisp/help-fns.el
diffstat 1 files changed, 1 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help-fns.el	Tue Jan 07 19:12:43 2003 +0000
+++ b/lisp/help-fns.el	Tue Jan 07 19:17:46 2003 +0000
@@ -464,12 +464,7 @@
                 (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)