From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 15 Sep 2020 16:03:50 +0000 (+0200)
Subject: Use a square root character in calc displays
X-Git-Tag: emacs-28.0.90~6048^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e6393fc61a2a2423038fb80288aef30626bdba7;p=emacs.git

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>.
---

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) " |")
 			    '("\\|")))