diff options
| -rw-r--r-- | git-email.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/git-email.el b/git-email.el index 2996b25..4398171 100644 --- a/git-email.el +++ b/git-email.el @@ -133,7 +133,7 @@ If the header is not found, return an empty string." (- (re-search-forward "\n\n") 1) (point-max)))) -(defun git-email--dired () +(defun git-email--dired-files () "Return list of filenames for marked files in `dired'. If no marks are found, return the filename at point." (delq nil @@ -141,7 +141,7 @@ If no marks are found, return the filename at point." (lambda (f) (if (file-directory-p f) nil f)) (dired-map-over-marks (dired-get-filename) nil)))) -(defun git-email--vc-dir () +(defun git-email--vc-dir-files () "Return list of filenames for marked files in `vc-dir'. If no marks are found, return the filename at point." (let* ((marked-files (nreverse (vc-dir-marked-files))) @@ -150,7 +150,7 @@ If no marks are found, return the filename at point." (list (vc-dir-current-file))))) files)) -(defun git-email--ibuffer () +(defun git-email--ibuffer-files () "Return list of filenames for marked files in `ibuffer'." (let ((marked-files (nreverse (mapcar (lambda (b) (buffer-file-name b)) @@ -161,11 +161,11 @@ If no marks are found, return the filename at point." "Return list of filenames for marked files in `vc-dir'. If no marks are found, return the filename at point." (cond ((eq major-mode 'dired-mode) - (git-email--dired)) + (git-email--dired-files)) ((eq major-mode 'vc-dir-mode) - (git-email--vc-dir)) + (git-email--vc-dir-files)) ((eq major-mode 'ibuffer-mode) - (git-email--ibuffer)) + (git-email--ibuffer-files)) (t (message "Not a supported major mode")))) |