(sh-canonicalize-shell): Fix regexp.

(sh-set-shell): Likewise.

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 53e9d6ab151cf8f7c5ad1229b373487fef93f263..ded6d4b8eab9d14cc0d4f8b21d6859f36b870932 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -195,7 +195,7 @@ the car and cdr are the same symbol.")
 
 (defun sh-canonicalize-shell (shell)
   "Convert a shell name SHELL to the one we should handle it as."
-  (if (string-match "\.exe\\'" shell)
+  (if (string-match "\\.exe\\'" shell)
       (setq shell (substring shell 0 (match-beginning 0))))
   (or (symbolp shell)
       (setq shell (intern shell)))
@@ -840,7 +840,7 @@ Calls the value of `sh-set-shell-hook' if set."
                                      (lambda (x) (eq (cdr x) 'sh-mode)))
                     (eq executable-query 'function)
                     t))
-  (if (string-match "\.exe\\'" shell)
+  (if (string-match "\\.exe\\'" shell)
       (setq shell (substring shell 0 (match-beginning 0))))
   (setq sh-shell (intern (file-name-nondirectory shell))
        sh-shell (or (cdr (assq sh-shell sh-alias-alist))