message format spec fixes, commit # 11

diff --git a/lisp/calc/calc-mode.el b/lisp/calc/calc-mode.el
index 5e6272030493410871261e0d3379b6f2ede2b604..41b346ebd5ae92c3f58bcf23f1444c9faadc6a0d 100644 (file)
--- 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 7d42fd9ca9ab5e01735a8509813fca2b5486b708..8fcbe7c09435e17df7d5b72d37a0be100d83ec27 100644 (file)
--- 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: ")