From d267679cb21ec66216813900bd1b7abae5be761a Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 11 Apr 2015 23:39:35 -0400
Subject: bog-staged-files: Don't return backup files

---
 bog.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)))
 
-- 
cgit v1.2.3