summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2011-05-26 21:54:56 -0400
committerGlenn Morris <rgm@gnu.org>2011-05-26 21:54:56 -0400
commit4b29d9fbfb7e347844dd0fa68be44b8c635f6f34 (patch)
treee72e1440f5e1d16d3f82a2021722fba7dba1c480
parent954595718400df00ef68680f76c2631c5cd83e72 (diff)
downloademacs-4b29d9fbfb7e347844dd0fa68be44b8c635f6f34.tar.gz
* lisp/shell.el (shell-directory-tracker): Case matters. (Bug#8735)
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/shell.el1
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)