diff options
| author | Dave Love | 1999-07-20 16:38:23 +0000 |
|---|---|---|
| committer | Dave Love | 1999-07-20 16:38:23 +0000 |
| commit | 967570352107d75e1683c83717e12807fc6a2cf2 (patch) | |
| tree | 97201c7458ca6419e81502d2c0d4c401f4a7ee4b | |
| parent | 74399eac9299add1e868acc5733d7c34ef42f0e1 (diff) | |
| download | emacs-967570352107d75e1683c83717e12807fc6a2cf2.tar.gz emacs-967570352107d75e1683c83717e12807fc6a2cf2.zip | |
(describe-variable): Fix test for customizability.
| -rw-r--r-- | lisp/help.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/help.el b/lisp/help.el index b0ca05a7474..d2da9a55b5a 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -768,9 +768,9 @@ Returns the documentation as a string, also." | |||
| 768 | ;; Note, it is not reliable to test only for a custom-type property | 768 | ;; Note, it is not reliable to test only for a custom-type property |
| 769 | ;; because those are only present after the var's definition | 769 | ;; because those are only present after the var's definition |
| 770 | ;; has been loaded. | 770 | ;; has been loaded. |
| 771 | (if (or (user-variable-p variable) | 771 | (if (or (get variable 'custom-type) ; after defcustom |
| 772 | (get variable 'custom-loads) | 772 | (get variable 'custom-loads) ; from loaddefs.el |
| 773 | (get variable 'custom-type)) | 773 | (get variable 'standard-value)) ; from cus-start.el |
| 774 | (let ((customize-label "customize")) | 774 | (let ((customize-label "customize")) |
| 775 | (terpri) | 775 | (terpri) |
| 776 | (terpri) | 776 | (terpri) |