mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

* lisp/vc-bzr.el (vc-bzr-revision-completion-table): Apply

Browse Source 
`file-directory-p' to the filename part rather than to the whole text.
This commit is contained in:
Stefan Monnier 2010-05-31 22:06:09 -04:00
parent a44ae268f8
commit feceda2610
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

8
lisp/vc-bzr.el
View File

@ -945,10 +945,12 @@ stream. Standard error output is discarded."
((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))