[Emacs-diffs] emacs/lisp ChangeLog vc.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/10/21 19:03:36

Modified files:
        lisp           : ChangeLog vc.el 

Log message:
        (vc-deduce-fileset): Undo previous change, do not tell
        vc-responsible-backend to register, it causes problems.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16467&r2=1.16468
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc.el?cvsroot=emacs&r1=1.735&r2=1.736

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16467
retrieving revision 1.16468
diff -u -b -r1.16467 -r1.16468
--- ChangeLog   21 Oct 2009 18:54:55 -0000      1.16467
+++ ChangeLog   21 Oct 2009 19:03:32 -0000      1.16468
@@ -1,3 +1,8 @@
+2009-10-21  Dan Nicolaescu  <address@hidden>
+
+       * vc.el (vc-deduce-fileset): Undo previous change, do not tell
+       vc-responsible-backend to register, it causes problems.
+
 2009-10-21  Stefan Monnier  <address@hidden>
 
        * help-fns.el: Don't require help-mode (to avoid bootstrap issues).

Index: vc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc.el,v
retrieving revision 1.735
retrieving revision 1.736
diff -u -b -r1.735 -r1.736
--- vc.el       19 Oct 2009 05:04:28 -0000      1.735
+++ vc.el       21 Oct 2009 19:03:36 -0000      1.736
@@ -933,13 +933,13 @@
      ((and allow-unregistered (not (vc-registered buffer-file-name)))
       (if state-model-only-files
          (list (vc-responsible-backend
-                (file-name-directory (buffer-file-name)) t)
+                (file-name-directory (buffer-file-name)))
                (list buffer-file-name)
                (list buffer-file-name)
                (when state-model-only-files 'unregistered)
                nil)
        (list (vc-responsible-backend
-              (file-name-directory (buffer-file-name)) t)
+              (file-name-directory (buffer-file-name)))
              (list buffer-file-name))))
      (t (error "No fileset is available here")))))