Fix infloop in woman-file-name

* lisp/woman.el (woman-file-name): Fix infloop for non-existent
manual page (bug#414).

diff --git a/lisp/woman.el b/lisp/woman.el
index d9aa573d27bc1e7a4ef0dec47c92e3439c824f79..0bc992d8f7fc7bda8dbb028e83e0d3fd30cf3229 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1274,9 +1274,11 @@ cache to be re-read."
        ;; Complete topic more carefully, i.e. use the completion
        ;; rather than the string entered by the user:
        ((setq files (all-completions topic woman-topic-all-completions))
-       (while (/= (length topic) (length (car files)))
+       (while (and files
+                    (/= (length topic) (length (car files))))
          (setq files (cdr files)))
-       (setq files (woman-file-name-all-completions (car files)))))
+        (when files
+         (setq files (woman-file-name-all-completions (car files))))))
       (cond
        ((null files) nil)              ; no file found for topic.
        ((null (cdr files)) (car (car files))) ; only 1 file for topic.