[Emacs-diffs] Changes to emacs/lisp/vc.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/06/28 07:30:50

Index: vc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc.el,v
retrieving revision 1.696
retrieving revision 1.697
diff -u -b -r1.696 -r1.697
--- vc.el       26 Jun 2008 05:16:49 -0000      1.696
+++ vc.el       28 Jun 2008 07:30:46 -0000      1.697
@@ -643,9 +643,6 @@
 ;;
 ;; - vc-dir toolbar needs more icons.
 ;;
-;; - vc-dir-hide-up-to-date needs to hide directories that do not have
-;;   any children anymore.
-;;
 ;;; Code:
 
 (require 'vc-hooks)
@@ -2476,6 +2473,11 @@
 
 ;; These things should probably be generally available
 
+(defun vc-string-prefix-p (prefix string)
+  (let ((lpref (length prefix)))
+    (and (>= (length string) lpref)
+        (eq t (compare-strings prefix nil nil string nil lpref)))))
+
 (defun vc-file-tree-walk (dirname func &rest args)
   "Walk recursively through DIRNAME.
 Invoke FUNC f ARGS on each VC-managed file f underneath it."