[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99828: * lisp/vc-bzr.el (vc-bzr-revision-completion-table): Apply

[Stefan Monnier]

------------------------------------------------------------
revno: 99828
committer: Stefan Monnier <address@hidden>
branch nick: emacs-23
timestamp: Mon 2010-05-31 22:06:09 -0400
message:
  * lisp/vc-bzr.el (vc-bzr-revision-completion-table): Apply
  `file-directory-p' to the filename part rather than to the whole text.
modified:
  lisp/ChangeLog
  lisp/vc-bzr.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-05-31 20:47:04 +0000
+++ b/lisp/ChangeLog    2010-06-01 02:06:09 +0000
@@ -1,3 +1,8 @@
+2010-06-01  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>  (tiny change)
 
        * cedet/ede/cpp-root.el (ede-set-project-variables): Fix feature name

=== modified file 'lisp/vc-bzr.el'
--- a/lisp/vc-bzr.el    2010-02-17 21:39:21 +0000
+++ b/lisp/vc-bzr.el    2010-06-01 02:06:09 +0000
@@ -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))