{"thread":{"id":"4875","subject":"[PATCH 0] A few improvements to Emacs interface to Git","startedAt":"2006-07-13T20:15:46Z","lastAt":"2006-07-13T20:22:14Z","messageCount":3,"participants":["Jakub Narebski"],"isPatch":true,"patchVersion":1,"patchTotal":null},"messages":[{"id":"23774","messageId":"11528217463561-git-send-email-jnareb@gmail.com","threadId":"4875","inReplyTo":null,"subject":"[PATCH 0] A few improvements to Emacs interface to Git","fromName":"Jakub Narebski","fromEmail":"jnareb@gmail.com","sentAt":"2006-07-13T20:15:46Z","receivedAt":"2006-07-13T20:15:46Z","isPatch":true,"sender":{"key":"jnareb@gmail.com","avatar":"https://avatars.githubusercontent.com/u/2706?v=4"},"body":"This series of patches introduces a few minor improvements to\nEmacs interface to Git.\n\n-- \nJakub Narebski\n"},{"id":"23776","messageId":"11528221343629-git-send-email-jnareb@gmail.com","threadId":"4875","inReplyTo":"11528217463561-git-send-email-jnareb@gmail.com","subject":"[PATCH 1] Wrap long lines in docstrings in contrib/emacs/git.el","fromName":"Jakub Narebski","fromEmail":"jnareb@gmail.com","sentAt":"2006-07-13T20:22:13Z","receivedAt":"2006-07-13T20:22:13Z","isPatch":true,"sender":{"key":"jnareb@gmail.com","avatar":"https://avatars.githubusercontent.com/u/2706?v=4"},"body":"Signed-off-by: Jakub Narebski <jnareb@gmail.com>\n---\n contrib/emacs/git.el |   10 +++++++---\n 1 files changed, 7 insertions(+), 3 deletions(-)\n\ndiff --git a/contrib/emacs/git.el b/contrib/emacs/git.el\nindex ebd00ef..83a845d 100644\n--- a/contrib/emacs/git.el\n+++ b/contrib/emacs/git.el\n@@ -59,14 +59,16 @@ (defgroup git nil\n \n (defcustom git-committer-name nil\n   \"User name to use for commits.\n-The default is to fall back to the repository config, then to `add-log-full-name' and then to `user-full-name'.\"\n+The default is to fall back to the repository config,\n+then to `add-log-full-name' and then to `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 the git repository config, then to `add-log-mailing-address' and then to `user-mail-address'.\"\n+The default is to fall back to the git repository config,\n+then to `add-log-mailing-address' and then to `user-mail-address'.\"\n   :group 'git\n   :type '(choice (const :tag \"Default\" nil)\n                  (string :tag \"Email\")))\n@@ -86,6 +88,7 @@ (defcustom git-per-dir-ignore-file \".git\n   :group 'git\n   :type 'string)\n \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@@ -149,7 +152,8 @@ (defun git-call-process-env (buffer env \n     (apply #'call-process \"git\" nil buffer nil args)))\n \n (defun git-call-process-env-string (env &rest args)\n-  \"Wrapper for call-process that sets environment strings, and returns the process output as a string.\"\n+  \"Wrapper for call-process that sets environment strings,\n+and returns the process output as a string.\"\n   (with-temp-buffer\n     (and (eq 0 (apply #' git-call-process-env t env args))\n          (buffer-string))))\n-- \n1.4.0\n"},{"id":"23777","messageId":"11528221341063-git-send-email-jnareb@gmail.com","threadId":"4875","inReplyTo":"11528217463561-git-send-email-jnareb@gmail.com","subject":"[PATCH 2] Display help for Git mode after pressing `h' or `?' in *git-status*","fromName":"Jakub Narebski","fromEmail":"jnareb@gmail.com","sentAt":"2006-07-13T20:22:14Z","receivedAt":"2006-07-13T20:22:14Z","isPatch":true,"sender":{"key":"jnareb@gmail.com","avatar":"https://avatars.githubusercontent.com/u/2706?v=4"},"body":"Add bindings for \"h\" and \"?\" in git-status-mode to display help about the mode,\nincluding keymap via (describe-function 'git-status-mode), like in PCL-CVS.\n\nSigned-off-by: Jakub Narebski <jnareb@gmail.com>\n---\n contrib/emacs/git.el |    7 +++++++\n 1 files changed, 7 insertions(+), 0 deletions(-)\n\ndiff --git a/contrib/emacs/git.el b/contrib/emacs/git.el\nindex 83a845d..34c9950 100644\n--- a/contrib/emacs/git.el\n+++ b/contrib/emacs/git.el\n@@ -943,6 +943,8 @@ (unless git-status-mode-map\n   (let ((map (make-keymap))\n         (diff-map (make-sparse-keymap)))\n     (suppress-keymap map)\n+    (define-key map \"?\"   'git-help)\n+    (define-key map \"h\"   'git-help)\n     (define-key map \" \"   'git-next-file)\n     (define-key map \"a\"   'git-add-file)\n     (define-key map \"c\"   'git-commit-file)\n@@ -1012,5 +1014,10 @@ (defun git-status (dir)\n         (goto-char (point-min)))\n     (message \"%s is not a git working tree.\" dir)))\n \n+(defun git-help ()\n+  \"Display help for Git mode.\"\n+  (interactive)\n+  (describe-function 'git-status-mode))\n+\n (provide 'git)\n ;;; git.el ends here\n-- \n1.4.0\n"}]}