Mercurial > emacs

changeset 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 9e60d5c117db
children ac18f34e3e33
files src/doc.c
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
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,