diff options
| author | Mattias Engdegård | 2021-01-19 11:55:13 +0100 |
|---|---|---|
| committer | Mattias Engdegård | 2021-01-19 16:11:51 +0100 |
| commit | 5369b69bd86ee6d9565a82842cbeb37749cd5a6b (patch) | |
| tree | 3897e7f16123ff2aef559bee9598e8c61d24349b | |
| parent | 297edbebec5eaf2924f65bd2015b65d16cbf9254 (diff) | |
| download | emacs-5369b69bd86ee6d9565a82842cbeb37749cd5a6b.tar.gz emacs-5369b69bd86ee6d9565a82842cbeb37749cd5a6b.zip | |
Parse square root sign in embedded Calc mode
* lisp/calc/calc-lang.el (math-read-big-rec): Recognise √ since it may
be used in Big mode.
| -rw-r--r-- | lisp/calc/calc-lang.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el index b4b2d4cc4f4..0117f449dd5 100644 --- a/lisp/calc/calc-lang.el +++ b/lisp/calc/calc-lang.el | |||
| @@ -2181,7 +2181,7 @@ order to Calc's." | |||
| 2181 | v math-read-big-baseline)) | 2181 | v math-read-big-baseline)) |
| 2182 | 2182 | ||
| 2183 | ;; Small radical sign. | 2183 | ;; Small radical sign. |
| 2184 | ((and (= other-char ?V) | 2184 | ((and (memq other-char '(?V ?√)) |
| 2185 | (= (math-read-big-char (1+ math-rb-h1) (1- v)) ?\_)) | 2185 | (= (math-read-big-char (1+ math-rb-h1) (1- v)) ?\_)) |
| 2186 | (setq h (1+ math-rb-h1)) | 2186 | (setq h (1+ math-rb-h1)) |
| 2187 | (math-read-big-emptyp math-rb-h1 math-rb-v1 h (1- v) nil t) | 2187 | (math-read-big-emptyp math-rb-h1 math-rb-v1 h (1- v) nil t) |