Mercurial > emacs
changeset 108681:1b1048318854
* lisp/vc-bzr.el (vc-bzr-revision-completion-table): Apply
`file-directory-p' to the filename part rather than to the whole text.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 31 May 2010 22:06:09 -0400 |
| parents | 2e9f223012e8 |
| children | bace4ba4c137 739b55c58952 |
| files | lisp/ChangeLog lisp/vc-bzr.el |
| diffstat | 2 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon May 31 16:47:04 2010 -0400 +++ b/lisp/ChangeLog Mon May 31 22:06:09 2010 -0400 @@ -1,3 +1,8 @@ +2010-06-01 Stefan Monnier <monnier@iro.umontreal.ca> + + * vc-bzr.el (vc-bzr-revision-completion-table): Apply + `file-directory-p' to the filename part rather than to the whole text. + 2010-05-31 Jonathan Marchand <jonathlela@gmail.com> (tiny change) * cedet/ede/cpp-root.el (ede-set-project-variables): Fix feature name
--- a/lisp/vc-bzr.el Mon May 31 16:47:04 2010 -0400 +++ b/lisp/vc-bzr.el Mon May 31 22:06:09 2010 -0400 @@ -945,10 +945,12 @@ ((string-match "\\`\\(ancestor\\|branch\\|\\(revno:\\)?[-0-9]+:\\):" string) (completion-table-with-context (substring string 0 (match-end 0)) - 'completion-file-name-table + (apply-partially + 'completion-table-with-predicate + 'completion-file-name-table + 'file-directory-p t) (substring string (match-end 0)) - ;; Dropping `pred' for no good reason. - 'file-directory-p + pred action)) ((string-match "\\`\\(before\\):" string) (completion-table-with-context (substring string 0 (match-end 0))