mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

Make it easier to select text inside dired when mouse dragging is on

Browse Source 
* lisp/dired.el (dired-insert-set-properties): Only set drag
keymap on the filename itself.
This commit is contained in:
Po Lu 2022-03-25 20:33:23 +08:00
parent 1b7a9753e1
commit 3fac06dfb8
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/dired.el
View File

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