summaryrefslogtreecommitdiff
path: root/lisp/man.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2010-05-31 12:16:02 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2010-05-31 12:16:02 -0400
commit896114cf6401b58e1aaa66736d726779d087f166 (patch)
tree905290ffe66cfe82d4ddec84503229c0d71ec4b3 /lisp/man.el
parent949544ed2686f00430b4ffe75d7b64832dbaa4f9 (diff)
downloademacs-896114cf6401b58e1aaa66736d726779d087f166.tar.gz
* lisp/man.el (Man-completion-table): Let the user type "-k ".
Fixes: debbugs:6319
Diffstat (limited to 'lisp/man.el')
-rw-r--r--lisp/man.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/man.el b/lisp/man.el
index 8eb5f73e245..658c1ebbcef 100644
--- 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)