* lisp/shell.el (shell-directory-tracker): Case matters. (Bug#8735)

2 files changed, 3 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index acde2b246c8..011e5e23e71 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-05-27  Glenn Morris  <rgm@gnu.org>
 
+        * shell.el (shell-directory-tracker): Case matters.  (Bug#8735)
+
         * files.el (set-auto-mode):
         Also respect mode: entries at the end of the file.  (Bug#8586)
 
diff --git a/lisp/shell.el b/lisp/shell.el
index 53455944ee6..e07f996823e 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -704,6 +704,7 @@ Environment variables are expanded, see function `substitute-in-file-name'."
                                (concat "^" shell-command-separator-regexp)
                                str) ; skip whitespace
                               (match-end 0)))
+                (case-fold-search)
                 end cmd arg1)
             (while (string-match shell-command-regexp str start)
               (setq end (match-end 0)