diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-09-07 20:54:03 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-09-07 20:54:03 +0000 |
| commit | 59cc2a2738f5aa23378e225b33708c03e2ca2f26 (patch) | |
| tree | e32bc67032e3cd2f91ef2f17a696d87b3c2bb217 | |
| parent | a01c5155e8e8672681abe1383f739043deaecdd1 (diff) | |
| download | emacs-59cc2a2738f5aa23378e225b33708c03e2ca2f26.tar.gz | |
(term-window-width): Only use full window width on
window system if overflow-newline-into-fringe is enabled.
(term-mode): Don't disable overflow-newline-into-fringe.
| -rw-r--r-- | lisp/term.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/term.el b/lisp/term.el index 9866db7e29c..590a9b0a1d5 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -925,7 +925,7 @@ is buffer-local.") (defun term-window-width () (if (featurep 'xemacs) (1- (window-width)) - (if window-system + (if (and window-system overflow-newline-into-fringe) (window-width) (1- (window-width))))) @@ -988,8 +988,6 @@ Entry to this mode runs the hooks on `term-mode-hook'." (make-local-variable 'term-width) (setq term-width (term-window-width)) (setq term-height (1- (window-height))) - (term-ifnot-xemacs - (set (make-local-variable 'overflow-newline-into-fringe) nil)) (make-local-variable 'term-terminal-parameter) (make-local-variable 'term-saved-cursor) (make-local-variable 'term-last-input-start) |