summaryrefslogtreecommitdiff
path: root/lisp/dired-aux.el
diff options
context:
space:
mode:
authorVisuwesh <visuweshm@gmail.com>2024-06-11 10:51:39 +0530
committerStefan Kangas <stefankangas@gmail.com>2024-06-11 23:22:53 +0200
commit076e8ad5fc518e93dc7ab23b9dee007205580fbe (patch)
tree454cb3d6a11c81c93cb217f9152ed65f8333dfaa /lisp/dired-aux.el
parent3199b8584e4583a4b74263f5704a21c3431658c2 (diff)
Fix customisation buffer for dired group
* lisp/dired-aux.el (dired-create-destination-dirs-on-trailing-dirsep): Actually concat the string. (Bug#71490)
Diffstat (limited to 'lisp/dired-aux.el')
-rw-r--r--lisp/dired-aux.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index d2adf71f143..2e5d362ea44 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -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")