Mercurial > emacs
diff src/doc.c @ 312:adba7439e87c
*** 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,