(command-line-1): Bind tab-width to 8.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0c04f2aef06d2eb07d239e1ac04d929c4b37c22c..f8cf1e65c0dd6ef6ec48c760996317f6fd1c6807 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-10  Gerd Moellmann  <gerd@gnu.org>
+
+       * startup.el (command-line-1): Bind tab-width to 8.
+
 2001-10-10  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * emulation/tpu-edt.el: Use defalias instead of fset for
@@ -13,8 +17,11 @@
        * apropos.el (button): New require.
 
        * help-funs.el: New file, contents mostly from `help.el'.
-       (describe-variable): Use `condition-case' instead of `ignore-errors'.
+       (describe-variable): Use `condition-case' instead of
+       `ignore-errors'.
+       
        * help-mode.el: New file, contents mostly from `help.el'.
+       
        * help.el: Don't require `view' when compiling.
        (help-with-tutorial, describe-function, describe-function-1)
        (variable-at-point, describe-variable, locate-library):
@@ -35,9 +42,13 @@
        (load-symbol-file-load-history, symbol-file):
        Functions moved into `subr.el'.
        (symbol-file-load-history-loaded): Variable moved into `subr.el'.
-       (view-lossage): Call `help-setup-xref' instead of doing it manually.
+       (view-lossage): Call `help-setup-xref' instead of doing it
+       manually.
+       
        * subr.el (symbol-file-load-history-loaded) 
-       (load-symbol-file-load-history, symbol-file): Moved from `help.el'.
+       (load-symbol-file-load-history, symbol-file): Moved from
+       `help.el'.
+       
        * loadup.el ("button"): Load removed.
 
        * button.el (define-button-type): Respect any `supertype' property.

diff --git a/lisp/startup.el b/lisp/startup.el
index b12834a823a0c1546f0998aabfd042e7de6d94a1..b84c122e25ba4f958a33c9676c1231795ccae365 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1306,6 +1306,7 @@ where FACE is a valid face specification, as it can be used with
             ;; clicks the menu bar during the sit-for.
             (when (= (buffer-size) 0)
               (let ((buffer-undo-list t)
+                    (tab-width 8)
                     (wait-for-input t))
                 (unwind-protect
                     (when (not (input-pending-p))