Fix lexial warnings and some unused var

dired-avfs.el

@@ -1,4 +1,4 @@
-;;; dired-avfs.el --- AVFS support for dired
+;;; dired-avfs.el --- AVFS support for dired -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2014 Matus Goljer
 

dired-columns.el

@@ -1,3 +1,4 @@
+;;  -*- lexical-binding: t; -*-
 (require 's)
 (require 'dash)
 

dired-hacks-utils.el

@@ -1,4 +1,4 @@
-;;; dired-hacks-utils.el --- Utilities and helpers for dired-hacks collection
+;;; dired-hacks-utils.el --- Utilities and helpers for dired-hacks collection -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2014-2015 Matúš Goljer
 
@@ -181,8 +181,7 @@ Each car in ALIST is a string representing file extension
   (save-excursion
     (goto-char (point-min))
     (forward-line)
-    (let ((inhibit-read-only t)
-          (limit (line-end-position)))
+    (let ((inhibit-read-only t))
       (while (re-search-forward "\\(?:directory\\|available\\) \\(\\<[0-9]+$\\>\\)" nil t)
         (replace-match
          (save-match-data

dired-hacks.el

@@ -1,4 +1,4 @@
-;;; dired-hacks.el --- Collection of useful dired additions
+;;; dired-hacks.el --- Collection of useful dired additions -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2014-2015 Matúš Goljer
 

dired-list.el

@@ -1,4 +1,4 @@
-;;; dired-list.el --- Create dired listings from sources
+;;; dired-list.el --- Create dired listings from sources -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2014-2015 Matúš Goljer
 
@@ -227,15 +227,13 @@ state of the buffer's process."
 (defun dired-list-mpc (query)
   "Search mpd(1) database using QUERY and display results as a `dired' buffer."
   (interactive "sMPC search query: ")
-  (let ((dired-list-before-buffer-creation-hook
-         '((lambda () (cd dired-list-mpc-music-directory)))))
-    (dired-list dired-list-mpc-music-directory
-                (concat "mpc " query)
-                (concat "mpc search "
-                        query
-                        " | tr '\\n' '\\000' | xargs -I '{}' -0 ls -l '{}' &")
-                `(lambda (ignore-auto noconfirm)
-                   (dired-list-mpc ,query)))))
+  (dired-list dired-list-mpc-music-directory
+              (concat "mpc " query)
+              (concat "mpc search "
+                      query
+                      " | tr '\\n' '\\000' | xargs -I '{}' -0 ls -l '{}' &")
+              `(lambda (ignore-auto noconfirm)
+                 (dired-list-mpc ,query))))
 
 ;;;###autoload
 (defun dired-list-git-ls-files (dir)

dired-narrow.el

@@ -1,4 +1,4 @@
-;;; dired-narrow.el --- Live-narrowing of search results for dired
+;;; dired-narrow.el --- Live-narrowing of search results for dired -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2014-2015 Matúš Goljer
 

dired-open.el

@@ -1,4 +1,4 @@
-;;; dired-open.el --- Open files from dired using using custom actions
+;;; dired-open.el --- Open files from dired using using custom actions -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2014-2015 Matúš Goljer
 

dired-rainbow.el

@@ -1,4 +1,4 @@
-;;; dired-rainbow.el --- Extended file highlighting according to its type
+;;; dired-rainbow.el --- Extended file highlighting according to its type -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2014-2017 Matus Goljer
 

dired-ranger.el

@@ -1,4 +1,4 @@
-;;; dired-ranger.el --- Implementation of useful ranger features for dired
+;;; dired-ranger.el --- Implementation of useful ranger features for dired -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2014-2015 Matúš Goljer
 

dired-subtree.el

@@ -1,4 +1,4 @@
-;;; dired-subtree.el --- Insert subdirectories in a tree-like fashion
+;;; dired-subtree.el --- Insert subdirectories in a tree-like fashion -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2014-2015 Matúš Goljer
 

dired-tagsistant.el

@@ -1,4 +1,4 @@
-;;; dired-tagsistant.el --- Tagsistant support for dired
+;;; dired-tagsistant.el --- Tagsistant support for dired -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2014 Matúš Goljer <[email protected]>