Advising expand-region

[Jason White <jason@xxxxxxxxxxx>]

This is an interesting package that grows the region around point on
successive invocations of expand-region, according to the syntax of the text
in the buffer. You can also use contract-region if you have expanded too far.

git clone git://github.com/magnars/expand-region.el.git expand-region

Attached is preliminary Emacspeak advice for this package.

It would benefit from testing and feedback - comments welcome.

(loop for f in
      '(er/expand-region
	er/contract-region)
      do
      (eval `(defadvice ,f (around emacspeak pre act comp)
	       "Provide auditory feedback."
	       (let ((emacspeak-speak-messages)
		     (history er/history))
		 ad-do-it
		 (when (interactive-p)
		   (let ((deactivate-mark))
		     (unless (eql history er/history)
		       (emacspeak-auditory-icon 'mark-object)
		       (ems-set-personality-temporarily (point) (mark) 'animate
							(emacspeak-speak-region (point) (mark))))))))))