aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Gutov2015-10-20 19:37:30 +0300
committerDmitry Gutov2015-10-20 22:07:20 +0300
commit5e4395544c184d9a8702cf05c7aee9329b0b9482 (patch)
tree1ae9fa52b373b5c5afd8e8df01ba2481c3167126
parent28c58bf739fb5cc528051cfc48770fbfa4e1a319 (diff)
downloademacs-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.el4
-rw-r--r--lisp/vc/vc-bzr.el1
-rw-r--r--lisp/vc/vc-cvs.el2
-rw-r--r--lisp/vc/vc-git.el2
-rw-r--r--lisp/vc/vc-hg.el2
-rw-r--r--lisp/vc/vc-mtn.el4
-rw-r--r--lisp/vc/vc-svn.el4
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.
319CALLBACK expects (ENTRIES &optional MORE-TO-COME); see 315CALLBACK 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)