magit-revert-item cl-flet (option 2, cl-letf)

Maybe replaces PR #897.