~pkal/vc-backup

2bee77bc19e2ef62d763f64f72f6b1a0a3f7b51f — Alfred M. Szmidt 5 months ago 06a86c9
Just use a fixnum in vc-backup-diff.
1 files changed, 3 insertions(+), 3 deletions(-)

M vc-backup.el
M vc-backup.el => vc-backup.el +3 -3
@@ 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."