diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-26 16:41:07 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-26 16:41:14 +0200 |
| commit | 8123f8cf9f38610d32b799cb1dd8893b56fc8a47 (patch) | |
| tree | b44e7cac83bde6235d7528515470c81b2404536d /src | |
| parent | 01b5eb3e735ab33dd2d5f1bf279e44d699c92c4f (diff) | |
| download | emacs-8123f8cf9f38610d32b799cb1dd8893b56fc8a47.tar.gz | |
Restrict indirect lookups in Fdocumentation_property
* src/doc.c (Fdocumentation_property): Only look up indirect
variables if we've been asked for the variable documentation.
Diffstat (limited to 'src')
| -rw-r--r-- | src/doc.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/doc.c b/src/doc.c index bc05d09df48..8875360d6e6 100644 --- a/src/doc.c +++ b/src/doc.c @@ -437,9 +437,11 @@ aren't strings. */) tem = Fget (symbol, prop); - /* If we don't have any documentation for this symbol, try to see whether - it's an indirect variable and get the documentation from there instead. */ - if (NILP (tem)) + /* If we don't have any documentation for this symbol (and we're asking for + the variable documentation), try to see whether it's an indirect variable + and get the documentation from there instead. */ + if (EQ (prop, Qvariable_documentation) + && NILP (tem)) { Lisp_Object indirect = Findirect_variable (symbol); if (!NILP (indirect)) |