# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 678507022 0
# Node ID adba7439e87c23cbae54ccdcdd677d5222f4d5d6
# Parent  9e60d5c117dbde8d5e64092f5806ff2193cf810c
*** empty log message ***

diff -r 9e60d5c117db -r adba7439e87c src/doc.c
--- a/src/doc.c	Wed Jul 03 00:08:25 1991 +0000
+++ b/src/doc.c	Wed Jul 03 02:10:22 1991 +0000
@@ -184,7 +184,9 @@
   tem = Fget (sym, prop);
   if (XTYPE (tem) == Lisp_Int)
     tem = get_doc_string (XINT (tem) > 0 ? XINT (tem) : - XINT (tem));
-  return Fsubstitute_command_keys (tem);
+  if (XTYPE (tem) == Lisp_String)
+    return Fsubstitute_command_keys (tem);
+  return tem;
 }
 
 DEFUN ("Snarf-documentation", Fsnarf_documentation, Ssnarf_documentation,