2 files changed, 3 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9fd3e687405..f633f5f5de7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-08-23  Glenn Morris  <rgm@gnu.org>
 
+        * files.el (interpreter-mode-alist): Use tcl-mode for expect scripts.
+
         * files.el (create-file-buffer): Handle the vital case of a file
         whose basename is all spaces.  (Bug#15162)
 
diff --git a/lisp/files.el b/lisp/files.el
index 71dc968f160..9adbca10369 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2455,6 +2455,7 @@ and `magic-mode-alist', which determines modes based on file contents.")
      ("wishx" . tcl-mode)
      ("tcl" . tcl-mode)
      ("tclsh" . tcl-mode)
+     ("expect" . tcl-mode)
      ("scm" . scheme-mode)
      ("ash" . sh-mode)
      ("bash" . sh-mode)