diff options
| -rw-r--r-- | lisp/dired.el | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index cc548baf080..998de06ee63 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1941,9 +1941,18 @@ mouse-2: visit this file in other window" | |||
| 1941 | keymap ,(let* ((current-dir dir) | 1941 | keymap ,(let* ((current-dir dir) |
| 1942 | (click (lambda () | 1942 | (click (lambda () |
| 1943 | (interactive) | 1943 | (interactive) |
| 1944 | (if (assoc current-dir dired-subdir-alist) | 1944 | (cond |
| 1945 | (dired-goto-subdir current-dir) | 1945 | ((assoc current-dir dired-subdir-alist) |
| 1946 | (dired current-dir))))) | 1946 | (dired-goto-subdir current-dir)) |
| 1947 | ;; If there is a wildcard character in the directory, don't | ||
| 1948 | ;; use the alternate file machinery which tries to keep only | ||
| 1949 | ;; one dired buffer open at once. | ||
| 1950 | ;; | ||
| 1951 | ;; FIXME: Is this code path reachable? | ||
| 1952 | ((insert-directory-wildcard-in-dir-p current-dir) | ||
| 1953 | (dired current-dir)) | ||
| 1954 | (t | ||
| 1955 | (dired--find-possibly-alternative-file current-dir)))))) | ||
| 1947 | (define-keymap | 1956 | (define-keymap |
| 1948 | "<mouse-2>" click | 1957 | "<mouse-2>" click |
| 1949 | "<follow-link>" 'mouse-face | 1958 | "<follow-link>" 'mouse-face |