From 9a825577040ff0f5b469eeff36eea3d031639193 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 11 Aug 2015 01:19:50 -0400 Subject: dired-jump-file-at-point: Use region if active --- lisp/init-files.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/init-files.el b/lisp/init-files.el index 1f8e846..104ca44 100644 --- a/lisp/init-files.el +++ b/lisp/init-files.el @@ -46,7 +46,10 @@ (defun km/dired-jump-file-at-point () "Run `dired-jump' on file at point." (interactive) - (let ((file (thing-at-point 'filename))) + (let ((file (or (and (use-region-p) + (buffer-substring-no-properties + (region-beginning) (region-end))) + (thing-at-point 'filename)))) (if (and file (file-exists-p file)) (dired-jump 'other-window (expand-file-name file)) (user-error "No file at point")))) -- cgit v1.2.3