/[emacs]/emacs/lisp/calendar/timeclock.el
ViewVC logotype

Diff of /emacs/lisp/calendar/timeclock.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by lute, Mon Jul 4 17:37:04 2005 UTC revision 1.33 by deego, Sun Sep 18 12:41:39 2005 UTC
# Line 441  worked today, ignoring the time worked o Line 441  worked today, ignoring the time worked o
441                        "remaining" "over")                        "remaining" "over")
442                    (timeclock-when-to-leave-string show-seconds today-only)))                    (timeclock-when-to-leave-string show-seconds today-only)))
443      (if (interactive-p)      (if (interactive-p)
444          (message status)          (message "%s" status)
445        status)))        status)))
446    
447  ;;;###autoload  ;;;###autoload
# Line 512  See `timeclock-relative' for more inform Line 512  See `timeclock-relative' for more inform
512                   (timeclock-workday-remaining today-only)                   (timeclock-workday-remaining today-only)
513                   show-seconds t)))                   show-seconds t)))
514      (if (interactive-p)      (if (interactive-p)
515          (message string)          (message "%s" string)
516        string)))        string)))
517    
518  (defsubst timeclock-workday-elapsed ()  (defsubst timeclock-workday-elapsed ()
# Line 534  non-nil, the amount returned will be rel Line 534  non-nil, the amount returned will be rel
534    (let ((string (timeclock-seconds-to-string (timeclock-workday-elapsed)    (let ((string (timeclock-seconds-to-string (timeclock-workday-elapsed)
535                                               show-seconds)))                                               show-seconds)))
536      (if (interactive-p)      (if (interactive-p)
537          (message string)          (message "%s" string)
538        string)))        string)))
539    
540  (defsubst timeclock-time-to-seconds (time)  (defsubst timeclock-time-to-seconds (time)
# Line 579  relative only to the time worked today, Line 579  relative only to the time worked today,
579                (format-time-string "%-I:%M:%S %p" then)                (format-time-string "%-I:%M:%S %p" then)
580              (format-time-string "%-I:%M %p" then))))              (format-time-string "%-I:%M %p" then))))
581      (if (interactive-p)      (if (interactive-p)
582          (message string)          (message "%s" string)
583        string)))        string)))
584    
585  ;;; Internal Functions:  ;;; Internal Functions:

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26