branch: elpa/dirvish
commit d877433f957a363ad78b228e13a8e5215f2d6593
Author: Alex Lu <hellosimon1...@hotmail.com>
Commit: Alex Lu <hellosimon1...@hotmail.com>
chore: melpazoid warnings
---
dirvish-extras.el | 3 ++-
dirvish-fd.el | 2 +-
dirvish.el | 2 +-
extensions/dirvish-yank.el | 14 +++++++-------
4 files changed, 11 insertions(+), 10 deletions(-)
diff --git a/dirvish-extras.el b/dirvish-extras.el
index 40b84d9bd4..88c1c5c430 100644
--- a/dirvish-extras.el
+++ b/dirvish-extras.el
@@ -412,7 +412,8 @@ current layout defined in `dirvish-layout-recipes'."
[:description
(lambda () (dirvish--format-menu-heading
"Dirvish main menu"
- "NOTICE: these commands require relevant Dirvish extensions"))
+ "NOTICE: these commands require relevant Dirvish extensions")
+ (declare-function dirvish-narrow "dirvish-narrow"))
"" "Actions & Essential commands"
("u" "User interface setup" dirvish-setup-menu)
("c" "Dired cheatsheet" dirvish-dired-cheatsheet)
diff --git a/dirvish-fd.el b/dirvish-fd.el
index 8a18ae7ef2..bc30008fcd 100644
--- a/dirvish-fd.el
+++ b/dirvish-fd.el
@@ -21,7 +21,7 @@
:type 'string :group 'dirvish)
(defun dirvish-fd--find-fd-program (&optional remote)
- "Find fd programm on a local or `REMOTE' host ."
+ "Find fd programm on a local or REMOTE host ."
(let ((fd (executable-find "fd" remote))
(fdfind (executable-find "fdfind" remote)))
(cond (fd fd)
diff --git a/dirvish.el b/dirvish.el
index 452c3b3f9b..062279d9a5 100644
--- a/dirvish.el
+++ b/dirvish.el
@@ -466,7 +466,7 @@ Set process's SENTINEL and PUTS accordingly."
;;;; Session Struct
(cl-defstruct (dirvish (:conc-name dv-))
- "Define dirvish session (`DV' for short) struct."
+ "Define dirvish session (DV for short) struct."
(id (make-temp-name "") :documentation "is the unique key of DV
stored in `dirvish--sessions'.")
(timestamp (dirvish--timestamp) :documentation "is the last access
timestamp of DV.")
(type 'default :documentation "is the type of DV.")
diff --git a/extensions/dirvish-yank.el b/extensions/dirvish-yank.el
index 25355ad8c6..31d050395d 100644
--- a/extensions/dirvish-yank.el
+++ b/extensions/dirvish-yank.el
@@ -251,13 +251,13 @@ is t."
for help-form = (format-message "\
File `%s' exists, type one of the following keys to continue.
-- `y' or SPC to overwrite this file WITHOUT backup
-- `!' answer `y' (overwrite) for all remaining files
-- `n' or DEL to skip this file
-- `N' answer `n' (skip) for all remaining files
-- `b' to overwrite and backup this files
-- `B' answer `b' (overwrite and backup) for all remaining files
-- `q' or ESC to abort the task" src)
+- y or SPC to overwrite this file WITHOUT backup
+- ! answer y for all remaining files
+- n or DEL to skip this file
+- N answer n for all remaining files
+- b to overwrite and backup this files
+- B answer b for all remaining files
+- q or ESC to abort the task" src)
for base = (file-name-nondirectory src)
for collision = (member base dfiles) do
(cond ((equal src (concat dest base))
