Mercurial > emacs
changeset 12280:b33cc6583bb9
(vc-backend-dispatch): Move definition before first use.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 16 Jun 1995 18:04:47 +0000 |
| parents | de2a82180af0 |
| children | ba3d2da14bca |
| files | lisp/vc.el |
| diffstat | 1 files changed, 17 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Fri Jun 16 18:02:51 1995 +0000 +++ b/lisp/vc.el Fri Jun 16 18:04:47 1995 +0000 @@ -75,6 +75,23 @@ (cons '(vc-parent-buffer vc-parent-buffer-name) minor-mode-alist))) +;; To implement support for a new version-control system, add another +;; branch to the vc-backend-dispatch macro and fill it in in each +;; call. The variable vc-master-templates in vc-hooks.el will also +;; have to change. + +(defmacro vc-backend-dispatch (f s r c) + "Execute FORM1, FORM2 or FORM3 for SCCS, RCS or CVS respectively. +If FORM3 is `RCS', use FORM2 for CVS as well as RCS. +\(CVS shares some code with RCS)." + (list 'let (list (list 'type (list 'vc-backend f))) + (list 'cond + (list (list 'eq 'type (quote 'SCCS)) s) ;; SCCS + (list (list 'eq 'type (quote 'RCS)) r) ;; RCS + (list (list 'eq 'type (quote 'CVS)) ;; CVS + (if (eq c 'RCS) r c)) + ))) + ;; General customization (defvar vc-suppress-confirm nil @@ -299,23 +316,6 @@ status) ) -;; Everything eventually funnels through these functions. To implement -;; support for a new version-control system, add another branch to the -;; vc-backend-dispatch macro and fill it in in each call. The variable -;; vc-master-templates in vc-hooks.el will also have to change. - -(defmacro vc-backend-dispatch (f s r c) - "Execute FORM1, FORM2 or FORM3 depending whether we're using SCCS, RCS or CVS. -If FORM3 is RCS, use FORM2 even if we are using CVS. (CVS shares some code -with RCS)." - (list 'let (list (list 'type (list 'vc-backend f))) - (list 'cond - (list (list 'eq 'type (quote 'SCCS)) s) ;; SCCS - (list (list 'eq 'type (quote 'RCS)) r) ;; RCS - (list (list 'eq 'type (quote 'CVS)) ;; CVS - (if (eq c 'RCS) r c)) - ))) - ;;; Save a bit of the text around POSN in the current buffer, to help ;;; us find the corresponding position again later. This works even ;;; if all markers are destroyed or corrupted.