magit-revert-item cl-flet (option 3, cl-labels)

Maybe replaces PR #897.