5959
6060(defcustom git-committer-name nil
6161 " User name to use for commits.
62- The default is to fall back to the repository config, then to `add-log-full-name' and then to `user-full-name' ."
62+ The default is to fall back to the repository config,
63+ then to `add-log-full-name' and then to `user-full-name' ."
6364 :group 'git
6465 :type '(choice (const :tag " Default" nil )
6566 (string :tag " Name" )))
6667
6768(defcustom git-committer-email nil
6869 " Email address to use for commits.
69- The default is to fall back to the git repository config, then to `add-log-mailing-address' and then to `user-mail-address' ."
70+ The default is to fall back to the git repository config,
71+ then to `add-log-mailing-address' and then to `user-mail-address' ."
7072 :group 'git
7173 :type '(choice (const :tag " Default" nil )
7274 (string :tag " Email" )))
@@ -86,6 +88,7 @@ The default is to fall back to the git repository config, then to `add-log-maili
8688 :group 'git
8789 :type 'string )
8890
91+
8992(defface git-status-face
9093 '((((class color ) (background light )) (:foreground " purple" )))
9194 " Git mode face used to highlight added and modified files."
@@ -149,7 +152,8 @@ The default is to fall back to the git repository config, then to `add-log-maili
149152 (apply #'call-process " git" nil buffer nil args)))
150153
151154(defun git-call-process-env-string (env &rest args )
152- " Wrapper for call-process that sets environment strings, and returns the process output as a string."
155+ " Wrapper for call-process that sets environment strings,
156+ and returns the process output as a string."
153157 (with-temp-buffer
154158 (and (eq 0 (apply #' git-call-process-env t env args))
155159 (buffer-string ))))
0 commit comments