From fbb0adb8f3403613014d41b6430e2c46fca5e1a5 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 7 Jan 2016 22:13:16 -0500 Subject: Add km/mode-buffers function --- lisp/init-dired.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'lisp/init-dired.el') diff --git a/lisp/init-dired.el b/lisp/init-dired.el index 8cb215e..ba976ea 100644 --- a/lisp/init-dired.el +++ b/lisp/init-dired.el @@ -65,12 +65,7 @@ (defun km/dired-completing-buffer () (completing-read "Dired buffer: " - (-map 'buffer-name (km/dired-buffer-list)))) - -(defun km/dired-buffer-list () - (--filter (with-current-buffer it - (derived-mode-p 'dired-mode)) - (buffer-list))) + (mapcar #'buffer-name (km/mode-buffers 'dired-mode)))) (defun km/org-open-dired-marked-files (&optional arg) "Open marked files (or next ARG) with `org-open-file'." -- cgit v1.2.3