diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-15 18:03:50 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-15 18:03:50 +0200 |
| commit | 5e6393fc61a2a2423038fb80288aef30626bdba7 (patch) | |
| tree | 650368a01e2faf781b12d2e0103e22b622850bea /lisp/calc/calccomp.el | |
| parent | f4b4166e0075943641cd75c5935959cdc157c585 (diff) | |
| download | emacs-5e6393fc61a2a2423038fb80288aef30626bdba7.tar.gz emacs-5e6393fc61a2a2423038fb80288aef30626bdba7.tar.bz2 emacs-5e6393fc61a2a2423038fb80288aef30626bdba7.zip | |
Use a square root character in calc displays
* lisp/calc/calccomp.el (math-compose-sqrt): Use a square root
character, if possible (bug#22919). Suggested by Zephyr Pellerin
<zephyr.pellerin@gmail.com>.
Diffstat (limited to 'lisp/calc/calccomp.el')
| -rw-r--r-- | lisp/calc/calccomp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el index 0367c537b5a..1f3ae842638 100644 --- a/lisp/calc/calccomp.el +++ b/lisp/calc/calccomp.el @@ -1018,7 +1018,8 @@ (make-string (+ w 2) ?\_)) (list 'horiz (if (= h 1) - "V" + (if (char-displayable-p ?√) + "√" "V") (append (list 'vleft (1- a)) (make-list (1- h) " |") '("\\|"))) |