# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 909745362 0
# Node ID 660727693bf6798095cfa34db7c1bce71d3de6d3
# Parent  cec6b3f8f355b6f0fbb26b11eff4d2d6be0d02c5
(sh-canonicalize-shell): Fix regexp.
(sh-set-shell): Likewise.

diff -r cec6b3f8f355 -r 660727693bf6 lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Fri Oct 30 11:01:38 1998 +0000
+++ b/lisp/progmodes/sh-script.el	Fri Oct 30 11:02:42 1998 +0000
@@ -195,7 +195,7 @@
 
 (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 @@
 				      (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))