anchor.diff:    (prev-char n))
   
   (define-key *global-keymap* "C-d" 'delete-char)
  -(define-command delete-char (&optional n) ("P")
  +(define-command delete-char (&optional n does-not-kill-p) ("P")
     (cond
      ((and n (minusp n))
       (backward-delete-char (- n)))
  
positive.code:       (return)))
    (do () ((eobp))
      (let ((result (blank-line-p)))
        (unless (and result
                     (dotimes (_ result t)
                       (unless (delete-char)
                         (return))))
          (return)))))
  
  (define-key *global-keymap* "C-t" 'transpose-characters)
  
negative.code:       (if (or (and ignore-newline-p (char= c #\newline))
                (not (syntax-space-char-p c)))
          (return n)
          (delete-char 1 (not use-kill-ring))))))
  
  (define-key *global-keymap* "M- " 'just-one-space)
  (define-command just-one-space () ()
  