             (with-current-buffer buf
               (revert-buffer :ignore-auto :noconfirm :preserve-modes))
           ;; Otherwise, kill the buffer.
-          (let (kill-buffer-query-functions) ; No query done when killing buffer
+          (let (kill-buffer-query-functions) ;No query done when killing buffer
             (kill-buffer buf)
             (message "Killed non-existing/unreadable file buffer: %s" filename))))))
   (message "Finished reverting buffers containing unmodified files."))

  (let* ((file-name-full (buffer-file-name))
         (file-name (when file-name-full
                      (cl-case arg
                        (4 (file-name-nondirectory file-name-full)) ; C-u
                        (16 file-name-full) ; C-u C-u
                        (t ; If $USER==xyz, replace _xyz with _${USER} in file name
                         (replace-regexp-in-string ; no prefix
                          (concat "_" (getenv "USER")) "_$USER" file-name-full))))))
    (if file-name
        (progn

;; Below bindings are made in global map and not in my minor mode as I want
;; to allow other modes to override these.
(bind-keys
 ("<C-M-up>" . modi/scroll-down)
 ("<C-M-down>" . modi/scroll-up)
 ("<C-M-left>" . modi/scroll-other-window-down)
 ("<C-M-right>" . modi/scroll-other-window-up))

;;; File Permissions
