[Emacs-diffs] Changes to emacs/lisp/textmodes/two-column.el, v [EMACS_22_BASE]

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Martin Rudalics <m061211>       07/08/08 06:01:52

Index: two-column.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/two-column.el,v
retrieving revision 1.36.2.1
retrieving revision 1.36.2.2
diff -u -b -r1.36.2.1 -r1.36.2.2
--- two-column.el       25 Jul 2007 04:22:05 -0000      1.36.2.1
+++ two-column.el       8 Aug 2007 06:01:52 -0000       1.36.2.2
@@ -347,7 +347,7 @@
 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))
+  (unless (window-full-width-p)
       (enlarge-window 99999 t))
   (split-window-horizontally
    (max window-min-width (min 2C-window-width
@@ -533,7 +533,7 @@
          (insert 2C-separator string))
        (next-line 1)                   ; add one if necessary
        (set-buffer b2))))
-  (if (< (window-width) (frame-width))
+  (unless (window-full-width-p)
       (enlarge-window 99999 t)))
 
 ;;;;; utility functions ;;;;;