[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/two-column.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/two-column.el,v |
Date: |
Mon, 13 Aug 2007 13:41:36 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 07/08/13 13:41:28
Index: lisp/textmodes/two-column.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/two-column.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- lisp/textmodes/two-column.el 26 Jul 2007 05:27:35 -0000 1.37
+++ lisp/textmodes/two-column.el 13 Aug 2007 13:40:49 -0000 1.38
@@ -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 ;;;;;
@@ -561,8 +561,10 @@
(newline arg))
(defun 2C-toggle-autoscroll (arg)
- "Toggle autoscrolling, or set it iff prefix ARG is non-nil and positive.
-When autoscrolling is turned on, this also realigns the two buffers."
+ "Toggle autoscrolling.
+With prefix argument ARG, turn on autoscrolling if ARG is
+positive, otherwise turn it off. When autoscrolling is turned
+on, this also realigns the two buffers."
(interactive "P")
;(sit-for 0)
(setq 2C-autoscroll-start (window-start))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/two-column.el,v,
Miles Bader <=