diff options
| author | yoctocell <public@yoctocell.xyz> | 2021-01-06 16:57:04 +0100 |
|---|---|---|
| committer | yoctocell <public@yoctocell.xyz> | 2021-01-06 16:57:04 +0100 |
| commit | 5b37163de00d936384ca4bfc52b12bc5c8ea827d (patch) | |
| tree | b8cfd037b18c5081971e3011b9a0cc338982482e /git-email.el | |
| parent | 0008df5e19d45cc65c8926ba31bbc255ae55b996 (diff) | |
Fix indentation
* git-email.el (git-email--check-file):
(git-email--get-revision):
(git-email-apply-patch):
(git-email-send-email):
Diffstat (limited to 'git-email.el')
| -rw-r--r-- | git-email.el | 33 |
1 files changed, 17 insertions, 16 deletions
diff --git a/git-email.el b/git-email.el index 0a6cd37..244f44e 100644 --- a/git-email.el +++ b/git-email.el @@ -141,8 +141,8 @@ If the header is not found, return an empty string." (defun git-email--check-file (file) "Check if FILE is a patch." (if (and (file-readable-p file) - (or (string-match-p "\\.patch$" file) - (string-match-p "\\.diff$" file))) + (or (string-match-p "\\.patch$" file) + (string-match-p "\\.diff$" file))) file (error "Not a valid patch!"))) @@ -204,15 +204,16 @@ If no marks are found, return the filename at point." "\n"))) ;; Colorize (colored-revs - (mapcar (lambda (rev) (concat - (propertize - (replace-regexp-in-string "\\([a-f0-9]+\\) .*$" - "\\1" rev) - 'face 'log-view-commit-body) - (propertize - (replace-regexp-in-string "[a-f0-9]+ \\(.*$\\)" - "\\1" rev) - 'face 'default))) + (mapcar (lambda (rev) + (concat + (propertize + (replace-regexp-in-string "\\([a-f0-9]+\\) .*$" + "\\1" rev) + 'face 'log-view-commit-body) + (propertize + (replace-regexp-in-string "[a-f0-9]+ \\(.*$\\)" + "\\1" rev) + 'face 'default))) revs)) ;; Sort the candidates correctly. ;; See https://emacs.stackexchange.com/a/41808. @@ -228,7 +229,7 @@ If no marks are found, return the filename at point." ;;;###autoload (defun git-email-apply-patch (project) "Apply the patch in the current buffer using 'git am' in PROJECT." - (interactive (list (project-prompt-project-dir))) + (interactive (list (project-prompt-project-dir))) (let ((default-directory project)) (push (list project) project--list) (shell-command-on-region (point-min) (point-max) "git am"))) @@ -238,10 +239,10 @@ If no marks are found, return the filename at point." "Send patch(es) to someone." (interactive) (let ((files (git-email--get-filenames))) - (dolist (file files) - (run-hooks 'git-email-pre-compose-email-hook) - (git-email--compose-email file) - (run-hooks 'git-email-post-compose-email-hook)))) + (dolist (file files) + (run-hooks 'git-email-pre-compose-email-hook) + (git-email--compose-email file) + (run-hooks 'git-email-post-compose-email-hook)))) ;;;###autoload (defun git-email-format-patch (&optional args) |