diff options
| -rw-r--r-- | lisp/ffap.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 5bba729fce3..314d48e9ca8 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el | |||
| @@ -1793,7 +1793,11 @@ ffap most of the time." | |||
| 1793 | ;; Extra complication for the temporary highlighting. | 1793 | ;; Extra complication for the temporary highlighting. |
| 1794 | (unwind-protect | 1794 | (unwind-protect |
| 1795 | (ffap-read-file-or-url | 1795 | (ffap-read-file-or-url |
| 1796 | (if ffap-url-regexp "Dired file or URL: " "Dired file: ") | 1796 | (cond |
| 1797 | ((eq ffap-directory-finder 'list-directory) | ||
| 1798 | "List directory (brief): ") | ||
| 1799 | (ffap-url-regexp "Dired file or URL: ") | ||
| 1800 | (t "Dired file: ")) | ||
| 1797 | (prog1 | 1801 | (prog1 |
| 1798 | (setq guess (or guess | 1802 | (setq guess (or guess |
| 1799 | (let ((guess (ffap-guesser))) | 1803 | (let ((guess (ffap-guesser))) |