[elpa] master 072f238 058/399: counsel.el: Capitalize proper noun "Git"

[Oleh Krehel]

branch: master
commit 072f23857ae740ff2e9a1125536060840f37117b
Author: Basil L. Contovounesios <address@hidden>
Commit: Basil L. Contovounesios <address@hidden>

    counsel.el: Capitalize proper noun "Git"
    
    (counsel-locate-git-root, counsel-git-grep-function)
    (counsel-git-grep, counsel-git-grep-proj-function)
    (counsel-git-worktree-list, counsel-git-branch-list):
    Capitalize "Git" as a proper noun where appropriate.
---
 counsel.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/counsel.el b/counsel.el
index cd98456..1fe8f45 100644
--- a/counsel.el
+++ b/counsel.el
@@ -1180,9 +1180,9 @@ Like `locate-dominating-file', but DIR defaults to
        (expand-file-name dir)))
 
 (defun counsel-locate-git-root ()
-  "Locate the root of the git repository containing the current buffer."
+  "Return the root of the Git repository containing the current buffer."
   (or (counsel--dominating-file ".git")
-      (error "Not in a git repository")))
+      (error "Not in a Git repository")))
 
 ;;;###autoload
 (defun counsel-git (&optional initial-input)
@@ -1282,7 +1282,7 @@ Typical value: '(recenter)."
   :type 'hook)
 
 (defun counsel-git-grep-function (str &optional _pred &rest _unused)
-  "Grep in the current git repository for STRING."
+  "Grep in the current Git repository for STRING."
   (or
    (and (> counsel--git-grep-count counsel--git-grep-count-threshold)
         (ivy-more-chars))
@@ -1422,7 +1422,7 @@ COMMAND fails.  Obey file handlers based on 
`default-directory'."
 
 ;;;###autoload
 (defun counsel-git-grep (&optional cmd initial-input)
-  "Grep for a string in the current git repository.
+  "Grep for a string in the current Git repository.
 When CMD is a string, use it as a \"git grep\" command.
 When CMD is non-nil, prompt for a specific \"git grep\" command.
 INITIAL-INPUT can be given as the initial minibuffer input."
@@ -1462,7 +1462,7 @@ INITIAL-INPUT can be given as the initial minibuffer 
input."
 (cl-pushnew 'counsel-git-grep ivy-highlight-grep-commands)
 
 (defun counsel-git-grep-proj-function (str)
-  "Grep for STR in the current git repository."
+  "Grep for STR in the current Git repository."
   (or
    (ivy-more-chars)
    (let ((regex (setq ivy--old-re
@@ -1672,7 +1672,7 @@ TREE is the selected candidate."
     (find-file file-name)))
 
 (defun counsel-git-worktree-list ()
-  "List worktrees in the git repository containing the current buffer."
+  "List worktrees in the Git repository containing the current buffer."
   (let ((default-directory (counsel-locate-git-root)))
     (split-string (shell-command-to-string "git worktree list") "\n" t)))
 
@@ -1721,7 +1721,7 @@ character (#x20), or the string's end if it lacks a 
space."
             (substring branch 0 (string-match-p " " branch))))))
 
 (defun counsel-git-branch-list ()
-  "Return list of branches in the current git repository.
+  "Return list of branches in the current Git repository.
 Value comprises all local and remote branches bar the one
 currently checked out."
   (cl-mapcan (lambda (line)