diff options
Diffstat (limited to 'git-email.el')
| -rw-r--r-- | git-email.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/git-email.el b/git-email.el index cf294bd..393e97c 100644 --- a/git-email.el +++ b/git-email.el @@ -125,6 +125,13 @@ If no marks are found, return the filename at point." (list (vc-dir-current-file))))) files)) +(defun git-email--ibuffer () + "Return list of filenames for marked files in `ibuffer'." + (let ((marked-files (nreverse + (mapcar (lambda (b) (buffer-file-name b)) + (ibuffer-get-marked-buffers))))) + marked-files)) + (defun git-email--get-filenames () "Return list of filenames for marked files in `vc-dir'. If no marks are found, return the filename at point." @@ -132,6 +139,8 @@ If no marks are found, return the filename at point." (git-email--dired)) ((eq major-mode 'vc-dir-mode) (git-email--vc-dir)) + ((eq major-mode 'ibuffer-mode) + (git-email--ibuffer)) (t (message "Not a supported major mode")))) |