diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2014-10-06 08:45:10 +0200 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2014-10-06 08:45:10 +0200 |
| commit | e76955cbb521aee4af70a8c93d9f1be5f1d3f4a6 (patch) | |
| tree | a1723768bdbd850a1cc00be0b411e93bd201a3f0 | |
| parent | da55edac25ea1907da888f4c506cc20eac24d147 (diff) | |
| download | emacs-e76955cbb521aee4af70a8c93d9f1be5f1d3f4a6.tar.gz | |
In term-window-width subtract 1 from width when any fringe has zero width. (Bug#18601)
* term.el (term-window-width): Subtract 1 from the width when
any fringe has zero width, not just the right fringe. (Bug#18601)
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/term.el | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d5eda032f74..5045e5d1469 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-10-06 Martin Rudalics <rudalics@gmx.at> + + * term.el (term-window-width): Subtract 1 from the width when + any fringe has zero width, not just the right fringe. (Bug#18601) + 2014-10-05 Leo Liu <sdl.web@gmail.com> * imenu.el (imenu-default-goto-function): Fix typo. diff --git a/lisp/term.el b/lisp/term.el index ce6125e2790..f361b983e48 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -974,6 +974,9 @@ is buffer-local." (if (and (not (featurep 'xemacs)) (display-graphic-p) overflow-newline-into-fringe + ;; Subtract 1 from the width when any fringe has zero width, + ;; not just the right fringe. Bug#18601. + (/= (frame-parameter nil 'left-fringe) 0) (/= (frame-parameter nil 'right-fringe) 0)) (window-body-width) (1- (window-body-width)))) |