From: Visuwesh <visuweshm@gmail.com>
Date: Tue, 11 Jun 2024 05:21:39 +0000 (+0530)
Subject: Fix customisation buffer for dired group
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b20af96c24760c8522b13c32d7ba63cfe5b8f9e5;p=emacs.git

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)
---

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")