Mercurial > emacs

diff lisp/calendar/timeclock.el @ 90228:fa0da9b57058

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-82 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 542-553) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 116-121) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Mon, 19 Sep 2005 10:20:33 +0000
parents f9a65d7ebd29 a65f8ec418fc
children ee12d75eb214
line wrap: on
line diff
--- a/lisp/calendar/timeclock.el	Sun Sep 11 22:21:01 2005 +0000
+++ b/lisp/calendar/timeclock.el	Mon Sep 19 10:20:33 2005 +0000
@@ -441,7 +441,7 @@
 		      "remaining" "over")
 		  (timeclock-when-to-leave-string show-seconds today-only)))
     (if (interactive-p)
-	(message status)
+	(message "%s" status)
       status)))
 
 ;;;###autoload
@@ -512,7 +512,7 @@
 		 (timeclock-workday-remaining today-only)
 		 show-seconds t)))
     (if (interactive-p)
-	(message string)
+	(message "%s" string)
       string)))
 
 (defsubst timeclock-workday-elapsed ()
@@ -534,7 +534,7 @@
   (let ((string (timeclock-seconds-to-string (timeclock-workday-elapsed)
 					     show-seconds)))
     (if (interactive-p)
-	(message string)
+	(message "%s" string)
       string)))
 
 (defsubst timeclock-time-to-seconds (time)
@@ -579,7 +579,7 @@
 	      (format-time-string "%-I:%M:%S %p" then)
 	    (format-time-string "%-I:%M %p" then))))
     (if (interactive-p)
-	(message string)
+	(message "%s" string)
       string)))
 
 ;;; Internal Functions: