; * lisp/dired.el (dired--make-directory-clickable): Fix typo.

diff --git a/lisp/dired.el b/lisp/dired.el
index 7a8f1ae7a16b1ca2af341d9f0f76b9172d4a0cb2..209e270942b96a3fccc47d0bf1e382677f0f2d01 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1919,7 +1919,7 @@ mouse-2: visit this file in other window"
       (let ((bound (line-end-position))
             (segment-start (point))
             (inhibit-read-only t)
-            (dir (substring (match-string 1) 2)))
+            (dir (substring (match-string 0) 2)))
         (while (search-forward "/" bound t 1)
           (setq dir (concat dir (buffer-substring segment-start (point))))
           (add-text-properties