incremental search feedback

["T. V. Raman" <raman@xxxxxxxxxxx>]

describe-function on command 
isearch-delete-char shows that that command is advised --you
can tell by looking at the last line of the displayed
documentation

isearch-delete-char is an interactive compiled Lisp function in `isearch'.
(isearch-delete-char)

Discard last input item and move point back.  
If no previous match was done, just beep.

This function is advised.

After-advice `emacspeak':
Speak the search hit.
Produce auditory icons if possible.
>>>>> "James" == James R Van Zandt <jrv@xxxxxxxxxxx> writes:

    James> Some time ago Dr. Raman published the patch below
    James> to provide feedback as you hit backspace within
    James> incremental search.  Since then, I've been
    James> applying it to the Debian package.  I notice this
    James> code is not present in version 15.  Should I
    James> still be applying the patch?

    James> 	   - Jim Van Zandt


    James> --- emacspeak-15.orig/lisp/emacspeak-advice.el
    James> +++ emacspeak-15/lisp/emacspeak-advice.el @@
    James> -2950,6 +2950,26 @@ (file-name-sans-extension
    James> (ad-get-arg 0)))) ;;}}} + +;;Add the following
    James> defadvice form to your emacs init files --
    James> +;;alternatively, just add it into file
    James> emacspeak-advice.el +;;and you should get
    James> feedback as you hit backspace within
    James> +;;incremental search.  + +(defadvice
    James> isearch-delete-char (after emacspeak pre act) +
    James> "Speak the search hit.  + Produce auditory icons
    James> if possible. " + (dtk-speak isearch-string) +
    James> (when (sit-for 0.5) + (emacspeak-auditory-icon
    James> 'search-hit) + (ems-set-personality-temporarily +
    James> (point) + (if isearch-forward + (- (point)
    James> (length isearch-string )) + (+ (point) (length
    James> isearch-string ))) + 'harry +
    James> (emacspeak-speak-line nil )))) + (provide
    James> 'emacspeak-advice) ;;{{{ end of file
 

    James> -----------------------------------------------------------------------------
    James> To unsubscribe from the emacspeak list or change
    James> your address on the emacspeak list send mail to
    James> "emacspeak-request@xxxxxxxxxxx" with a subject
    James> of "unsubscribe" or "help"

-- 
Best Regards,
--raman

      
Email:  raman@xxxxxxxxxxx
WWW: http://www.cs.cornell.edu/home/raman/             
PGP:    http://www.cs.cornell.edu/home/raman/raman.asc 

-----------------------------------------------------------------------------
To unsubscribe from the emacspeak list or change your address on the
emacspeak list send mail to "emacspeak-request@xxxxxxxxxxx" with a
subject of "unsubscribe" or "help"