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 | 992d176e388ea77eb3792fcc35adc8b6e96c6c32 (patch) | |
| tree | 0d8907fdee48e2ca6dea5dff46fa0efd3b3e8467 /src/doc.c | |
| parent | abc367df62dfbd793ea6847f3c6e3de49193ee98 (diff) | |
| download | emacs-992d176e388ea77eb3792fcc35adc8b6e96c6c32.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, |