From b20af96c24760c8522b13c32d7ba63cfe5b8f9e5 Mon Sep 17 00:00:00 2001 From: Visuwesh Date: Tue, 11 Jun 2024 10:51:39 +0530 Subject: [PATCH] Fix customisation buffer for dired group * lisp/dired-aux.el (dired-create-destination-dirs-on-trailing-dirsep): Actually concat the string. (Bug#71490) (cherry picked from commit 076e8ad5fc518e93dc7ab23b9dee007205580fbe) --- lisp/dired-aux.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 66763d41593..7f28e307a09 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -2262,14 +2262,14 @@ option are non-nil, renaming a directory named `old_name' to trailing /) is given or this option or `dired-create-destination-dirs' is nil, `old_name' will be renamed to `new_name'." - :type '(choice + :type `(choice (const :tag - (concat "Do not treat destination dirs with a " - "trailing directory separator specially") + ,(concat "Do not treat destination dirs with a " + "trailing directory separator specially") nil) (const :tag - (concat "Treat destination dirs with trailing " - "directory separator specially") + ,(concat "Treat destination dirs with trailing " + "directory separator specially") t)) :group 'dired :version "29.1") -- 2.39.2