Re: BUG REPORT: "delsel.el"

[Richard Stallman]

    +  (unless transient-mark-mode
    +    (setq mark-active nil)
    +    (run-hooks 'deactivate-mark-hook))

To quote the doc string of delete-selection-mode:

    When Delete Selection mode is enabled, Transient Mark mode is also
    enabled and typed text replaces the selection if the selection is
    active.

So putting (unless transient-mark-mode ...) around that code in
delete-active-region is equivalent to deleting it.  That can't be
right.

I do not actually use delsel mode.
Does this replacement function work right?

(defun delete-active-region (&optional killp)
  (if killp
      (kill-region (point) (mark))
    (delete-region (point) (mark)))
  (when mark-active
    (setq mark-active nil)
    (run-hooks 'deactivate-mark-hook))
  t)