[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#13745: c1-acronyms
From: |
Lars Ingebrigtsen |
Subject: |
bug#13745: c1-acronyms |
Date: |
Wed, 24 Feb 2016 16:48:39 +1100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/25.1.50 (gnu/linux) |
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
- bug#13745: c1-acronyms,
Lars Ingebrigtsen <=