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

This commit is contained in:
Gerd Moellmann 2001-10-10 09:25:20 +00:00
parent 3c0fd84cfb
commit 88255adb6a
2 changed files with 15 additions and 3 deletions

View file

@ -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,Bm(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.

View file

@ -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))