diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-12-01 14:38:24 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-12-01 14:38:24 -0500 |
| commit | 9505c3c799e4158b0714da3739ef9244e63d9e92 (patch) | |
| tree | 72789505e3ec4df2f0a77f068c4f95d1d9d3712a /lisp/man.el | |
| parent | 3360a3fcb0c01428a42f1fb8a0b7459e0e6cac72 (diff) | |
| download | emacs-9505c3c799e4158b0714da3739ef9244e63d9e92.tar.gz | |
* lisp/man.el (Man-completion-table): Fix the lambda case.
Fixes: debbugs:10168
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/man.el b/lisp/man.el index 0d991a76f52..c9ba64bf5e0 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -754,8 +754,10 @@ POS defaults to `point'." (defun Man-completion-table (string pred action) (cond - ((eq action 'lambda) - (not (string-match "([^)]*\\'" string))) + ;; This ends up returning t for pretty much any string, and hence leads to + ;; spurious "complete but not unique" messages. And since `man' doesn't + ;; require-match anyway, there's not point being clever. + ;;((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)) |