diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-06-16 22:31:40 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-06-16 22:31:40 -0400 |
| commit | bd9b9f8f8694d9bc964019c61f23ca442cafb1af (patch) | |
| tree | 12d67aa6dc54bc3fb287ced4a3756835110fb4c7 | |
| parent | 6acc970159578c95c94762f2a185aa2d4891ba40 (diff) | |
| download | emacs.d-bd9b9f8f8694d9bc964019c61f23ca442cafb1af.tar.gz | |
org-open-dired-marked-files: Add prefix argument
| -rw-r--r-- | lisp/init-dired.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/init-dired.el b/lisp/init-dired.el index 4b59704..4e3e967 100644 --- a/lisp/init-dired.el +++ b/lisp/init-dired.el @@ -48,13 +48,13 @@ ;; This overrides the binding for `list-directory'. (global-set-key (kbd "C-x C-d") 'km/dired-switch-to-buffer) -(defun km/org-open-dired-marked-files () - (interactive) +(defun km/org-open-dired-marked-files (&optional in-emacs) + (interactive "P") (let* ((files (dired-get-marked-files)) (num-files (length files))) (when (or (< num-files 5) (yes-or-no-p (format "Open %s files?" num-files))) - (-each files 'org-open-file)))) + (--each files (org-open-file it in-emacs))))) (after 'org ;; This overrides `dired-find-file', which is also bound to "f". |