mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

In vc, abolish the dir-status method.

Browse source
This commit is contained in:
Eric S. Raymond 2014-12-02 10:10:55 -05:00
parent dd601050e7
commit b1a765b3a8
13 changed files with 68 additions and 89 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/vc/vc-bzr.el
View file

@ -967,9 +967,9 @@ stream. Standard error output is discarded."
(forward-line))
(funcall update-function result)))
(defun vc-bzr-dir-status (dir update-function)
(defun vc-bzr-dir-status-files (dir files update-function)
"Return a list of conses (file . state) for DIR."
(vc-bzr-command "status" (current-buffer) 'async dir "-v" "-S")
(apply 'vc-bzr-command "status" (current-buffer) 'async dir "-v" "-S" files)
(vc-run-delayed
(vc-bzr-after-dir-status update-function
;; "bzr status" results are relative to
@ -981,13 +981,6 @@ stream. Standard error output is discarded."
;; frob the results accordingly.
(file-relative-name dir (vc-bzr-root dir)))))
(defun vc-bzr-dir-status-files (dir files update-function)
"Return a list of conses (file . state) for DIR."
(apply 'vc-bzr-command "status" (current-buffer) 'async dir "-v" "-S" files)
(vc-run-delayed
(vc-bzr-after-dir-status update-function
(file-relative-name dir (vc-bzr-root dir)))))
(defvar vc-bzr-shelve-map
(let ((map (make-sparse-keymap)))
;; Turn off vc-dir marking