diff options
author | Eric S. Raymond <esr@thyrsus.com> | 2014-12-02 08:01:46 -0500 |
---|---|---|
committer | Eric S. Raymond <esr@thyrsus.com> | 2014-12-02 08:01:46 -0500 |
commit | d4767877aca091ee1a04608e2b50b346745661d4 (patch) | |
tree | 189170facf63e6c9b640cdd1cb657a2afe880ad5 /lisp/vc/vc.el | |
parent | e6fe301afe4bbc707d2fde44a5250b84418d2b1b (diff) | |
download | emacs-d4767877aca091ee1a04608e2b50b346745661d4.tar.gz |
Eliminate an unuted function argument.
* vc.el, all backends: API simplification: Remove 4th 'default-state'
argument from vc-dir-status files and its backend methods - no backend
method ever set it. It was used only in the fallback method to to set
a default of 'up-to-date, though a convoluted call chain obscured
this.
Diffstat (limited to 'lisp/vc/vc.el')
-rw-r--r-- | lisp/vc/vc.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 1b82bfd939d..c4810cf8b8b 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -148,13 +148,13 @@ ;; the following functions might be needed: `dir-extra-headers', ;; `dir-printer', `extra-dir-menu' and `dir-status-files'. ;; -;; - dir-status-files (dir files default-state update-function) +;; - dir-status-files (dir files update-function) ;; ;; This function is identical to dir-status except that it should ;; only report status for the specified FILES. Also it needs to ;; report on all requested files, including up-to-date or ignored ;; files. If not provided, the default is to consider that the files -;; are in DEFAULT-STATE. +;; are in 'up-to-date state. ;; ;; - dir-extra-headers (dir) ;; @@ -577,6 +577,9 @@ ;; (This fixes a layer violation that produced bad behavior under ;; SVN.) ;; +;; - INCOMPATIBLE CHANGE: The old fourth 'default-state' argument of +;; vc-dir-status-files is gone; none of the back ends actually used it. +;; ;; - vc-state-heuristic is no longer a public method (the CVS backend ;; retains it as a private one). ;; @@ -2884,9 +2887,9 @@ to provide the `find-revision' operation instead." (defalias 'vc-default-revision-completion-table 'ignore) (defalias 'vc-default-mark-resolved 'ignore) -(defun vc-default-dir-status-files (_backend _dir files default-state update-function) +(defun vc-default-dir-status-files (_backend _dir files update-function) (funcall update-function - (mapcar (lambda (file) (list file default-state)) files))) + (mapcar (lambda (file) (list file 'up-to-date)) files))) (defun vc-check-headers () "Check if the current file has any headers in it." |