branch: externals/vc-backup
commit 2bee77bc19e2ef62d763f64f72f6b1a0a3f7b51f
Author: Alfred M. Szmidt <a...@gnu.org>
Commit: Philip Kaludercic <phil...@posteo.net>
Just use a fixnum in vc-backup-diff.
---
vc-backup.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/vc-backup.el b/vc-backup.el
index 29f1266..30d9fa4 100644
--- a/vc-backup.el
+++ b/vc-backup.el
@@ -330,7 +330,7 @@ BUFFER and ASYNC as interpreted as specified in vc.el."
(setq rev1 (or rev1 vc-backup--current-tag))
(setq rev2 (or rev2 (vc-backup--last-rev files)))
(save-window-excursion
- (let ((dirty nil))
+ (let ((dirty 0))
(dolist (file files)
(let ((diff (diff-no-select
(vc-backup--get-backup-file file rev2)
@@ -341,8 +341,8 @@ BUFFER and ASYNC as interpreted as specified in vc.el."
(unless async
(with-current-buffer diff
(unless (search-forward "no differences" nil t)
- (setq dirty t))))))
- (if dirty 1 0))))
+ (setq dirty 1))))))
+ dirty)))
(defun vc-backup-revision-completion-table (files)
"Return a list of revisions for FILES."
