diff options
| author | Richard M. Stallman | 2004-09-03 17:23:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-09-03 17:23:42 +0000 |
| commit | b4fab893cc4fb88a74e6ee203d77ac9bcd35c393 (patch) | |
| tree | beaf85a4dd64180d2b544eba27afe69a78b540b8 | |
| parent | 1e71278bd3f67a41df44c56361f2b9c3b346d61b (diff) | |
| download | emacs-b4fab893cc4fb88a74e6ee203d77ac9bcd35c393.tar.gz emacs-b4fab893cc4fb88a74e6ee203d77ac9bcd35c393.zip | |
(normal-top-level): Undo previous TERM change.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/startup.el | 3 |
2 files changed, 4 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 29b8f3fa81c..68eac702a2c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2004-09-03 Richard M. Stallman <rms@gnu.org> | ||
| 2 | |||
| 3 | * startup.el (normal-top-level): Undo previous TERM change. | ||
| 4 | |||
| 1 | 2004-09-03 Kim F. Storm <storm@cua.dk> | 5 | 2004-09-03 Kim F. Storm <storm@cua.dk> |
| 2 | 6 | ||
| 3 | * emulation/cua-rect.el (cua--overlay-keymap): New keymap for | 7 | * emulation/cua-rect.el (cua--overlay-keymap): New keymap for |
diff --git a/lisp/startup.el b/lisp/startup.el index c1b25b1867d..f376fe5e0e1 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -348,9 +348,6 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." | |||
| 348 | ;; `user-full-name' is now known; reset its standard-value here. | 348 | ;; `user-full-name' is now known; reset its standard-value here. |
| 349 | (put 'user-full-name 'standard-value | 349 | (put 'user-full-name 'standard-value |
| 350 | (list (default-value 'user-full-name))) | 350 | (list (default-value 'user-full-name))) |
| 351 | ;; Subprocesses of Emacs do not have direct access to the terminal, | ||
| 352 | ;; so unless told otherwise they should only assume a dumb terminal. | ||
| 353 | (setenv "TERM" "dumb") | ||
| 354 | ;; For root, preserve owner and group when editing files. | 351 | ;; For root, preserve owner and group when editing files. |
| 355 | (if (equal (user-uid) 0) | 352 | (if (equal (user-uid) 0) |
| 356 | (setq backup-by-copying-when-mismatch t)) | 353 | (setq backup-by-copying-when-mismatch t)) |