diff options
| author | Richard M. Stallman | 2004-10-26 08:36:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-10-26 08:36:11 +0000 |
| commit | ce5568bf190cad55e7987c0bebb8c5731b2fb9e7 (patch) | |
| tree | e59a46ad44a306a2af0607f4bb33ab0fe9a81293 | |
| parent | 060a33bb97e9d7a0896ce6941eb3f63987ebf2a4 (diff) | |
| download | emacs-ce5568bf190cad55e7987c0bebb8c5731b2fb9e7.tar.gz emacs-ce5568bf190cad55e7987c0bebb8c5731b2fb9e7.zip | |
(woman): Don't call interactive-p.
| -rw-r--r-- | lisp/woman.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 1132 | should be a topic string and non-nil RE-CACHE forces re-caching." | 1132 | should be a topic string and non-nil RE-CACHE forces re-caching." |
| 1133 | (interactive (list nil current-prefix-arg)) | 1133 | (interactive (list nil current-prefix-arg)) |
| 1134 | ;; The following test is for non-interactive calls via gnudoit etc. | 1134 | ;; The following test is for non-interactive calls via gnudoit etc. |
| 1135 | (if (or (interactive-p) (not (stringp topic)) (string-match "\\S " topic)) | 1135 | (if (or (not (stringp topic)) (string-match "\\S " topic)) |
| 1136 | (let ((file-name (woman-file-name topic re-cache))) | 1136 | (let ((file-name (woman-file-name topic re-cache))) |
| 1137 | (if file-name | 1137 | (if file-name |
| 1138 | (woman-find-file file-name) | 1138 | (woman-find-file file-name) |