To provide "revert files" function for cg backend, I expected I had to
implement a function named cg-dvc-revert-files. However, the name was
cg-revert-files. The situation is the same to add-files and remove-files.
Is this O.K.?
If O.K. could you tell me the criteria?
This patch is my proposal.
* looking for [EMAIL PROTECTED]/dvc--devo--0.2--patch-55 to compare with
* comparing to [EMAIL PROTECTED]/dvc--devo--0.2--patch-55: . done.
M lisp/dvc-unified.el
* modified files
--- orig/lisp/dvc-unified.el
+++ mod/lisp/dvc-unified.el
@@ -47,7 +47,7 @@
(multiprompt (format "Add %%d files to %s? " dvc))
(singleprompt (format "Add file to %s: " dvc)))
(when (dvc-confirm-read-file-name-list multiprompt files singleprompt t)
- (apply 'dvc-apply "add-files" files))))
+ (apply 'dvc-apply "dvc-add-files" files))))
;;;###autoload
(defun dvc-revert-files (&rest files)
@@ -57,7 +57,7 @@
(multiprompt (format "Revert %%d files to their stored version in %s?
" dvc))
(singleprompt (format "Revert file to its state in %s: " dvc)))
(when (dvc-confirm-read-file-name-list multiprompt files singleprompt nil)
- (apply 'dvc-apply "revert-files" files))))
+ (apply 'dvc-apply "dvc-revert-files" files))))
;;;###autoload
(defun dvc-remove-files (&rest files)
@@ -67,7 +67,7 @@
(multiprompt (format "Remove %%d files from %s control? " dvc))
(singleprompt (format "Remove file from %s: " dvc)))
(when (dvc-confirm-read-file-name-list multiprompt files singleprompt nil)
- (apply 'dvc-apply "remove-files" files))))
+ (apply 'dvc-apply "dvc-remove-files" files))))
;;;###autoload
(progn
_______________________________________________
Xtla-el-dev mailing list
[email protected]
https://mail.gna.org/listinfo/xtla-el-dev
