annotate lisp/=bytecpat.el @ 37625:53351976477e
(timeclock-workday-remaining): Changed logic for determining how much
time is remaining.
(timeclock-workday-elapsed): Don't accept a "relative" argument for
the current day's elapsed time. What could that have meant?
(timeclock-workday-elapsed-string): No "relative" argument anymore.
(timeclock-when-to-leave): Changed logic, similarly to what was done
for `timeclock-workday-remaining'.
(timeclock-find-discrep): Removed "today-only" argument, which had no
meaning. Fixed some more math problems. The function now returns a
three member list: (TOTAL-TIME-DISCREPANCY TODAYS-TIME-DISCREPANCY
TODAYS-ELAPSED-TIME).
| author |
John Wiegley <johnw@newartisans.com> |
| date |
Tue, 08 May 2001 21:09:58 +0000 |
| parents |
84acc3adcd63 |
| children |
|
| rev |
line source |
|
13337
|
1 ;;; bytecpat.el --- do recompilation for Emacs patch files.
|
|
13335
|
2 ;;; This function is used by the patch files to update Emacs releases.
|
|
|
3
|
|
|
4 (defun batch-byte-recompile-emacs ()
|
|
|
5 "Recompile the Emacs `lisp' directory.
|
|
|
6 This is used after installing the patches for a new version."
|
|
|
7 (let ((load-path (list (expand-file-name "lisp"))))
|
|
|
8 (byte-recompile-directory "lisp")))
|
|
|
9
|
|
|
10 (defun batch-byte-compile-emacs ()
|
|
|
11 "Compile new files installed in the Emacs `lisp' directory.
|
|
|
12 This is used after installing the patches for a new version.
|
|
|
13 It uses the command line arguments to specify the files to compile."
|
|
|
14 (let ((load-path (list (expand-file-name "lisp"))))
|
|
|
15 (batch-byte-compile)))
|
