Fix customisation buffer for dired group
authorVisuwesh <visuweshm@gmail.com>
Tue, 11 Jun 2024 05:21:39 +0000 (10:51 +0530)
committerStefan Kangas <stefankangas@gmail.com>
Tue, 11 Jun 2024 21:22:53 +0000 (23:22 +0200)
* lisp/dired-aux.el
(dired-create-destination-dirs-on-trailing-dirsep): Actually
concat the string.  (Bug#71490)

lisp/dired-aux.el

index d2adf71f1431d748d69ec80ca4132241720c8db3..2e5d362ea44204ac3f3c3ddac9f003634eb81f53 100644 (file)
@@ -2273,14 +2273,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")