From 1a38259bbc5aea962a295e49c4d79f89ddeda709 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Fri, 21 Aug 2015 06:31:54 -0700 Subject: Respect text-quoting-style in calc In calc, tespect text-quoting-style preference in diagnostic formats and fix a few similar problems in docstrings. * lisp/calc/calc-aent.el (math-read-factor): * lisp/calc/calc-embed.el (calc-do-embedded): * lisp/calc/calc-ext.el (calc-user-function-list) * lisp/calc/calc-graph.el (calc-graph-show-dumb): * lisp/calc/calc-help.el (calc-describe-key) (calc-describe-thing): * lisp/calc/calc-lang.el (calc-c-language) (math-parse-fortran-vector-end, math-parse-tex-sum) (math-parse-eqn-matrix, math-parse-eqn-prime) (calc-yacas-language, calc-maxima-language, calc-giac-language) (math-read-big-rec, math-read-big-balance): * lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes) (calc-auto-recompute): * lisp/calc/calc-prog.el (calc-user-define-invocation) (math-do-arg-check): * lisp/calc/calc-store.el (calc-edit-variable): * lisp/calc/calc-units.el (math-build-units-table-buffer): * lisp/calc/calc-vec.el (math-read-brackets): * lisp/calc/calc-yank.el (calc-edit-mode): * lisp/calc/calc.el (calc, calc-do, calc-user-invocation): Use curved quotes in diagnostic format strings. * lisp/calc/calc-help.el (calc-describe-thing): Format docstrings with substitute-command-keys. * lisp/calc/calc-help.el (calc-j-prefix-help): * lisp/calc/calc-misc.el (calc-help): * lisp/calc/calc-ext.el (calc-shift-Z-prefix-help): Escape a docstring "`". --- lisp/calc/calc-mode.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'lisp/calc/calc-mode.el') 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") -- cgit v1.2.3