diff options
| author | Stefan Monnier | 2012-06-27 17:16:32 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-06-27 17:16:32 -0400 |
| commit | 04901786943c00a9d2077d39ecbd2ac5c6f54b5f (patch) | |
| tree | 2cf103d5688aafe2f2eda9d90d6641d508867d5c /lisp/help-mode.el | |
| parent | 1ec4b7b25979ff9ea72a3ea35bf35d5882f467f7 (diff) | |
| download | emacs-04901786943c00a9d2077d39ecbd2ac5c6f54b5f.tar.gz emacs-04901786943c00a9d2077d39ecbd2ac5c6f54b5f.zip | |
* lisp/help-mode.el (help-make-xrefs): Don't just withstand
cyclic-variable-indirection but any error in documentation-property.
Diffstat (limited to 'lisp/help-mode.el')
| -rw-r--r-- | lisp/help-mode.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index 85c1e62e2c3..fa7d9b325db 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el | |||
| @@ -500,14 +500,14 @@ that." | |||
| 500 | ((and | 500 | ((and |
| 501 | (or (boundp sym) | 501 | (or (boundp sym) |
| 502 | (get sym 'variable-documentation)) | 502 | (get sym 'variable-documentation)) |
| 503 | (or | 503 | (condition-case err |
| 504 | (documentation-property | 504 | (or |
| 505 | sym 'variable-documentation) | 505 | (documentation-property |
| 506 | (condition-case nil | 506 | sym 'variable-documentation) |
| 507 | (documentation-property | 507 | (documentation-property |
| 508 | (indirect-variable sym) | 508 | (indirect-variable sym) |
| 509 | 'variable-documentation) | 509 | 'variable-documentation)) |
| 510 | (cyclic-variable-indirection nil)))) | 510 | (error (message "No doc found: %S" err) nil))) |
| 511 | (help-xref-button 8 'help-variable sym)) | 511 | (help-xref-button 8 'help-variable sym)) |
| 512 | ((fboundp sym) | 512 | ((fboundp sym) |
| 513 | (help-xref-button 8 'help-function sym))))))) | 513 | (help-xref-button 8 'help-function sym))))))) |