\r
(defun diff-hl-changes ()\r
(let* ((buf-name " *diff-hl* ")\r
- (file (buffer-file-name))\r
+ (file buffer-file-name)\r
(backend (vc-backend file))\r
res)\r
(when (and backend (not (eq (vc-state file backend) 'up-to-date)))\r
"Turn on `diff-hl-mode' or `diff-hl-dir-mode' in a buffer if appropriate."\r
(when (window-system) ;; No fringes in the console.\r
(cond\r
- ;; FIXME: Why is this called twice for each buffer?\r
- ;; Isn't fundamental-mode supposed to not run any hooks?\r
- ((and buffer-file-name (not (eq major-mode (default-value 'major-mode))))\r
+ (buffer-file-name\r
(diff-hl-mode 1))\r
((eq major-mode 'vc-dir-mode)\r
(diff-hl-dir-mode 1)))))\r