From: Ken Manheimer <ken.manheimer@gmail.com>
Date: Fri, 29 Jan 2016 05:47:02 +0000 (-0500)
Subject: multishell - include active shell buffers names along with history entries.
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/6e308f9f0ed7421baab802faa21dfef53196a39c

multishell - include active shell buffers names along with history entries.

The effect is that existing shell buffers will complete as both the bare
names and the name/path forms, while purely history entries will
complete as just the name/path forms. The difference will provide a cue,
a kind of lubrication for completing existing buffers.
---

diff --git a/multishell.el b/multishell.el
index dc979f015..2f4375290 100644
--- a/multishell.el
+++ b/multishell.el
@@ -519,10 +519,8 @@ Return the supplied name, if provided, else return nil."
                              (and (buffer-live-p buffer)
                                   (with-current-buffer buffer
                                     ;; Shell mode buffers.
-                                    (derived-mode-p 'shell-mode))
-                                  ;; Allow duplicates, as sign of buffers that
-                                  ;; currently exist vs historical entries.
-                                  ;;(not (multishell-history-entries name))
+                                    (and (derived-mode-p 'shell-mode)
+                                         (comint-check-proc (current-buffer))))
                                   name)))
                          (buffer-list)))
            multishell-history))