{"thread":{"id":"3555","subject":"[PATCH 5/5] git.el: Added customize support for all parameters.","startedAt":"2006-03-04T16:38:58Z","lastAt":"2006-03-04T16:38:58Z","messageCount":1,"participants":["Alexandre Julliard"],"isPatch":true,"patchVersion":1,"patchTotal":5},"messages":[{"id":"17150","messageId":"873bhykvvh.fsf@wine.dyndns.org","threadId":"3555","inReplyTo":null,"subject":"[PATCH 5/5] git.el: Added customize support for all parameters.","fromName":"Alexandre Julliard","fromEmail":"julliard@winehq.org","sentAt":"2006-03-04T16:38:58Z","receivedAt":"2006-03-04T16:38:58Z","isPatch":true,"sender":{"key":"julliard@winehq.org","avatar":null},"body":"Also fixed quoting of git-log-msg-separator.\n\nSigned-off-by: Alexandre Julliard <julliard@winehq.org>\n\n---\n\n contrib/emacs/git.el |   85 ++++++++++++++++++++++++++++++++------------------\n 1 files changed, 54 insertions(+), 31 deletions(-)\n\nc41661801015e1d04d1ac3c3a3ccd2ba254bb02c\ndiff --git a/contrib/emacs/git.el b/contrib/emacs/git.el\nindex 0b24b4d..5135e36 100644\n--- a/contrib/emacs/git.el\n+++ b/contrib/emacs/git.el\n@@ -44,7 +44,6 @@\n ;;  - switching branches\n ;;  - revlist browser\n ;;  - git-show-branch browser\n-;;  - customize support\n ;;  - menus\n ;;\n \n@@ -52,68 +51,92 @@\n (require 'ewoc)\n \n \n-;;;; Faces\n+;;;; Customizations\n ;;;; ------------------------------------------------------------\n \n+(defgroup git nil\n+  \"Git user interface\")\n+\n+(defcustom git-committer-name nil\n+  \"User name to use for commits.\n+The default is to fall back to `add-log-full-name' and then `user-full-name'.\"\n+  :group 'git\n+  :type '(choice (const :tag \"Default\" nil)\n+                 (string :tag \"Name\")))\n+\n+(defcustom git-committer-email nil\n+  \"Email address to use for commits.\n+The default is to fall back to `add-log-mailing-address' and then `user-mail-address'.\"\n+  :group 'git\n+  :type '(choice (const :tag \"Default\" nil)\n+                 (string :tag \"Email\")))\n+\n+(defcustom git-commits-coding-system 'utf-8\n+  \"Default coding system for the log message of git commits.\"\n+  :group 'git\n+  :type 'coding-system)\n+\n+(defcustom git-append-signed-off-by nil\n+  \"Whether to append a Signed-off-by line to the commit message before editing.\"\n+  :group 'git\n+  :type 'boolean)\n+\n+(defcustom git-per-dir-ignore-file \".gitignore\"\n+  \"Name of the per-directory ignore file.\"\n+  :group 'git\n+  :type 'string)\n+\n (defface git-status-face\n   '((((class color) (background light)) (:foreground \"purple\")))\n-  \"Git mode face used to highlight added and modified files.\")\n+  \"Git mode face used to highlight added and modified files.\"\n+  :group 'git)\n \n (defface git-unmerged-face\n   '((((class color) (background light)) (:foreground \"red\" :bold t)))\n-  \"Git mode face used to highlight unmerged files.\")\n+  \"Git mode face used to highlight unmerged files.\"\n+  :group 'git)\n \n (defface git-unknown-face\n   '((((class color) (background light)) (:foreground \"goldenrod\" :bold t)))\n-  \"Git mode face used to highlight unknown files.\")\n+  \"Git mode face used to highlight unknown files.\"\n+  :group 'git)\n \n (defface git-uptodate-face\n   '((((class color) (background light)) (:foreground \"grey60\")))\n-  \"Git mode face used to highlight up-to-date files.\")\n+  \"Git mode face used to highlight up-to-date files.\"\n+  :group 'git)\n \n (defface git-ignored-face\n   '((((class color) (background light)) (:foreground \"grey60\")))\n-  \"Git mode face used to highlight ignored files.\")\n+  \"Git mode face used to highlight ignored files.\"\n+  :group 'git)\n \n (defface git-mark-face\n   '((((class color) (background light)) (:foreground \"red\" :bold t)))\n-  \"Git mode face used for the file marks.\")\n+  \"Git mode face used for the file marks.\"\n+  :group 'git)\n \n (defface git-header-face\n   '((((class color) (background light)) (:foreground \"blue\")))\n-  \"Git mode face used for commit headers.\")\n+  \"Git mode face used for commit headers.\"\n+  :group 'git)\n \n (defface git-separator-face\n   '((((class color) (background light)) (:foreground \"brown\")))\n-  \"Git mode face used for commit separator.\")\n+  \"Git mode face used for commit separator.\"\n+  :group 'git)\n \n (defface git-permission-face\n   '((((class color) (background light)) (:foreground \"green\" :bold t)))\n-  \"Git mode face used for permission changes.\")\n-\n-(defvar git-committer-name nil\n-  \"*User name to use for commits.\n-If not set, fall back to `add-log-full-name' and then `user-full-name'.\")\n-\n-(defvar git-committer-email nil\n-  \"*Email address to use for commits.\n-If not set, fall back to `add-log-mailing-address' and then `user-mail-address'.\")\n-\n-(defvar git-commits-coding-system 'utf-8\n-  \"Default coding system for git commits.\")\n-\n-(defvar git-append-signed-off-by nil\n-  \"Whether to append a Signed-off-by line to the commit message.\")\n-\n-(defconst git-log-msg-separator \"--- log message follows this line ---\")\n-\n-(defconst git-per-dir-ignore-file \".gitignore\"\n-  \"Name of the per-directory ignore file.\")\n+  \"Git mode face used for permission changes.\"\n+  :group 'git)\n \n \n ;;;; Utilities\n ;;;; ------------------------------------------------------------\n \n+(defconst git-log-msg-separator \"--- log message follows this line ---\")\n+\n (defun git-get-env-strings (env)\n   \"Build a list of NAME=VALUE strings from a list of environment strings.\"\n   (mapcar (lambda (entry) (concat (car entry) \"=\" (cdr entry))) env))\n@@ -279,7 +302,7 @@ If not set, fall back to `add-log-mailin\n     (with-current-buffer buffer\n       (goto-char (point-min))\n       (if\n-          (setq log-start (re-search-forward (concat \"^\" git-log-msg-separator \"\\n\") nil t))\n+          (setq log-start (re-search-forward (concat \"^\" (regexp-quote git-log-msg-separator) \"\\n\") nil t))\n           (save-restriction\n             (narrow-to-region (point-min) log-start)\n             (goto-char (point-min))\n-- \n1.2.4.g0040-dirty\n\n-- \nAlexandre Julliard\njulliard@winehq.org\n"}]}