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.

diff --git a/src/doc.c b/src/doc.c
index bc05d09df48d451933f049c6144cf8ad8f48a7c5..8875360d6e60a882cfb1101dfd6e9b582850b4c9 100644 (file)
--- 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))