Sync with Tramp 2.1.19.

[gnu-emacs] / lisp / man.el

diff --git a/lisp/man.el b/lisp/man.el
index 8eb5f73e2450c9d7d960fee8469f47b807f18e85..658c1ebbcef6955c8a906e69ee9397154bec0f45 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -754,6 +754,9 @@ POS defaults to `point'."
   (cond
    ((eq action 'lambda)
     (not (string-match "([^)]*\\'" string)))
+   ((equal string "-k")
+    ;; Let SPC (minibuffer-complete-word) insert the space.
+    (complete-with-action action '("-k ") string pred))
    (t
     (let ((table (cdr Man-completion-cache))
           (section nil)