Fix 'info-finder' with prefix argument

diff --git a/lisp/info.el b/lisp/info.el
index 93c63e1bf2bc1bdcc2806ffa51fc564fa90bf2cd..10ec4528a7fd6c9b635acdbd1b90f2dea0b94a4b 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3962,7 +3962,7 @@ Display a menu of the possible matches."
     ;; But package.el makes the same assumption.
     ;; I think nxml is the only exception - maybe it should be just be renamed.
     (insert (or (ignore-errors (lm-commentary (find-library-name nodename)))
-                (insert "Can’t find package description.\n\n"))))))
+                "Can’t find package description.\n\n")))))
 
 ;;;###autoload
 (defun info-finder (&optional keywords)
@@ -3981,7 +3981,7 @@ with a list of packages that contain all specified keywords."
        nil t))))
   (require 'finder)
   (if keywords
-      (Info-find-node Info-finder-file (mapconcat 'identity keywords ", "))
+      (Info-find-node Info-finder-file (concat "Keyword " (mapconcat 'identity keywords ", ")))
     (Info-find-node Info-finder-file "Top")))
 
 \f