andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support prettified display of fractional numbers

Browse source 
* lisp/composite.el (composition-function-table): Define an entry
for U+2044 FRACTION SLASH, for prettier display of fractional
numbers.
This commit is contained in:
Eli Zaretskii 2020-10-31 12:40:25 +02:00
parent dc16c70bad
commit 66ceb148c7
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/composite.el
View file

@ -747,7 +747,18 @@ All non-spacing characters have this function in
unicode-category-table))
;; for dotted-circle
(aset composition-function-table #x25CC
`([,(purecopy ".\\c^") 0 compose-gstring-for-dotted-circle])))
`([,(purecopy ".\\c^") 0 compose-gstring-for-dotted-circle]))
;; For prettier display of fractions
(set-char-table-range
composition-function-table
#x2044
;; We use font-shape-gstring so that if the font doesn't support
;; fractional display, the characters are shown separately, not as
;; a composed cluster.
(list (vector (purecopy "[1-9][0-9][0-9]\u2044[0-9]+")
3 'font-shape-gstring)
(vector (purecopy "[1-9][0-9]\u2044[0-9]+") 2 'font-shape-gstring)
(vector (purecopy "[1-9]\u2044[0-9]+") 1 'font-shape-gstring))))
(defun compose-gstring-for-terminal (gstring _direction)
"Compose glyph-string GSTRING for terminal display.