anchor.diff:           (window-cur-col)
            (or n 1))
         (when result
  -        (when n
  +        (when (and (not does-not-kill-p) n)
             (with-kill ()
               (kill-push lines)))
           (dolist (win *window-list*)
  
positive.code:       (if (or (and ignore-newline-p (char= c #\newline))
                (not (syntax-space-char-p c)))
          (return n)
          (delete-char (if use-kill-ring 1 nil))))))
  
  (define-key *global-keymap* "M- " 'just-one-space)
  (define-command just-one-space () ()
  
negative.code:       (return)))
    (do () ((eobp))
      (let ((result (blank-line-p)))
        (unless (and result (delete-char result t))
          (return)))))
  
  (define-key *global-keymap* "C-t" 'transpose-characters)
  