bog-staged-files: Don't return backup files

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)))