changeset 24974:2668e8c9f19e

(describe-variable): Fix test for customizability.
author Dave Love <fx@gnu.org>
date Tue, 20 Jul 1999 16:38:23 +0000
parents 57d2a2f294cb
children e939a57634ba
files lisp/help.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help.el	Tue Jul 20 16:09:54 1999 +0000
+++ b/lisp/help.el	Tue Jul 20 16:38:23 1999 +0000
@@ -768,9 +768,9 @@
 	  ;; 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 (user-variable-p variable)
-		  (get variable 'custom-loads)
-		  (get variable 'custom-type))
+	  (if (or (get variable 'custom-type) ; after defcustom
+		  (get variable 'custom-loads) ; from loaddefs.el
+		  (get variable 'standard-value)) ; from cus-start.el
 	      (let ((customize-label "customize"))
 		(terpri)
 		(terpri)