diff options
| -rw-r--r-- | src/doc.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/doc.c b/src/doc.c index 6dceb587fcb..fbe4f834a32 100644 --- a/src/doc.c +++ b/src/doc.c @@ -215,6 +215,11 @@ when doc strings are referred to later in the dumped Emacs.") char *name; extern char *index (); +#ifndef CANNOT_DUMP + if (NILP (Vpurify_flag)) + error ("Snarf-documentation can only be called in an undumped Emacs"); +#endif + CHECK_STRING (filename, 0); #ifndef CANNOT_DUMP |