X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/da6811753a170961cc4f5173b85ceebb21291ddf..165dfe3ba8a8da8df07c23d7d352326091958e51:/packages/multishell/multishell.el

diff --git a/packages/multishell/multishell.el b/packages/multishell/multishell.el
index 7295aa1ea..a748b38d3 100644
--- a/packages/multishell/multishell.el
+++ b/packages/multishell/multishell.el
@@ -201,7 +201,7 @@ Promote added/changed entry to the front of the list."
 
 (defun multishell-history-entries (name)
   "Return `multishell-history' entry that starts with NAME, or nil if none."
-  (let ((match-expr (concat "^" name "\\\(/.*$\\\)?"))
+  (let ((match-expr (concat "^" name "\\\(/.*$\\\)?$"))
         got)
     (dolist (entry multishell-history)
       (when (and (string-match match-expr entry)