diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/pcmpl-gnu.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el index 84e42aefbf9..e4e8f3a2c53 100644 --- a/lisp/pcmpl-gnu.el +++ b/lisp/pcmpl-gnu.el | |||
| @@ -329,8 +329,9 @@ | |||
| 329 | nil 'identity)))) | 329 | nil 'identity)))) |
| 330 | 330 | ||
| 331 | ;;;###autoload | 331 | ;;;###autoload |
| 332 | |||
| 332 | (defun pcomplete/find () | 333 | (defun pcomplete/find () |
| 333 | "Completion for GNU find utility." | 334 | "Completion for the GNU find utility." |
| 334 | (let ((prec (pcomplete-arg 'last -1))) | 335 | (let ((prec (pcomplete-arg 'last -1))) |
| 335 | (cond ((and (pcomplete-match "^-" 'last) | 336 | (cond ((and (pcomplete-match "^-" 'last) |
| 336 | (string= "find" prec)) | 337 | (string= "find" prec)) |
| @@ -361,7 +362,7 @@ | |||
| 361 | (string= prec "-execdir")) | 362 | (string= prec "-execdir")) |
| 362 | (while (pcomplete-here* (funcall pcomplete-command-completion-function) | 363 | (while (pcomplete-here* (funcall pcomplete-command-completion-function) |
| 363 | (pcomplete-arg 'last) t)))) | 364 | (pcomplete-arg 'last) t)))) |
| 364 | (while (pcomplete-here (pcomplete-entries) nil 'identity)))) | 365 | (while (pcomplete-here (pcomplete-dirs) nil 'identity)))) |
| 365 | 366 | ||
| 366 | ;;;###autoload | 367 | ;;;###autoload |
| 367 | (defalias 'pcomplete/gdb 'pcomplete/xargs) | 368 | (defalias 'pcomplete/gdb 'pcomplete/xargs) |