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:   (prev-char n))
  
  (define-key *global-keymap* "C-d" 'delete-char)
  (define-command delete-char (&optional n) ("P")
    (cond
     ((and n (minusp n))
      (backward-delete-char (- n)))
  
negative.code:   (let ((point (point)))
      (prev-line)
      (end-of-line)
      (delete-char (region-count (point) point) t)
      (just-one-space)
      t))
  
  