From: Deepak Goel <deego@gnufans.org>
Date: Sun, 18 Sep 2005 12:42:35 +0000 (+0000)
Subject: message format spec fixes, commit # 11
X-Git-Tag: emacs-pretest-22.0.90~7035
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c08522d858595fa88418e04bf5ace92253f4a7b;p=emacs.git

message format spec fixes, commit # 11
---

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: ")