comparison lisp/vc.el @ 94974:3a282ce8370c

Make vc-deduce-fileset do the right thing in derived buffers.

94973:c7204aaea55b

	  (vc-file-tree-walk
	   node (lambda (f) (when (vc-backend f) (push f flattened)))))
      (push node flattened))
    (nreverse flattened)))

(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* ((fileset (vc-dispatcher-selection-set observer))
         ;; FIXME: Store the backend in a buffer-local variable.
         (backend (if (derived-mode-p 'vc-dir-mode)
                      (vc-responsible-backend default-directory)
                    (assert (and (= 1 (length fileset))
                                 (not (file-directory-p (car fileset)))))
                    (vc-backend (car fileset)))))
	(cons backend fileset)))

94974:3a282ce8370c

	  (vc-file-tree-walk
	   node (lambda (f) (when (vc-backend f) (push f flattened)))))
      (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))))

(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* ((fileset (vc-dispatcher-selection-set observer))
         ;; FIXME: Store the backend in a buffer-local variable.
         (backend (if (vc-derived-from-dir-mode (current-buffer))
                      (vc-responsible-backend default-directory)
                    (assert (and (= 1 (length fileset))
                                 (not (file-directory-p (car fileset)))))
                    (vc-backend (car fileset)))))
	(cons backend fileset)))