Re: case-table functions clobbering extra slots

[Kenichi Handa]

In article <address@hidden>, Richard Stallman <address@hidden> writes:

>>  Just install that case table and do (upcase ?a).
>>  Won't that do the job?

>     In set-case- functions, we don't know where to install
>     TABLE.  It may be a standard case table or a case table for
>     a specific buffer.

> It does not make any difference.
> You only need to install it temporarily,
> so that your call to `upcase' will use it.

Somethink like this?

(let ((old (standard-case-table)))
  (set-standard-case-table table)
  (or (eq old table)
      (set-standard-case-table old)))

It's a little bit strange code, but it seems to work.

>     So, I suggest to have something like setup-upcase-table.

> No, it is not necessary.

Ok.

>     Does "a new function" mean a single new function for both
>     upcase only and downcase only with an additional arg
>     specifing which of them?

> I am not sure what those words mean.

I proposed "(two) new functions", for instance,
(set-upcase-syntax LC UC TABLE) and
(set-downcase-syntax UC LC TABLE).

But you said "A new function is cleaner".  So I thought you
were suggesting to have a single function, for instance,
(set-up-or-downcase-syntax UC LC TABLE UP-P).

---
Ken'ichi HANDA
address@hidden