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

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/10/03 18:29:26

Modified files:
        lisp           : ChangeLog vc.el 

Log message:
        Remove commented out code.
        (vc-derived-from-dir-mode): Remove, unused.
        (vc-version-diff, vc-diff): Consistently pass t to vc-deduce-fileset.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16334&r2=1.16335
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc.el?cvsroot=emacs&r1=1.731&r2=1.732

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16334
retrieving revision 1.16335
diff -u -b -r1.16334 -r1.16335
--- ChangeLog   3 Oct 2009 12:36:21 -0000       1.16334
+++ ChangeLog   3 Oct 2009 18:29:22 -0000       1.16335
@@ -1,3 +1,9 @@
+2009-10-03  Dan Nicolaescu  <address@hidden>
+
+       * vc.el: Remove commented out code.
+       (vc-derived-from-dir-mode): Remove, unused.
+       (vc-version-diff, vc-diff): Consistently pass t to vc-deduce-fileset.
+
 2009-10-03  Michael Albinus  <address@hidden>
 
        * net/tramp-ftp.el (tramp-ftp-file-name-handler): Disable

Index: vc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc.el,v
retrieving revision 1.731
retrieving revision 1.732
diff -u -b -r1.731 -r1.732
--- vc.el       2 Oct 2009 03:48:42 -0000       1.731
+++ vc.el       3 Oct 2009 18:29:26 -0000       1.732
@@ -861,32 +861,8 @@
       (unless (file-directory-p node) (push node flattened)))
     (nreverse flattened)))
 
-(defun vc-derived-from-dir-mode (&optional buffer)
-  "Are we in a VC-directory buffer, or do we have one as an ancestor?"
-  (let ((buffer (or buffer (current-buffer))))
-    (cond ((derived-mode-p 'vc-dir-mode) t)
-         (vc-parent-buffer (vc-derived-from-dir-mode vc-parent-buffer))
-         (t nil))))
-
 (defvar vc-dir-backend)
 
-;; FIXME: this is not functional, commented out.
-;; (defun vc-deduce-fileset (&optional observer)
-;;   "Deduce a set of files and a backend to which to apply an operation and
-;; the common state of the fileset.  Return (BACKEND . FILESET)."
-;;   (let* ((selection (vc-dispatcher-selection-set observer))
-;;      (raw (car selection))          ;; Selection as user made it
-;;      (cooked (cdr selection))       ;; Files only
-;;          ;; FIXME: Store the backend in a buffer-local variable.
-;;          (backend (if (vc-derived-from-dir-mode (current-buffer))
-;;                   ;; FIXME: this should use vc-dir-backend from
-;;                   ;; the *vc-dir* buffer.
-;;                       (vc-responsible-backend default-directory)
-;;                     (assert (and (= 1 (length raw))
-;;                                  (not (file-directory-p (car raw)))))
-;;                     (vc-backend (car cooked)))))
-;;     (cons backend selection)))
-
 (declare-function vc-dir-current-file "vc-dir" ())
 (declare-function vc-dir-deduce-fileset "vc-dir" (&optional 
state-model-only-files))
 
@@ -1577,15 +1553,9 @@
     (error "Not a valid revision range"))
   ;; Yes, it's painful to call (vc-deduce-fileset) again.  Alas, the
   ;; placement rules for (interactive) don't actually leave us a choice.
-  (vc-diff-internal t (vc-deduce-fileset) rev1 rev2
+  (vc-diff-internal t (vc-deduce-fileset t) rev1 rev2
                    (called-interactively-p 'interactive)))
 
-;; (defun vc-contains-version-controlled-file (dir)
-;;   "Return t if DIR contains a version-controlled file, nil otherwise."
-;;   (catch 'found
-;;     (mapc (lambda (f) (and (not (file-directory-p f)) (vc-backend f) (throw 
'found 't))) (directory-files dir))
-;;     nil))
-
 ;;;###autoload
 (defun vc-diff (historic &optional not-urgent)
   "Display diffs between file revisions.
@@ -1599,7 +1569,7 @@
   (if historic
       (call-interactively 'vc-version-diff)
     (when buffer-file-name (vc-buffer-sync not-urgent))
-    (vc-diff-internal t (vc-deduce-fileset) nil nil
+    (vc-diff-internal t (vc-deduce-fileset t) nil nil
                      (called-interactively-p 'interactive))))
 
 ;;;###autoload