anchor.diff:  (define-key *global-keymap* (kbd "[dc]") 'delete-char)
   (define-command delete-char (&optional n does-not-kill-p) ("P")
     (cond
  -   ((and n (minusp n))
  -    (backward-delete-char (- n)))
  -   ((eobp) nil)
  -   (t
  -    (let ((lines
  -           (buffer-delete-char (current-buffer)
  -                               (window-current-linum)
  -                               (window-current-charpos)
  -                               (or n 1))))
  -      (when (and (not does-not-kill-p) n)
  -        (with-kill ()
  -          (kill-push lines)))
  -      t))))
  +    ((and n (minusp n))
  +     (backward-delete-char (- n)))
  +    ((eobp) nil)
  +    (t
  +     (let ((lines
  +             (buffer-delete-char (current-buffer)
  +                                 (current-linum)
  +                                 (current-charpos)
  +                                 (or n 1))))
  +       (when (and (not does-not-kill-p) n)
  +         (with-kill ()
  +           (kill-push lines)))
  +       t))))
   
   (define-key *global-keymap* (kbd "C-h") 'backward-delete-char)
   (define-key *global-keymap* (kbd "[backspace]") 'backward-delete-char)
  
positive.code:   (unless n
      (setq n (minibuf-read-number "Line to GOTO: ")))
    (when (< 0 n (1+ (buffer-nlines (current-buffer))))
      (setf (window-current-linum) n)
      (beginning-of-line)
      (unless does-not-recenter-p
        (recenter))
  
negative.code:   (delete-char)
    (buffer-insert-char
     (current-buffer)
     (current-linum)
     (current-charpos)
     c))
  
  (defun count-indent ()
  