mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

(2C-two-columns, 2C-merge): Use window-full-width-p instead of comparing

Browse Source 
frame-width and window-width.
This commit is contained in:
Martin Rudalics 2007-08-08 06:04:51 +00:00
parent 0dad3dfecc
commit eaccbbd3c4
2 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/ChangeLog
View File

@ -1,3 +1,16 @@
2007-08-08 Martin Rudalics <rudalics@gmx.at>
* dired.el (dired-pop-to-buffer):
* mouse-drag.el (mouse-drag-should-do-col-scrolling):
* calendar/calendar.el (generate-calendar-window):
* progmodes/compile.el (compilation-set-window-height):
* textmodes/two-column.el (2C-two-columns, 2C-merge):
Use window-full-width-p instead of comparing frame-width and
window-width.
* progmodes/compile.el (compilation-find-buffer): Remove extra
argument in call to compilation-buffer-internal-p.
2007-08-07 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-handle-file-remote-p): Handle optional

8
lisp/textmodes/two-column.el
View File

@ -347,8 +347,8 @@ When called again, restores the screen layout with the current buffer
first and the associated buffer to its right."
(interactive "P")
;; first go to full width, so that we can certainly split into two windows
(if (< (window-width) (frame-width))
(enlarge-window 99999 t))
(unless (window-full-width-p)
(enlarge-window 99999 t))
(split-window-horizontally
(max window-min-width (min 2C-window-width
(- (frame-width) window-min-width))))
@ -533,8 +533,8 @@ off trailing spaces with \\[delete-trailing-whitespace]."
(insert 2C-separator string))
(next-line 1) ; add one if necessary
(set-buffer b2))))
(if (< (window-width) (frame-width))
(enlarge-window 99999 t)))
(unless (window-full-width-p)
(enlarge-window 99999 t)))
;;;;; utility functions ;;;;;