diff options
| author | Thierry Volpiatto | 2016-02-26 16:01:46 +1030 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-26 16:01:46 +1030 |
| commit | eea55f4f4af311bbd4b197564d1cecbc949616bf (patch) | |
| tree | 054429c53caa11ce81be877344c448a037174bd4 | |
| parent | 4861b50e439443a1ba8a867c88faf28ae3737706 (diff) | |
| download | emacs-eea55f4f4af311bbd4b197564d1cecbc949616bf.tar.gz emacs-eea55f4f4af311bbd4b197564d1cecbc949616bf.zip | |
Update pcomplete/find
* lisp/pcmpl-gnu.el (pcomplete/find): Update to newest version
(bug#10487).
| -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) |