From 0c7e37ec63c01ab2bfe98877b52192e02c7c32c0 Mon Sep 17 00:00:00 2001 From: Arthur Miller Date: Tue, 17 Jun 2025 02:12:20 +0200 Subject: [PATCH] Fix lexial warnings and some unused var --- dired-avfs.el | 2 +- dired-columns.el | 1 + dired-hacks-utils.el | 5 ++--- dired-hacks.el | 2 +- dired-list.el | 18 ++++++++---------- dired-narrow.el | 2 +- dired-open.el | 2 +- dired-rainbow.el | 2 +- dired-ranger.el | 2 +- dired-subtree.el | 2 +- dired-tagsistant.el | 2 +- 11 files changed, 19 insertions(+), 21 deletions(-) diff --git a/dired-avfs.el b/dired-avfs.el index f82fd55..745941c 100644 --- a/dired-avfs.el +++ b/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 diff --git a/dired-columns.el b/dired-columns.el index 25fba0d..0a70aa9 100644 --- a/dired-columns.el +++ b/dired-columns.el @@ -1,3 +1,4 @@ +;; -*- lexical-binding: t; -*- (require 's) (require 'dash) diff --git a/dired-hacks-utils.el b/dired-hacks-utils.el index b492f76..937594b 100644 --- a/dired-hacks-utils.el +++ b/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 diff --git a/dired-hacks.el b/dired-hacks.el index b0ec0e1..3fd689b 100644 --- a/dired-hacks.el +++ b/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 diff --git a/dired-list.el b/dired-list.el index 9bca7be..7847d1a 100644 --- a/dired-list.el +++ b/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) diff --git a/dired-narrow.el b/dired-narrow.el index 1cc21f8..475386e 100644 --- a/dired-narrow.el +++ b/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 diff --git a/dired-open.el b/dired-open.el index 12131da..e8bc473 100644 --- a/dired-open.el +++ b/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 diff --git a/dired-rainbow.el b/dired-rainbow.el index a5e05a6..80f6680 100644 --- a/dired-rainbow.el +++ b/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 diff --git a/dired-ranger.el b/dired-ranger.el index e2390c4..f7ce3e4 100644 --- a/dired-ranger.el +++ b/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 diff --git a/dired-subtree.el b/dired-subtree.el index d50ab96..b62d280 100644 --- a/dired-subtree.el +++ b/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 diff --git a/dired-tagsistant.el b/dired-tagsistant.el index e5e566e..1705a29 100644 --- a/dired-tagsistant.el +++ b/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