bug#27569: delete-selection on yank via popup-menu

[Tak Kunihiro]

I want to yank via popup-menu with delete-selection-mode.
Problem is yanking via popup-menu does not delete region.

emacs -Q
(defun popup-edit-menu ()
 (interactive)
 (popup-menu menu-bar-edit-menu))
(define-key global-map [mouse-3] 'popup-edit-menu)
(delete-selection-mode 1)

1. kill something
2. select text (activate region) to be replaced
3. choose yank in popup-menu via mouse-3

Problem: Selected text by (2) is not deleted.

I barely see problem is that on delete-selection-pre-hook,
this-command is `popup-edit-menu' instead `yank'.

Is there a way to solve the problem?