bug#13745: c1-acronyms

[Lars Ingebrigtsen]

starback@stp.lingfil.uu.se (Per Starbäck) writes:

> In GNU Emacs 24.2.93.1.
>
> char-acronym-table has three entries with "XXX". They are from
> lisp/international/characters.el :
>
>> (let ((c1-acronyms '("XXX" "XXX" "BPH" "NBH" "IND" "NEL" "SSA" "ESA"
>>                   "HTS" "HTJ" "VTS" "PLD" "PLU" "R1"  "SS2" "SS1"
>>                   "DCS" "PU1" "PU2" "STS" "CCH" "MW"  "SPA" "EPA"
>>                   "SOS" "XXX" "SC1" "CSI" "ST"  "OSC" "PM"  "APC")))
>
> These are the three C1 control characters that are listed with no name
> in Unicode and that aren't part of ISO/IEC 6429.
>
> These had the acros PAD, HOP, SGCI in draft DIS 10646, but weren't
> standardized (not accepted to ISO 10646).
>
>   http://en.wikipedia.org/wiki/C0_and_C1_control_codes#C1_set
>   http://www.aivosto.com/vbtips/control-characters.html
>
> I don't like the acronym feature showing different characters the same,
> so I suggest that "XXX" is replaced by the inofficial PAD, HOP, SGCI
> here.

If this list is automatically generated from the C1 control code list,
then perhaps that generating function should be removed?

If not, I think your patch is OK, if I understand what it's doing here.
(I may very well be not.)

> ! (let ((c1-acronyms '("XXX" "XXX" "BPH" "NBH" "IND" "NEL" "SSA" "ESA"
>                    "HTS" "HTJ" "VTS" "PLD" "PLU" "R1"  "SS2" "SS1"
>                    "DCS" "PU1" "PU2" "STS" "CCH" "MW"  "SPA" "EPA"
> !                  "SOS" "XXX" "SC1" "CSI" "ST"  "OSC" "PM"  "APC")))
>     (dotimes (i 32)
>       (aset char-acronym-table (+ #x0080 i) (car c1-acronyms))
>       (setq c1-acronyms (cdr c1-acronyms))))
> --- 1354,1363 ----
>       (aset char-acronym-table i (car c0-acronyms))
>       (setq c0-acronyms (cdr c0-acronyms))))
>
> ! (let ((c1-acronyms '("PAD" "HOP" "BPH" "NBH" "IND" "NEL" "SSA" "ESA"
>                    "HTS" "HTJ" "VTS" "PLD" "PLU" "R1"  "SS2" "SS1"
>                    "DCS" "PU1" "PU2" "STS" "CCH" "MW"  "SPA" "EPA"
> !                  "SOS" "SGCI" "SC1" "CSI" "ST"  "OSC" "PM"  "APC")))
>     (dotimes (i 32)
>       (aset char-acronym-table (+ #x0080 i) (car c1-acronyms))
>       (setq c1-acronyms (cdr c1-acronyms))))
>
> ======================================================================

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no