# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 716386840 0
# Node ID 6d0d442e2adaa144931153b8f273376dc16b677d
# Parent  eb7f1ab33a9dcca5b61dbca4b9a0b00cb956cffa
	* doc.c (Fsnarf_documentation): Signal an error if this is
	called in a dumped Emacs.

diff -r eb7f1ab33a9d -r 6d0d442e2ada src/doc.c
--- a/src/doc.c	Sun Sep 13 12:19:42 1992 +0000
+++ b/src/doc.c	Sun Sep 13 12:20:40 1992 +0000
@@ -215,6 +215,11 @@
   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