- (let ((rev (diff-hl-flydiff-create-revision
- buffer-file-name
- (vc-working-revision buffer-file-name
- (vc-responsible-backend buffer-file-name))))
- (temporary-file-directory
- (if (file-directory-p "/dev/shm/")
- "/dev/shm/"
- temporary-file-directory)))
+ (let* ((file buffer-file-name)
+ (temporary-file-directory
+ (if (file-directory-p "/dev/shm/")
+ "/dev/shm/"
+ temporary-file-directory))
+ (rev (diff-hl-flydiff-create-revision
+ file
+ (vc-working-revision file
+ (vc-responsible-backend file)))))