diff options
| author | Eli Zaretskii | 2025-03-15 13:58:44 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2025-03-15 13:58:44 +0200 |
| commit | ea49eb4752a0632d8d0dfd4215821ab21bbd5a99 (patch) | |
| tree | 21b7bb15a8e32debbe5b3fb4221d91512827e344 | |
| parent | 52e49a5616011173a6bd52e8501cd720e262d3af (diff) | |
| download | emacs-ea49eb4752a0632d8d0dfd4215821ab21bbd5a99.tar.gz emacs-ea49eb4752a0632d8d0dfd4215821ab21bbd5a99.zip | |
Improve conversion between half-width and full-width characters
* lisp/textmodes/text-mode.el (text-mode--get-fullwidth-table):
Add conversion of SPC to IDEOGRAPHIC SPACE. (Bug#71822)
| -rw-r--r-- | lisp/textmodes/text-mode.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el index 3b27efbcf87..2d9bb9fb784 100644 --- a/lisp/textmodes/text-mode.el +++ b/lisp/textmodes/text-mode.el | |||
| @@ -286,6 +286,9 @@ The argument NLINES says how many lines to center." | |||
| 286 | (aset tbl ch (+ ch #xFEE0)) | 286 | (aset tbl ch (+ ch #xFEE0)) |
| 287 | (aset rev-tbl (+ ch #xFEE0) ch) | 287 | (aset rev-tbl (+ ch #xFEE0) ch) |
| 288 | (setq ch (1+ ch))) | 288 | (setq ch (1+ ch))) |
| 289 | ;; SPC -> U+3000 IDEOGRAPHIC SPACE | ||
| 290 | (aset tbl ?\ #x3000) | ||
| 291 | (aset rev-tbl #x3000 ?\ ) | ||
| 289 | (set-char-table-extra-slot tbl 0 rev-tbl) | 292 | (set-char-table-extra-slot tbl 0 rev-tbl) |
| 290 | (set-char-table-extra-slot tbl 1 1) | 293 | (set-char-table-extra-slot tbl 1 1) |
| 291 | (set-char-table-extra-slot rev-tbl 1 1) | 294 | (set-char-table-extra-slot rev-tbl 1 1) |