(global-set-key (kbd "M-%") 'vr/query-replace)