(And "^delete-selection-mode is active$"
     (lambda ()
        (delete-selection-mode 1)))