From 1b2b6e5abe22c70e618780d5bab7651ab04ca5bf Mon Sep 17 00:00:00 2001 From: yoctocell Date: Wed, 6 Jan 2021 11:02:05 +0100 Subject: Rename some functions * git-email.el (git-email--dired): (git-email--vc-dir): (git-email--ibuffer): (git-email--get-filenames): --- git-email.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'git-email.el') 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")))) -- cgit v1.2.3