Re: (un)expand-region-abbrevs

[Andreas Röhler]

On 06.06.2014 14:37, Uwe Brauer wrote:
> > > > > > "Stephen" == Stephen J Turnbull <address@hidden> writes:
>
>     > Uwe Brauer writes:
>     >> I find expand-region-abbrevs quite useful, so would it be possible
>     >> to have the inverse function? Unexpand-region-abbrev?
>
>     > I don't see why you believe there would be an inverse.  Suppose I have
>     > abbrevs
>
>     > u -> Uwe
>     > b -> Brauer
>     > ub -> Uwe Brauer
>
> No, no,  the case I have in mind is very different. I have a huge abbrev list
> which expands hebrew words to hebrew words with niqqud, like
>
> שלום -->     שָלֹם
>
> So sometimes I want to delete the niqqud.
>
> One might argue that I would be better off to write a short trans-tab
> which replaces the niqqud by "nothing", but I got curious whether I
> could use an inverse abbrev function.

Quite easy would be unexpand-abbrev-before-point, resp. after-point.
Which would look up in the abbrev-table and do a simple replace.
With region a multi-word expansion has to be considered.

See code of current edit-abbrevs how to start.