diff options
| author | Dmitry Gutov | 2015-10-20 19:37:30 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2015-10-20 22:07:20 +0300 |
| commit | 5e4395544c184d9a8702cf05c7aee9329b0b9482 (patch) | |
| tree | 1ae9fa52b373b5c5afd8e8df01ba2481c3167126 | |
| parent | 28c58bf739fb5cc528051cfc48770fbfa4e1a319 (diff) | |
| download | emacs-5e4395544c184d9a8702cf05c7aee9329b0b9482.tar.gz emacs-5e4395544c184d9a8702cf05c7aee9329b0b9482.zip | |
Don't declare vc-exec-after anymore
* lisp/vc/vc-svn.el:
* lisp/vc/vc-mtn.el:
* lisp/vc/vc-hg.el:
* lisp/vc/vc-cvs.el:
* lisp/vc/vc-git.el:
* lisp/vc/vc-bzr.el: Don't declare vc-exec-after anymore. Its
usages have been replaced with vc-run-delayed.
| -rw-r--r-- | lisp/obsolete/vc-arch.el | 4 | ||||
| -rw-r--r-- | lisp/vc/vc-bzr.el | 1 | ||||
| -rw-r--r-- | lisp/vc/vc-cvs.el | 2 | ||||
| -rw-r--r-- | lisp/vc/vc-git.el | 2 | ||||
| -rw-r--r-- | lisp/vc/vc-hg.el | 2 | ||||
| -rw-r--r-- | lisp/vc/vc-mtn.el | 4 | ||||
| -rw-r--r-- | lisp/vc/vc-svn.el | 4 |
7 files changed, 0 insertions, 19 deletions
diff --git a/lisp/obsolete/vc-arch.el b/lisp/obsolete/vc-arch.el index e6540ce74d9..bdb69757d35 100644 --- a/lisp/obsolete/vc-arch.el +++ b/lisp/obsolete/vc-arch.el | |||
| @@ -310,10 +310,6 @@ Only the value `maybe' can be trusted :-(." | |||
| 310 | 'up-to-date | 310 | 'up-to-date |
| 311 | 'edited))))))))) | 311 | 'edited))))))))) |
| 312 | 312 | ||
| 313 | ;; dir-status-files called from vc-dir, which loads vc, | ||
| 314 | ;; which loads vc-dispatcher. | ||
| 315 | (declare-function vc-exec-after "vc-dispatcher" (code)) | ||
| 316 | |||
| 317 | (defun vc-arch-dir-status-files (dir _files callback) | 313 | (defun vc-arch-dir-status-files (dir _files callback) |
| 318 | "Run `tla inventory' for DIR and pass results to CALLBACK. | 314 | "Run `tla inventory' for DIR and pass results to CALLBACK. |
| 319 | CALLBACK expects (ENTRIES &optional MORE-TO-COME); see | 315 | CALLBACK expects (ENTRIES &optional MORE-TO-COME); see |
diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el index 9b2711d8146..40f251654f2 100644 --- a/lisp/vc/vc-bzr.el +++ b/lisp/vc/vc-bzr.el | |||
| @@ -331,7 +331,6 @@ in the repository root directory of FILE." | |||
| 331 | "Value of `compilation-error-regexp-alist' in *vc-bzr* buffers.") | 331 | "Value of `compilation-error-regexp-alist' in *vc-bzr* buffers.") |
| 332 | 332 | ||
| 333 | ;; To be called via vc-pull from vc.el, which requires vc-dispatcher. | 333 | ;; To be called via vc-pull from vc.el, which requires vc-dispatcher. |
| 334 | (declare-function vc-exec-after "vc-dispatcher" (code)) | ||
| 335 | (declare-function vc-set-async-update "vc-dispatcher" (process-buffer)) | 334 | (declare-function vc-set-async-update "vc-dispatcher" (process-buffer)) |
| 336 | (declare-function vc-compilation-mode "vc-dispatcher" (backend)) | 335 | (declare-function vc-compilation-mode "vc-dispatcher" (backend)) |
| 337 | 336 | ||
diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el index 5f5807fb3c6..c0a199dc078 100644 --- a/lisp/vc/vc-cvs.el +++ b/lisp/vc/vc-cvs.el | |||
| @@ -543,8 +543,6 @@ Will fail unless you have administrative privileges on the repo." | |||
| 543 | ;;; | 543 | ;;; |
| 544 | 544 | ||
| 545 | (declare-function vc-rcs-print-log-cleanup "vc-rcs" ()) | 545 | (declare-function vc-rcs-print-log-cleanup "vc-rcs" ()) |
| 546 | ;; Follows vc-cvs-command, which uses vc-do-command from vc-dispatcher. | ||
| 547 | (declare-function vc-exec-after "vc-dispatcher" (code)) | ||
| 548 | 546 | ||
| 549 | (defun vc-cvs-print-log (files buffer &optional _shortlog _start-revision limit) | 547 | (defun vc-cvs-print-log (files buffer &optional _shortlog _start-revision limit) |
| 550 | "Print commit log associated with FILES into specified BUFFER. | 548 | "Print commit log associated with FILES into specified BUFFER. |
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index b5570323e03..2a8cd568bf7 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el | |||
| @@ -461,8 +461,6 @@ or an empty string if none." | |||
| 461 | 461 | ||
| 462 | ;; Follows vc-git-command (or vc-do-async-command), which uses vc-do-command | 462 | ;; Follows vc-git-command (or vc-do-async-command), which uses vc-do-command |
| 463 | ;; from vc-dispatcher. | 463 | ;; from vc-dispatcher. |
| 464 | (declare-function vc-exec-after "vc-dispatcher" (code)) | ||
| 465 | ;; Follows vc-exec-after. | ||
| 466 | (declare-function vc-set-async-update "vc-dispatcher" (process-buffer)) | 464 | (declare-function vc-set-async-update "vc-dispatcher" (process-buffer)) |
| 467 | 465 | ||
| 468 | (defun vc-git-dir-status-goto-stage (stage files update-function) | 466 | (defun vc-git-dir-status-goto-stage (stage files update-function) |
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index 49573986125..c4d6092d100 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el | |||
| @@ -620,8 +620,6 @@ REV is the revision to check out into WORKFILE." | |||
| 620 | 620 | ||
| 621 | ;; Follows vc-hg-command (or vc-do-async-command), which uses vc-do-command | 621 | ;; Follows vc-hg-command (or vc-do-async-command), which uses vc-do-command |
| 622 | ;; from vc-dispatcher. | 622 | ;; from vc-dispatcher. |
| 623 | (declare-function vc-exec-after "vc-dispatcher" (code)) | ||
| 624 | ;; Follows vc-exec-after. | ||
| 625 | (declare-function vc-set-async-update "vc-dispatcher" (process-buffer)) | 623 | (declare-function vc-set-async-update "vc-dispatcher" (process-buffer)) |
| 626 | 624 | ||
| 627 | (defun vc-hg-dir-status-files (dir files update-function) | 625 | (defun vc-hg-dir-status-files (dir files update-function) |
diff --git a/lisp/vc/vc-mtn.el b/lisp/vc/vc-mtn.el index b56a08f2a9e..3197d606061 100644 --- a/lisp/vc/vc-mtn.el +++ b/lisp/vc/vc-mtn.el | |||
| @@ -138,10 +138,6 @@ switches." | |||
| 138 | ((match-end 2) (push (list (match-string 3) 'added) result)))) | 138 | ((match-end 2) (push (list (match-string 3) 'added) result)))) |
| 139 | (funcall update-function result))) | 139 | (funcall update-function result))) |
| 140 | 140 | ||
| 141 | ;; dir-status-files called from vc-dir, which loads vc, | ||
| 142 | ;; which loads vc-dispatcher. | ||
| 143 | (declare-function vc-exec-after "vc-dispatcher" (code)) | ||
| 144 | |||
| 145 | (defun vc-mtn-dir-status-files (dir _files update-function) | 141 | (defun vc-mtn-dir-status-files (dir _files update-function) |
| 146 | (vc-mtn-command (current-buffer) 'async dir "status") | 142 | (vc-mtn-command (current-buffer) 'async dir "status") |
| 147 | (vc-run-delayed | 143 | (vc-run-delayed |
diff --git a/lisp/vc/vc-svn.el b/lisp/vc/vc-svn.el index 4ef63a23db5..2ec65a1ad07 100644 --- a/lisp/vc/vc-svn.el +++ b/lisp/vc/vc-svn.el | |||
| @@ -208,10 +208,6 @@ switches." | |||
| 208 | (setq result (cons (list filename state) result))))) | 208 | (setq result (cons (list filename state) result))))) |
| 209 | (funcall callback result))) | 209 | (funcall callback result))) |
| 210 | 210 | ||
| 211 | ;; dir-status-files called from vc-dir, which loads vc, | ||
| 212 | ;; which loads vc-dispatcher. | ||
| 213 | (declare-function vc-exec-after "vc-dispatcher" (code)) | ||
| 214 | |||
| 215 | (autoload 'vc-expand-dirs "vc") | 211 | (autoload 'vc-expand-dirs "vc") |
| 216 | 212 | ||
| 217 | (defun vc-svn-dir-status-files (_dir files callback) | 213 | (defun vc-svn-dir-status-files (_dir files callback) |