summaryrefslogtreecommitdiff
path: root/bog.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-04-11 23:39:35 -0400
committerKyle Meyer <kyle@kyleam.com>2015-04-11 23:39:35 -0400
commitd267679cb21ec66216813900bd1b7abae5be761a (patch)
treef2c34751a8c5cb59016141c7bb05ecad32c63fbc /bog.el
parent01160bfa8c6e92c7972917e71b449faa9aaf6df5 (diff)
downloadbog-d267679cb21ec66216813900bd1b7abae5be761a.tar.gz
bog-staged-files: Don't return backup files
Diffstat (limited to 'bog.el')
-rw-r--r--bog.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/bog.el b/bog.el
index 5c4cc0d..cf71331 100644
--- a/bog.el
+++ b/bog.el
@@ -690,7 +690,8 @@ Generate a file name with the form
(defun bog-staged-files ()
"Return files in `bog-stage-directory'."
- (cl-remove-if #'file-directory-p
+ (cl-remove-if (lambda (f) (or (file-directory-p f)
+ (backup-file-name-p f)))
(directory-files bog-stage-directory
t directory-files-no-dot-files-regexp)))