message format spec fixes, commit # 11

2 files changed, 3 insertions, 2 deletions

diff --git a/lisp/calc/calc-mode.el b/lisp/calc/calc-mode.el
index 5e627203049..41b346ebd5a 100644
--- a/lisp/calc/calc-mode.el
+++ b/lisp/calc/calc-mode.el
@@ -408,7 +408,8 @@
                            ((= n 4) 'global)
                            ((= n 5) 'save)
                            (t 'local)))
-   (message (cond ((and (eq calc-mode-save-mode 'local) calc-embedded-info)
+   (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)
                    "Recording mode changes with [calc-edit-mode: ...]")
diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index 7d42fd9ca9a..8fcbe7c0943 100644
--- a/lisp/calc/calc-units.el
+++ b/lisp/calc/calc-units.el
@@ -515,7 +515,7 @@ Entries are (SYMBOL EXPR DOC-STRING TEMP-TYPE BASE-UNITS).")
   (interactive "P")
   (and n (setq math-units-table-buffer-valid nil))
   (math-build-units-table-buffer t)
-  (message (substitute-command-keys "Type \\[calc] to return to the Calculator")))
+  (message "%s" (substitute-command-keys "Type \\[calc] to return to the Calculator")))
 
 (defun calc-define-unit (uname desc)
   (interactive "SDefine unit name: \nsDescription: ")