(normal-top-level): Set $TERM to `dumb' so that unless

stated otherwise, subprocesses do not send back escape sequences
corresponding to the terminal from which Emacs was started.

2 files changed, 22 insertions, 11 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6968d3183ee..ff7b73e50c1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-08-31  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * startup.el (normal-top-level): Set $TERM to `dumb' so that unless
+        stated otherwise, subprocesses do not send back escape sequences
+        corresponding to the terminal from which Emacs was started.
+
 2007-08-31  Thien-Thi Nguyen  <ttn@gnuvola.org>
 
         * calculator.el: Require cl for compilation.
@@ -29,8 +35,8 @@
         (org-cycle): Docstring updated.
         (org-todo-keyword-faces): New option.
         (org-get-todo-face): New function.
-        (org-set-font-lock-defaults, org-agenda-highlight-todo): Use
-        `org-get-todo-face'.
+        (org-set-font-lock-defaults, org-agenda-highlight-todo):
+        Use `org-get-todo-face'.
         (org-switch-to-buffer-other-window): New function.
         (org-table-edit-field, org-table-show-reference)
         (org-table-edit-formulas, org-add-log-note)
@@ -39,10 +45,10 @@
         `switch-to-buffer-other-window' to make sure that the temporary
         windows show up on the current frame.
         (org-mhe-get-message-real-folder, org-batch-store-agenda-views)
-        (org-get-entries-from-diary, org-replace-region-by-html): Don't
-        allow pop-up frames.
-        (org-agenda-get-deadlines, org-agenda-get-scheduled): Fixed
-        problems with time-of-day.
+        (org-get-entries-from-diary, org-replace-region-by-html):
+        Don't allow pop-up frames.
+        (org-agenda-get-deadlines, org-agenda-get-scheduled):
+        Fix problems with time-of-day.
         (org-export-get-title-from-subtree): New function.
         (org-agenda-get-scheduled, org-agenda-get-deadlines): Fix problems
         with listing items that are DONE.
@@ -57,12 +63,12 @@
 
 2007-08-30  Jari Aalto  <jari.aalto@cante.net>  (tiny change)
 
-        * progmodes/grep.el (grep-find-ignored-directories): Add
-        monotone _MTN bookkeeping directory in workspaces.  Add
-        RCS control directory.  List items in alphabetical order.
+        * progmodes/grep.el (grep-find-ignored-directories):
+        Add monotone _MTN bookkeeping directory in workspaces.
+        Add RCS control directory.  List items in alphabetical order.
 
         * progmodes/grep.el (grep-files-aliases): Add cc alias.
-        Sort items in alphabetical order. Fix parens.
+        Sort items in alphabetical order.  Fix parens.
 
 2007-08-29  Dan Nicolaescu  <dann@ics.uci.edu>
 
diff --git a/lisp/startup.el b/lisp/startup.el
index 1f42285d553..22cce3f8b38 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -486,7 +486,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
              (run-hooks 'window-setup-hook))
         (or menubar-bindings-done
             (if (display-popup-menus-p)
-                (precompute-menubar-bindings)))))))
+                (precompute-menubar-bindings)))))
+    ;; Subprocesses of Emacs do not have direct access to the terminal, so
+    ;; unless told otherwise they should only assume a dumb terminal.
+    ;; We are careful to do it late (after term-setup-hook), although the
+    ;; new multi-tty code does not use $TERM any more there anyway.
+    (setenv "TERM" "dumb")))
 
 ;; Precompute the keyboard equivalents in the menu bar items.
 (defun precompute-menubar-bindings ()