(include-other-diary-files, diary-mail-entries): Refer to

[gnu-emacs] / lisp / calendar / timeclock.el

diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index 709ea25fbcbfc7f3de7a25adebf7822ee2836fc7..3f2697509f3dfd6b47714e63d3b0b8365fb79634 100644 (file)
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -1,6 +1,7 @@
 ;;; timeclock.el --- mode for keeping track of how much you work
 
-;; Copyright (C) 1999, 2000, 2001, 2003, 2004 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
+;;   Free Software Foundation, Inc.
 
 ;; Author: John Wiegley <johnw@gnu.org>
 ;; Created: 25 Mar 1999
@@ -21,8 +22,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
@@ -78,7 +79,7 @@
 ;;; Code:
 
 (defgroup timeclock nil
-  "Keeping track time of the time that gets spent."
+  "Keeping track of the time that gets spent."
   :group 'data)
 
 ;;; User Variables:
@@ -441,7 +442,7 @@ worked today, ignoring the time worked on previous days."
                      "remaining" "over")
                  (timeclock-when-to-leave-string show-seconds today-only)))
     (if (interactive-p)
-       (message status)
+       (message "%s" status)
       status)))
 
 ;;;###autoload
@@ -512,7 +513,7 @@ See `timeclock-relative' for more information about the meaning of
                 (timeclock-workday-remaining today-only)
                 show-seconds t)))
     (if (interactive-p)
-       (message string)
+       (message "%s" string)
       string)))
 
 (defsubst timeclock-workday-elapsed ()
@@ -534,7 +535,7 @@ non-nil, the amount returned will be relative to past time worked."
   (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 +580,7 @@ relative only to the time worked today, and not to past time."
              (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:
@@ -599,7 +600,7 @@ relative only to the time worked today, and not to past time."
 (defun timeclock-ask-for-project ()
   "Ask the user for the project they are clocking into."
   (timeclock-completing-read
-   (format "Clock into which project (default \"%s\"): "
+   (format "Clock into which project (default %s): "
           (or timeclock-last-project
               (car timeclock-project-list)))
    (mapcar 'list timeclock-project-list)