diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2016-01-07 22:13:16 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2016-01-09 03:39:01 -0500 |
| commit | fbb0adb8f3403613014d41b6430e2c46fca5e1a5 (patch) | |
| tree | 5d9562a576f44b1882913d38d07a680b8a2e6ffe /lisp/init-python.el | |
| parent | 61d0552371cf350be2b9888759dfc57e9bcba3a5 (diff) | |
| download | emacs.d-fbb0adb8f3403613014d41b6430e2c46fca5e1a5.tar.gz | |
Add km/mode-buffers function
Diffstat (limited to 'lisp/init-python.el')
| -rw-r--r-- | lisp/init-python.el | 9 |
1 files changed, 1 insertions, 8 deletions
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) |