branch: externals/do-at-point
commit 80dc74a8824b8332681fe10a6ca5fefece6eb9e0
Author: Philip Kaludercic <[email protected]>
Commit: Philip Kaludercic <[email protected]>
Add key to invoke Dired on (possibly non-existent) filenames
---
do-at-point.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/do-at-point.el b/do-at-point.el
index ca515b6b43..136bab8c3e 100644
--- a/do-at-point.el
+++ b/do-at-point.el
@@ -151,6 +151,10 @@ of this variable.")
,(lambda (path)
(require 'gnus-dired)
(gnus-dired-attach (list path)))))
+ (filename
+ (?d "Dired" ,(lambda (file)
+ (let ((default-directory (file-name-directory file)))
+ (dired-jump nil file)))))
(url
(?b "Browse" ,#'browse-url)
(?d "Download" ,#'(lambda (url)
