From: Miles Bader Date: Fri, 3 Aug 2007 04:57:05 +0000 (+0000) Subject: Change capitalization of VC backend names for new backends X-Git-Tag: emacs-pretest-23.0.90~11616 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4211679b08d6a9c369cb22f085b9bb61d5d4eeda;p=emacs.git Change capitalization of VC backend names for new backends Revision: emacs@sv.gnu.org/emacs--devo--0--patch-842 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b103e096e10..19014a996f9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2007-08-03 Miles Bader + + * vc-hooks.el (vc-handled-backends): Change capitalization of VC + backend names for new backends to `Git', `Hg', and `Bzr'. + * vc-hg.el (vc-hg-dired-state-info): Use `Hg' as VC backend name, + not `HG'. + * vc-git.el (vc-git-dired-state-info): Use `Git' as VC backend + name, not `GIT'. + * vc-bzr.el (vc-bzr-dir-state, vc-bzr-dired-state-info) + (vc-bzr-unload-hook): Use `Bzr' as VC backend name, not `BZR'. + 2007-08-03 Glenn Morris * cus-edit.el (customize-apropos): Make the error message indicate diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el index 6a8f930f00f..b2011a7176e 100644 --- a/lisp/vc-bzr.el +++ b/lisp/vc-bzr.el @@ -63,7 +63,7 @@ ;; Clear up the cache to force vc-call to check again and discover ;; new functions when we reload this file. -(put 'BZR 'vc-functions nil) +(put 'Bzr 'vc-functions nil) (defgroup vc-bzr nil "VC bzr backend." @@ -197,7 +197,7 @@ Return nil if there isn't one." 'implicit) (defun vc-bzr-create-repo () - "Create a new BZR repository." + "Create a new Bzr repository." (vc-bzr-command "init" nil 0 nil)) (defun vc-bzr-register (files &optional rev comment) @@ -440,7 +440,7 @@ Optional argument LOCALP is always ignored." (vc-file-setprop file 'vc-state 'up-to-date) ;; XXX: is this correct? what happens if one ;; mixes different SCMs in the same dir? - (vc-file-setprop file 'vc-backend 'BZR)))) + (vc-file-setprop file 'vc-backend 'Bzr)))) ;; `bzr status' reports on added/modified/renamed and unknown/ignored files (setq at-start t) (with-temp-buffer @@ -492,18 +492,18 @@ Optional argument LOCALP is always ignored." (if bzr-state (concat "(" (symbol-name bzr-state) ")") ;; else fall back to default vc representation - (vc-default-dired-state-info 'BZR file))))) + (vc-default-dired-state-info 'Bzr file))))) ;; In case of just `(load "vc-bzr")', but that's probably the wrong ;; way to do it. -(add-to-list 'vc-handled-backends 'BZR) +(add-to-list 'vc-handled-backends 'Bzr) (eval-after-load "vc" '(add-to-list 'vc-directory-exclusion-list ".bzr" t)) (defconst vc-bzr-unload-hook (lambda () - (setq vc-handled-backends (delq 'BZR vc-handled-backends)) + (setq vc-handled-backends (delq 'Bzr vc-handled-backends)) (remove-hook 'vc-post-command-functions 'vc-bzr-post-command-function))) (provide 'vc-bzr) diff --git a/lisp/vc-git.el b/lisp/vc-git.el index e4a9d26105a..156b2866eb9 100644 --- a/lisp/vc-git.el +++ b/lisp/vc-git.el @@ -30,11 +30,11 @@ ;;; Installation: -;; To install: put this file on the load-path and add GIT to the list +;; To install: put this file on the load-path and add Git to the list ;; of supported backends in `vc-handled-backends'; the following line, ;; placed in your ~/.emacs, will accomplish this: ;; -;; (add-to-list 'vc-handled-backends 'GIT) +;; (add-to-list 'vc-handled-backends 'Git) ;;; Todo: ;; - check if more functions could use vc-git-command instead @@ -214,12 +214,12 @@ (if (eq git-state 'edited) "(modified)" ;; fall back to the default VC representation - (vc-default-dired-state-info 'GIT file)))) + (vc-default-dired-state-info 'Git file)))) ;;; STATE-CHANGING FUNCTIONS (defun vc-git-create-repo () - "Create a new GIT repository." + "Create a new Git repository." (vc-git-command "init" nil 0 nil)) (defun vc-git-register (files &optional rev comment) @@ -287,7 +287,7 @@ (defvar log-view-file-re) (defvar log-view-font-lock-keywords) -(define-derived-mode vc-git-log-view-mode log-view-mode "GIT-Log-View" +(define-derived-mode vc-git-log-view-mode log-view-mode "Git-Log-View" (require 'add-log) ;; we need the faces add-log ;; Don't have file markers, so use impossible regexp. (set (make-local-variable 'log-view-file-re) "^File:[ \t]+\\(.+\\)") diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index d8a7ec0dd46..1415f8d9499 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -256,7 +256,7 @@ (defvar log-view-file-re) (defvar log-view-font-lock-keywords) -(define-derived-mode vc-hg-log-view-mode log-view-mode "HG-Log-View" +(define-derived-mode vc-hg-log-view-mode log-view-mode "Hg-Log-View" (require 'add-log) ;; we need the faces add-log ;; Don't have file markers, so use impossible regexp. (set (make-local-variable 'log-view-file-re) "^File:[ \t]+\\(.+\\)") @@ -399,7 +399,7 @@ COMMENT is ignored." ;; (vc-hg-command nil nil file "remove")) (defun vc-hg-checkin (files rev comment) - "HG-specific version of `vc-backend-checkin'. + "Hg-specific version of `vc-backend-checkin'. REV is ignored." (vc-hg-command nil 0 files "commit" "-m" comment)) @@ -436,7 +436,7 @@ REV is the revision to check out into WORKFILE." (if (equal (vc-workfile-version file) "0") "(added)" "(modified)") ;; fall back to the default VC representation - (vc-default-dired-state-info 'HG file)))) + (vc-default-dired-state-info 'Hg file)))) ;; Modelled after the similar function in vc-bzr.el (defun vc-hg-revert (file &optional contents-done) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 18083f22e05..09001e59691 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -62,8 +62,8 @@ interpreted as hostnames." :type 'regexp :group 'vc) -(defcustom vc-handled-backends '(RCS CVS SVN SCCS BZR GIT HG Arch MCVS) - ;; BZR, GIT, HG, Arch and MCVS come last because they are per-tree +(defcustom vc-handled-backends '(RCS CVS SVN SCCS Bzr Git Hg Arch MCVS) + ;; Bzr, Git, Hg, Arch and MCVS come last because they are per-tree ;; rather than per-dir. "List of version control backends for which VC will be used. Entries in this list will be tried in order to determine whether a