diff options
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/two-column.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el index 2568b53fe36..eebd1923b63 100644 --- a/lisp/textmodes/two-column.el +++ b/lisp/textmodes/two-column.el | |||
| @@ -347,8 +347,8 @@ When called again, restores the screen layout with the current buffer | |||
| 347 | first and the associated buffer to its right." | 347 | first and the associated buffer to its right." |
| 348 | (interactive "P") | 348 | (interactive "P") |
| 349 | ;; first go to full width, so that we can certainly split into two windows | 349 | ;; first go to full width, so that we can certainly split into two windows |
| 350 | (if (< (window-width) (frame-width)) | 350 | (unless (window-full-width-p) |
| 351 | (enlarge-window 99999 t)) | 351 | (enlarge-window 99999 t)) |
| 352 | (split-window-horizontally | 352 | (split-window-horizontally |
| 353 | (max window-min-width (min 2C-window-width | 353 | (max window-min-width (min 2C-window-width |
| 354 | (- (frame-width) window-min-width)))) | 354 | (- (frame-width) window-min-width)))) |
| @@ -533,8 +533,8 @@ off trailing spaces with \\[delete-trailing-whitespace]." | |||
| 533 | (insert 2C-separator string)) | 533 | (insert 2C-separator string)) |
| 534 | (next-line 1) ; add one if necessary | 534 | (next-line 1) ; add one if necessary |
| 535 | (set-buffer b2)))) | 535 | (set-buffer b2)))) |
| 536 | (if (< (window-width) (frame-width)) | 536 | (unless (window-full-width-p) |
| 537 | (enlarge-window 99999 t))) | 537 | (enlarge-window 99999 t))) |
| 538 | 538 | ||
| 539 | ;;;;; utility functions ;;;;; | 539 | ;;;;; utility functions ;;;;; |
| 540 | 540 | ||