anchor.diff:                        1))))
         (decf (window-ncols) ncols)
         (split-window-after newwin :hsplit))))
  +
  +(defun split-window ()
  +  (if (< *window-sufficient-width* (window-ncols *current-window*))
  +      (split-window-horizontally)
  +      (split-window-vertically)))
   
   (defun get-next-window (window)
     (let* ((window-list (window-list))
  
positive.code:                                    new-window))))
    t)
  
  (define-key *global-keymap* (kbd "C-x 2") 'split-window)
  (define-command split-window () ()
    (multiple-value-bind (nlines rem)
        (floor (window-nlines) 2)
      (let ((newwin (make-window
  
negative.code: 
  (defvar *current-cols*)
  (defvar *current-lines*)
  
  (defvar *window-sufficient-width* 150)
  
  (defvar *modeline-default-format*
    (list 'modeline-read-only-p
  