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-python.el | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) (limited to 'lisp/init-python.el') diff --git a/lisp/init-python.el b/lisp/init-python.el index 3471a94..3af81ec 100644 --- a/lisp/init-python.el +++ b/lisp/init-python.el @@ -139,16 +139,9 @@ for a new string." (setq km/python-shell-current-string (read-string "Python command: " initial)))) (python-shell-send-string km/python-shell-current-string)) -(defun km/python--shell-buffers () - (delq nil (mapcar (lambda (b) - (with-current-buffer b - (and (derived-mode-p 'inferior-python-mode) - b))) - (buffer-list)))) - (defun km/python-shell--read-buffer () (let ((buf-alist (mapcar (lambda (b) (cons (buffer-name b) b)) - (km/python--shell-buffers)))) + (km/mode-buffers 'inferior-python-mode)))) (if (= (length buf-alist) 1) (cdr (car buf-alist)) (cdr (assoc-string (completing-read "Shell buffer: " buf-alist) -- cgit v1.2.3