diff options
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index ca238a443f3..b98efceefbf 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -96,7 +96,6 @@ ;;; Code: -(eval-when-compile (require 'cl)) (require 'comint) (require 'pcomplete) @@ -1243,7 +1242,7 @@ Returns non-nil if successful." (variables (mapcar (lambda (x) (substring x 0 (string-match "=" x))) process-environment)) - (suffix (case (char-before start) (?\{ "}") (?\( ")") (t "")))) + (suffix (pcase (char-before start) (?\{ "}") (?\( ")") (_ "")))) (list start end variables :exit-function (lambda (s finished) |