Mercurial > emacs

diff src/doc.c @ 312:adba7439e87c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Wed, 03 Jul 1991 02:10:22 +0000
parents 785f88514b16
children ffdbf3445088
line wrap: on
line diff
--- 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,