diff options
Diffstat (limited to 'lisp/calc/calc-mode.el')
| -rw-r--r-- | lisp/calc/calc-mode.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/calc/calc-mode.el b/lisp/calc/calc-mode.el index be18dcd0349..605084e3f35 100644 --- a/lisp/calc/calc-mode.el +++ b/lisp/calc/calc-mode.el @@ -110,11 +110,11 @@ (setq n (and (not (eq calc-auto-why t)) (if calc-auto-why t 1)))) (calc-change-mode 'calc-auto-why n nil) (cond ((null n) - (message "User must press `w' to explain unsimplified results")) + (message "User must press ‘w’ to explain unsimplified results")) ((eq n t) - (message "Automatically doing `w' to explain unsimplified results")) + (message "Automatically doing ‘w’ to explain unsimplified results")) (t - (message "Automatically doing `w' only for unusual messages"))))) + (message "Automatically doing ‘w’ only for unusual messages"))))) (defun calc-group-digits (n) (interactive "P") @@ -272,7 +272,7 @@ (vals (mapcar (function (lambda (v) (symbol-value (car v)))) calc-mode-var-list))) (unless calc-settings-file - (error "No `calc-settings-file' specified")) + (error "No ‘calc-settings-file’ specified")) (set-buffer (find-file-noselect (substitute-in-file-name calc-settings-file))) (goto-char (point-min)) @@ -410,7 +410,7 @@ ((= n 4) 'global) ((= n 5) 'save) (t 'local))) - (message "%s" + (message "%s" (cond ((and (eq calc-mode-save-mode 'local) calc-embedded-info) "Recording mode changes with [calc-mode: ...]") ((eq calc-mode-save-mode 'edit) @@ -478,7 +478,7 @@ (cond ((eq arg 0) 'scalar) ((< (prefix-numeric-value arg) 1) (and (< (prefix-numeric-value arg) -1) 'matrix)) - (arg + (arg (if (consp arg) 'sqmatrix (prefix-numeric-value arg))) ((eq calc-matrix-mode 'matrix) 'scalar) @@ -572,8 +572,8 @@ (calc-change-mode 'calc-auto-recompute arg nil t) (calc-refresh-evaltos) (message (if calc-auto-recompute - "Automatically recomputing `=>' forms when necessary" - "Not recomputing `=>' forms automatically")))) + "Automatically recomputing ‘=>’ forms when necessary" + "Not recomputing ‘=>’ forms automatically")))) (defun calc-working (n) (interactive "P") |