diff options
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-aent.el | 4 | ||||
| -rw-r--r-- | lisp/calc/calc-lang.el | 4 | ||||
| -rw-r--r-- | lisp/calc/calc-misc.el | 2 | ||||
| -rw-r--r-- | lisp/calc/calc-prog.el | 10 | ||||
| -rw-r--r-- | lisp/calc/calc.el | 6 |
5 files changed, 13 insertions, 13 deletions
diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el index 2fa8f19163d..2c588c15287 100644 --- 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)))) diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el index 7f5588b6d09..70a9ff8a402 100644 --- a/lisp/calc/calc-lang.el +++ b/lisp/calc/calc-lang.el @@ -1817,7 +1817,7 @@ order to Calc's." (defun math-read-giac-subscr (x op) (let ((idx (math-read-expr-level 0))) (or (equal math-expr-data "]") - (throw 'syntax "Expected ']'")) + (throw 'syntax "Expected ‘]’")) (math-read-token) (list 'calcFunc-subscr x (calc-normalize (list '+ idx 1))))) @@ -1954,7 +1954,7 @@ order to Calc's." (progn (math-read-token) (equal math-expr-data "]"))) - (throw 'syntax "Expected ']]'")) + (throw 'syntax "Expected ‘]]’")) (math-read-token) (list 'calcFunc-subscr x idx))) diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el index e5d4b6b0607..4d84146af94 100644 --- a/lisp/calc/calc-misc.el +++ b/lisp/calc/calc-misc.el @@ -952,7 +952,7 @@ Prompts for bug subject. Leaves you in a mail buffer." nil nil nil "Please describe exactly what actions triggered the bug and the precise symptoms of the bug. If possible, include a backtrace by -doing 'M-x toggle-debug-on-error', then reproducing the bug. +doing ‘\\[toggle-debug-on-error]’, then reproducing the bug. " ))) ;;;###autoload (defalias 'calc-report-bug 'report-calc-bug) diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index df2eb764f3b..cc1d27032ef 100644 --- a/lisp/calc/calc-prog.el +++ b/lisp/calc/calc-prog.el @@ -597,9 +597,9 @@ ",") ((equal name "#") (search-backward "#") - (error "Token '#' is reserved")) + (error "Token ‘#’ is reserved")) ((and unquoted (string-match "#" name)) - (error "Tokens containing '#' must be quoted")) + (error "Tokens containing ‘#’ must be quoted")) ((not (string-match "[^ ]" name)) (search-backward "\"" nil t) (error "Blank tokens are not allowed")) @@ -610,7 +610,7 @@ (quoted nil)) (while (progn (skip-chars-forward "\n\t ") - (if (eobp) (error "Expected '%s'" eterm)) + (if (eobp) (error "Expected ‘%s’" eterm)) (not (looking-at term))) (cond ((looking-at "%%") (end-of-line)) @@ -618,7 +618,7 @@ (forward-char 2) (let ((p (calc-read-parse-table-part "}" "}"))) (or (looking-at "[+*?]") - (error "Expected '+', '*', or '?'")) + (error "Expected ‘+’, ‘*’, or ‘?’")) (let ((sym (intern (buffer-substring (point) (1+ (point)))))) (forward-char 1) (looking-at "[^\n\t ]*") @@ -650,7 +650,7 @@ (match-end 1))))))) (goto-char (match-end 0))) ((looking-at ":=[\n\t ]") - (error "Misplaced ':='")) + (error "Misplaced ‘:=’")) (t (looking-at "[^\n\t ]*") (let ((end (match-end 0))) diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index b0046dcaf4b..8e4df58793d 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -989,11 +989,11 @@ Used by `calc-user-invocation'.") (defvar calc-last-kill nil "The last number killed in calc-mode.") (defvar calc-dollar-values nil - "Values to be used for '$'.") + "Values to be used for ‘$’.") (defvar calc-dollar-used nil - "The highest order of '$' that occurred.") + "The highest order of ‘$’ that occurred.") (defvar calc-hashes-used nil - "The highest order of '#' that occurred.") + "The highest order of ‘#’ that occurred.") (defvar calc-quick-prev-results nil "Previous results from Quick Calc.") (defvar calc-said-hello nil |