anchor.diff:        (character-offset p -1))
       (character-offset p -1)))
   
  +(define-command paredit-insert-doublequote () ()
  +  (let ((p (current-point)))
  +    (when (eql (character-at p -1) #\\)
  +      (insert-character p #\")
  +      (return-from paredit-insert-doublequote))
  +    (unless (or (eql (character-at p -1) #\Space)
  +                (bolp p))
  +      (insert-character p #\Space))
  +    (dolist (c '(#\" #\"))
  +      (insert-character p c))
  +    (unless (or (eolp p)
  +                (eql (character-at p) #\Space))
  +      (insert-character p #\Space)
  +      (character-offset p -1))
  +    (character-offset p -1)))
  +
   (define-command paredit-backward-delete (&optional (n 1)) ("p")
     (when (< 0 n)
       (with-point ((p (current-point)))
  
positive.code:                (delete-next-char)
                 (delete-previous-char)))
          (#\) (backward-char))
          (otherwise
           (delete-previous-char))))
      (paredit-backward-delete (1- n))))
  
negative.code:                        (backward-sexp . paredit-backward)
                         ("(" . paredit-insert-paren)
                         (")" . paredit-close-parenthesis)
                         ("\"" . paredit-insert-doublequote)
                         (delete-previous-char . paredit-backward-delete)
                         ("C-Right" . paredit-slurp)
                         ("C-Left" . paredit-barf)
  