(Fdocumentation_property): Gcpro `tem'.

54f696ea · Dave Love · 39c76d3e · 54f696ea
Commit 54f696ea authored Oct 18, 1999 by Dave Love
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletion

src/doc.c src/doc.c +7 -1

No files found.
--- a/src/doc.c
+++ b/src/doc.c
@@ -400,7 +400,13 @@ translation.")
  else if (CONSP (tem))
    tem = get_doc_string (tem, 0, 0);
  if (NILP (raw) && STRINGP (tem))
-    return Fsubstitute_command_keys (tem);
+    {
+      struct gcpro gcpro1;
+
+      GCPRO1 (tem);
+      return Fsubstitute_command_keys (tem);
+      UNGCPRO;
+    }
  return tem;
 }