kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity

Wrap long lines in docstrings in contrib/emacs/git.el 

Signed-off-by: Jakub Narebski <jnareb@gmail.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
maint
Jakub Narebski 2006-07-13 22:22:13 +02:00 committed by Junio C Hamano
parent d3ba675aae
commit 1b3a667461
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/emacs/git.el
View File

@ -59,14 +59,16 @@


(defcustom git-committer-name nil (defcustom git-committer-name nil
"User name to use for commits. "User name to use for commits.
The default is to fall back to the repository config, then to `add-log-full-name' and then to `user-full-name'." The default is to fall back to the repository config,
then to `add-log-full-name' and then to `user-full-name'."
:group 'git :group 'git
:type '(choice (const :tag "Default" nil) :type '(choice (const :tag "Default" nil)
(string :tag "Name"))) (string :tag "Name")))


(defcustom git-committer-email nil (defcustom git-committer-email nil
"Email address to use for commits. "Email address to use for commits.
The default is to fall back to the git repository config, then to `add-log-mailing-address' and then to `user-mail-address'." The default is to fall back to the git repository config,
then to `add-log-mailing-address' and then to `user-mail-address'."
:group 'git :group 'git
:type '(choice (const :tag "Default" nil) :type '(choice (const :tag "Default" nil)
(string :tag "Email"))) (string :tag "Email")))
@ -86,6 +88,7 @@ The default is to fall back to the git repository config, then to `add-log-maili
:group 'git :group 'git
:type 'string) :type 'string)



(defface git-status-face (defface git-status-face
'((((class color) (background light)) (:foreground "purple"))) '((((class color) (background light)) (:foreground "purple")))
"Git mode face used to highlight added and modified files." "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
(apply #'call-process "git" nil buffer nil args))) (apply #'call-process "git" nil buffer nil args)))


(defun git-call-process-env-string (env &rest args) (defun git-call-process-env-string (env &rest args)
"Wrapper for call-process that sets environment strings, and returns the process output as a string." "Wrapper for call-process that sets environment strings,
and returns the process output as a string."
(with-temp-buffer (with-temp-buffer
(and (eq 0 (apply #' git-call-process-env t env args)) (and (eq 0 (apply #' git-call-process-env t env args))
(buffer-string)))) (buffer-string))))