Mercurial > emacs

changeset 23589:660727693bf6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sh-canonicalize-shell): Fix regexp. (sh-set-shell): Likewise.
author Andreas Schwab <schwab@suse.de>
date Fri, 30 Oct 1998 11:02:42 +0000
parents cec6b3f8f355
children 79d5477f09fd
files lisp/progmodes/sh-script.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))