Mercurial > emacs
comparison lisp/help.el @ 24597:a40067a8696b
(describe-variable): Check custom-loads property as well as custom-type.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 08 Apr 1999 16:46:15 +0000 |
| parents | 7c0185b54f2d |
| children | 27387f2d010c |
comparison
equal
deleted
inserted
replaced
| 24596:5f4d21e85cf6 | 24597:a40067a8696b |
|---|---|
| 764 | 764 |
| 765 ;; Make a link to customize if this variable can be customized. | 765 ;; Make a link to customize if this variable can be customized. |
| 766 ;; Note, it is not reliable to test only for a custom-type property | 766 ;; Note, it is not reliable to test only for a custom-type property |
| 767 ;; because those are only present after the var's definition | 767 ;; because those are only present after the var's definition |
| 768 ;; has been loaded. | 768 ;; has been loaded. |
| 769 (if (or (user-variable-p variable) (get variable 'custom-type)) | 769 (if (or (user-variable-p variable) |
| 770 (get variable 'custom-loads) | |
| 771 (get variable 'custom-type)) | |
| 770 (let ((customize-label "customize")) | 772 (let ((customize-label "customize")) |
| 771 (terpri) | 773 (terpri) |
| 772 (terpri) | 774 (terpri) |
| 773 (princ (concat "You can " customize-label " this variable.")) | 775 (princ (concat "You can " customize-label " this variable.")) |
| 774 (with-current-buffer "*Help*" | 776 (with-current-buffer "*Help*" |