Prefer directed to neutral quotes

[gnu-emacs] / lisp / calc / calc-aent.el

diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el
index 2fa8f19163d340c35e829265d6404edd6ecfab04..2c588c1528708e45e39e89f5cd02b8ff05ce655f 100644 (file)
--- a/lisp/calc/calc-aent.el
+++ b/lisp/calc/calc-aent.el
@@ -1057,7 +1057,7 @@ If the current Calc language does not use placeholders, return nil."
 (defun math-read-if (cond op)
   (let ((then (math-read-expr-level 0)))
     (or (equal math-expr-data ":")
-       (throw 'syntax "Expected ':'"))
+       (throw 'syntax "Expected ‘:’"))
     (math-read-token)
     (list 'calcFunc-if cond then (math-read-expr-level (nth 3 op)))))
 
@@ -1177,7 +1177,7 @@ If the current Calc language does not use placeholders, return nil."
                          (setq el (cdr el))))
                     (if (equal math-expr-data "]")
                         (math-read-token)
-                      (throw 'syntax "Expected ']'")))
+                      (throw 'syntax "Expected ‘]’")))
                   val)))))
          ((eq math-exp-token 'dollar)
           (let ((abs (if (> math-expr-data 0) math-expr-data (- math-expr-data))))