# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1098779771 0
# Node ID c61ee1c7b2e89105fc1e624dd6ddf8a10831bbd8
# Parent  28c08e3b553013ebf6941de429cb3b5e810a149d
(woman): Don't call interactive-p.

diff -r 28c08e3b5530 -r c61ee1c7b2e8 lisp/woman.el
--- a/lisp/woman.el	Tue Oct 26 08:33:14 2004 +0000
+++ b/lisp/woman.el	Tue Oct 26 08:36:11 2004 +0000
@@ -1132,7 +1132,7 @@
 should be a topic string and non-nil RE-CACHE forces re-caching."
   (interactive (list nil current-prefix-arg))
   ;; The following test is for non-interactive calls via gnudoit etc.
-  (if (or (interactive-p) (not (stringp topic)) (string-match "\\S " topic))
+  (if (or (not (stringp topic)) (string-match "\\S " topic))
       (let ((file-name (woman-file-name topic re-cache)))
 	(if file-name
 	    (woman-find-file file-name)