From 8123f8cf9f38610d32b799cb1dd8893b56fc8a47 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 26 Jun 2019 16:41:07 +0200 Subject: [PATCH] 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. --- src/doc.c | 8 +++++--- 1 file 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)) -- 2.39.5