Fix custom :type of dired-mouse-drag-files

* lisp/dired.el (dired-mouse-drag-files): Fix :type to allow
specifying 'move'.  (Bug#65497)

diff --git a/lisp/dired.el b/lisp/dired.el
index 4c2e9243e6c35396f77fde80dc7584e03fb7ad06..e5110e76a7676836163464677f61bf219af9aafb 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -294,7 +294,7 @@ then this will always be equivalent to `move'."
                (revert-buffer nil t)))))
   :type '(choice (const :tag "Don't allow dragging" nil)
                  (const :tag "Copy file to new location" t)
-                 (const :tag "Move file to new location" t)
+                 (const :tag "Move file to new location" move)
                  (const :tag "Create symbolic link to file" link))
   :group 'dired
   :version "29.1")