From: Po Lu Date: Fri, 25 Mar 2022 12:33:23 +0000 (+0800) Subject: Make it easier to select text inside dired when mouse dragging is on X-Git-Tag: emacs-29.0.90~1931^2~924 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3fac06dfb8d11985e855d4243518095cbdfede05;p=emacs.git Make it easier to select text inside dired when mouse dragging is on * lisp/dired.el (dired-insert-set-properties): Only set drag keymap on the filename itself. --- diff --git a/lisp/dired.el b/lisp/dired.el index 3790197f661..d6c5721ca28 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1733,20 +1733,26 @@ see `dired-use-ls-dired' for more details.") 'invisible 'dired-hide-details-information)) (put-text-property (+ (line-beginning-position) 1) (1- (point)) 'invisible 'dired-hide-details-detail) + (when dired-mouse-drag-files + (put-text-property (point) + (save-excursion + (dired-move-to-end-of-filename) + (backward-char) + (point)) + 'keymap + dired-mouse-drag-files-map)) (add-text-properties (point) (progn (dired-move-to-end-of-filename) (point)) - (append `(mouse-face - highlight - dired-filename t - help-echo ,(if dired-mouse-drag-files - "down-mouse-1: drag this file to another program + `(mouse-face + highlight + dired-filename t + help-echo ,(if dired-mouse-drag-files + "down-mouse-1: drag this file to another program mouse-2: visit this file in other window" - "mouse-2: visit this file in other window")) - (when dired-mouse-drag-files - `(keymap ,dired-mouse-drag-files-map)))) + "mouse-2: visit this file in other window"))) (when (< (+ (point) 4) (line-end-position)) (put-text-property (+ (point) 4) (line-end-position) 'invisible 'dired-hide-details-link))))