mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(sh-canonicalize-shell): Fix regexp.

Browse Source 
(sh-set-shell): Likewise.
This commit is contained in:
Andreas Schwab 1998-10-30 11:02:42 +00:00
parent b735c9913f
commit 842cc0e685
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/progmodes/sh-script.el
View File

@ -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))