diff options
author | Richard M. Stallman <rms@gnu.org> | 1991-07-03 02:10:22 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1991-07-03 02:10:22 +0000 |
commit | 8fac434b42cdbbd0caa8def85e160237fb470d18 (patch) | |
tree | 3d1a4faae4851c44016c3ca23a123d0ad7f1324a /src/doc.c | |
parent | 34ac0c6c9d3ab76b318e4d2fdb6deab858ba5c13 (diff) | |
download | emacs-8fac434b42cdbbd0caa8def85e160237fb470d18.tar.gz |
*** empty log message ***
Diffstat (limited to 'src/doc.c')
-rw-r--r-- | src/doc.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/doc.c b/src/doc.c index 952268ccdbb..1e6b6bd9f14 100644 --- a/src/doc.c +++ b/src/doc.c @@ -184,7 +184,9 @@ stored in the `etc/DOC' file.") 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, |