When a function is called on a region, I want a visual indication of affected area (a blink for ex.). Say, I've written a function upcasing previous word, and after evaluation I immediately get the result (and that's good) but I also want region highlighted for a sec. How could it be implemented?
Also I even can't get the region remain highlighted after the evaluation.
(setq mark-active t) doesn't seem to work at all. Mark is forced to deactivate after interactive function or what?
(defun upcase-previous-WORD () (interactive) (set-mark (point)) (forward-whitespace -1) (call-interactively 'upcase-region) (exchange-point-and-mark) (setq mark-active t)))