diff options
| author | Paul Eggert | 2013-05-16 21:09:16 -0700 |
|---|---|---|
| committer | Paul Eggert | 2013-05-16 21:09:16 -0700 |
| commit | dc5dcb4bc598fa54dcd05becac2f04fcd03e8fcc (patch) | |
| tree | 90ab6d6b1dd662079135e5064d0cc77f4246d8ba /lisp | |
| parent | 1db165f042ce2cf467013e314c81ecd16d7aa2c9 (diff) | |
| download | emacs-dc5dcb4bc598fa54dcd05becac2f04fcd03e8fcc.tar.gz emacs-dc5dcb4bc598fa54dcd05becac2f04fcd03e8fcc.zip | |
Doc string fix for "nanoseconds".
* emacs-lisp/timer.el (timer-relative-time, timer-inc-time):
Fix doc string typo that had "nanoseconds" instead of "microseconds".
Fixes: debbugs:14406
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/emacs-lisp/timer.el | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 531ef52a996..c4e5390267b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2013-05-17 Paul Eggert <eggert@cs.ucla.edu> | ||
| 2 | |||
| 3 | Doc string fix for "nanoseconds" (Bug#14406). | ||
| 4 | * emacs-lisp/timer.el (timer-relative-time, timer-inc-time): | ||
| 5 | Fix doc string typo that had "nanoseconds" instead of "microseconds". | ||
| 6 | |||
| 1 | 2013-05-17 Jay Belanger <jay.p.belanger@gmail.com> | 7 | 2013-05-17 Jay Belanger <jay.p.belanger@gmail.com> |
| 2 | 8 | ||
| 3 | * calc/calc-units.el (math-extract-units): Preserve powers | 9 | * calc/calc-units.el (math-extract-units): Preserve powers |
diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el index a1bba2ddb6e..0aa31f717ed 100644 --- a/lisp/emacs-lisp/timer.el +++ b/lisp/emacs-lisp/timer.el | |||
| @@ -124,7 +124,7 @@ of SECS seconds since the epoch. SECS may be a fraction." | |||
| 124 | (floor (mod next-sec-psec 1000000))))) | 124 | (floor (mod next-sec-psec 1000000))))) |
| 125 | 125 | ||
| 126 | (defun timer-relative-time (time secs &optional usecs psecs) | 126 | (defun timer-relative-time (time secs &optional usecs psecs) |
| 127 | "Advance TIME by SECS seconds and optionally USECS nanoseconds | 127 | "Advance TIME by SECS seconds and optionally USECS microseconds |
| 128 | and PSECS picoseconds. SECS may be either an integer or a | 128 | and PSECS picoseconds. SECS may be either an integer or a |
| 129 | floating point number." | 129 | floating point number." |
| 130 | (let ((delta (if (floatp secs) | 130 | (let ((delta (if (floatp secs) |
| @@ -139,7 +139,7 @@ floating point number." | |||
| 139 | (time-less-p (timer--time t1) (timer--time t2))) | 139 | (time-less-p (timer--time t1) (timer--time t2))) |
| 140 | 140 | ||
| 141 | (defun timer-inc-time (timer secs &optional usecs psecs) | 141 | (defun timer-inc-time (timer secs &optional usecs psecs) |
| 142 | "Increment the time set in TIMER by SECS seconds, USECS nanoseconds, | 142 | "Increment the time set in TIMER by SECS seconds, USECS microseconds, |
| 143 | and PSECS picoseconds. SECS may be a fraction. If USECS or PSECS are | 143 | and PSECS picoseconds. SECS may be a fraction. If USECS or PSECS are |
| 144 | omitted, they are treated as zero." | 144 | omitted, they are treated as zero." |
| 145 | (setf (timer--time timer) | 145 | (setf (timer--time timer) |