diff options
| author | Per Starbäck | 2016-02-25 16:22:17 +1030 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-25 16:22:17 +1030 |
| commit | fecd5e589d01b39e9c0c2f0a9ed300ba8cb09817 (patch) | |
| tree | 942ebf3110c7ef678ebcf7e5c5114aa84f8134b8 | |
| parent | 80c4cfa965fe361884979c4f50ffcb2401bf1032 (diff) | |
| download | emacs-fecd5e589d01b39e9c0c2f0a9ed300ba8cb09817.tar.gz emacs-fecd5e589d01b39e9c0c2f0a9ed300ba8cb09817.zip | |
Replace XXX acronyms with draft standard ones
* lisp/international/characters.el (c1-acronyms): Replace XXX
entries with the acronyms PAD, HOP, SGCI from draft DIS 10646
(bug#13745).
| -rw-r--r-- | lisp/international/characters.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index a43c0f68070..56f6c80fe81 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el | |||
| @@ -1307,10 +1307,10 @@ Setup char-width-table appropriate for non-CJK language environment." | |||
| 1307 | (aset char-acronym-table i (car c0-acronyms)) | 1307 | (aset char-acronym-table i (car c0-acronyms)) |
| 1308 | (setq c0-acronyms (cdr c0-acronyms)))) | 1308 | (setq c0-acronyms (cdr c0-acronyms)))) |
| 1309 | 1309 | ||
| 1310 | (let ((c1-acronyms '("XXX" "XXX" "BPH" "NBH" "IND" "NEL" "SSA" "ESA" | 1310 | (let ((c1-acronyms '("PAD" "HOP" "BPH" "NBH" "IND" "NEL" "SSA" "ESA" |
| 1311 | "HTS" "HTJ" "VTS" "PLD" "PLU" "R1" "SS2" "SS1" | 1311 | "HTS" "HTJ" "VTS" "PLD" "PLU" "R1" "SS2" "SS1" |
| 1312 | "DCS" "PU1" "PU2" "STS" "CCH" "MW" "SPA" "EPA" | 1312 | "DCS" "PU1" "PU2" "STS" "CCH" "MW" "SPA" "EPA" |
| 1313 | "SOS" "XXX" "SC1" "CSI" "ST" "OSC" "PM" "APC"))) | 1313 | "SOS" "SGCI" "SC1" "CSI" "ST" "OSC" "PM" "APC"))) |
| 1314 | (dotimes (i 32) | 1314 | (dotimes (i 32) |
| 1315 | (aset char-acronym-table (+ #x0080 i) (car c1-acronyms)) | 1315 | (aset char-acronym-table (+ #x0080 i) (car c1-acronyms)) |
| 1316 | (setq c1-acronyms (cdr c1-acronyms)))) | 1316 | (setq c1-acronyms (cdr c1-acronyms)))) |