masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-11 22:50:49 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix mouse clicks on directory line in Dired

Browse source 
The option 'dired-kill-when-opening-new-dired-buffer' should be
also honored when clicking the mouse to kill prev buffer.
* lisp/dired.el (dired--make-directory-clickable): Call
'dired--find-possibly-alternative-file' instead of 'dired', in
the click callback.  (Bug#67856)
This commit is contained in:
Jared Finder 2023-12-16 12:10:03 -08:00 • committed by Eli Zaretskii
parent be8a7155b4
commit fcbb004489
1 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/dired.el
View file

@ -1941,9 +1941,18 @@ mouse-2: visit this file in other window"
keymap ,(let* ((current-dir dir) keymap ,(let* ((current-dir dir)
(click (lambda () (click (lambda ()
(interactive) (interactive)
(if (assoc current-dir dired-subdir-alist) (cond
(dired-goto-subdir current-dir) ((assoc current-dir dired-subdir-alist)
(dired current-dir))))) (dired-goto-subdir current-dir))
;; If there is a wildcard character in the directory, don't
;; use the alternate file machinery which tries to keep only
;; one dired buffer open at once.
;;
;; FIXME: Is this code path reachable?
((insert-directory-wildcard-in-dir-p current-dir)
(dired current-dir))
(t
(dired--find-possibly-alternative-file current-dir))))))
(define-keymap (define-keymap
"<mouse-2>" click "<mouse-2>" click
"<follow-link>" 'mouse-face "<follow-link>" 'mouse-face