From 2bda628c55a5db8f3c9c64e6fdfd05e45daaf979 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Sun, 13 Sep 1992 12:20:40 +0000
Subject: [PATCH] * doc.c (Fsnarf_documentation): Signal an error if this is 
 called in a dumped Emacs.

---
 src/doc.c | 5 +++++
 1 file changed, 5 insertions(+)

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