comparison lisp/vc-svn.el @ 87845:800f4ac6c848

* vc-svn.el (vc-svn-dir-status): New function.

87844:3bd7c8c8bbe7

    ;; enough.  Otherwise it might fail with remote repositories.
    (with-temp-buffer
      (buffer-disable-undo)		;; Because these buffers can get huge
      (vc-svn-command t 0 nil "status" (if localp "-v" "-u"))
      (vc-svn-parse-status))))

(defun vc-svn-working-revision (file)
  "SVN-specific version of `vc-working-revision'."
  ;; There is no need to consult RCS headers under SVN, because we
  ;; get the workfile version for free when we recognize that a file

87845:800f4ac6c848

    ;; enough.  Otherwise it might fail with remote repositories.
    (with-temp-buffer
      (buffer-disable-undo)		;; Because these buffers can get huge
      (vc-svn-command t 0 nil "status" (if localp "-v" "-u"))
      (vc-svn-parse-status))))

(defun vc-svn-dir-status (dir)
  "Return a list of conses (FILE . STATE) for DIR."
  (with-temp-buffer
    (let ((default-directory (file-name-as-directory dir))
	  (state-map '((?A . added)
		       (?C . edited)
		       (?D . removed)
		       (?I . ignored)
		       (?M . edited)
		       (?R . removed)
		       (?? . unregistered)
		       ;; This is what vc-svn-parse-status does.
		       (?~ . edited)))
	  result)
      (vc-svn-command t 0 nil "status")
      (goto-char (point-min))
      (while (re-search-forward "^\\(.\\)..... \\(.*\\)$" nil t)
	(let ((state (cdr (assq (aref (match-string 1) 0) state-map)))
	      (filename (match-string 2)))
	  (when state
	    (setq result (cons (cons filename state) result)))))
      result)))

(defun vc-svn-working-revision (file)
  "SVN-specific version of `vc-working-revision'."
  ;; There is no need to consult RCS headers under SVN, because we
  ;; get the workfile version for free when we recognize that a file