From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 26 Oct 2004 08:36:11 +0000 (+0000)
Subject: (woman): Don't call interactive-p.
X-Git-Tag: ttn-vms-21-2-B4~4399
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ce5568bf190cad55e7987c0bebb8c5731b2fb9e7;p=emacs.git

(woman): Don't call interactive-p.
---

diff --git a/lisp/woman.el b/lisp/woman.el
index cea1c61bcc4..610590a2972 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1132,7 +1132,7 @@ Used non-interactively, arguments are optional: if given then TOPIC
 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)