diff options
author | Miles Bader <miles@gnu.org> | 2005-07-07 12:43:14 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 2005-07-07 12:43:14 +0000 |
commit | d3e4babdd1267fb5690a17949196640a47c6f159 (patch) | |
tree | 968a42dfa187e492f9ce188aaf669d0cebf4bfe2 /lisp/emacs-lisp/timer.el | |
parent | eeb88b27e1dbd3f412aa684d44e4a784f6e536a2 (diff) | |
parent | a5717394ea6fbd7ea179c362646f4495f88245cb (diff) | |
download | emacs-d3e4babdd1267fb5690a17949196640a47c6f159.tar.gz emacs-d3e4babdd1267fb5690a17949196640a47c6f159.tar.bz2 emacs-d3e4babdd1267fb5690a17949196640a47c6f159.zip |
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-68
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 459-473)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 86-87)
- Update from CVS
Diffstat (limited to 'lisp/emacs-lisp/timer.el')
-rw-r--r-- | lisp/emacs-lisp/timer.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el index 79aad8bd121..e207766701c 100644 --- a/lisp/emacs-lisp/timer.el +++ b/lisp/emacs-lisp/timer.el @@ -18,8 +18,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: @@ -408,12 +408,11 @@ This function returns a timer object which you can use in `cancel-timer'." (defmacro with-timeout (list &rest body) "Run BODY, but if it doesn't finish in SECONDS seconds, give up. If we give up, we run the TIMEOUT-FORMS and return the value of the last one. -The call should look like: - (with-timeout (SECONDS TIMEOUT-FORMS...) BODY...) The timeout is checked whenever Emacs waits for some kind of external -event \(such as keyboard input, input from subprocesses, or a certain time); +event (such as keyboard input, input from subprocesses, or a certain time); if the program loops without waiting in any way, the timeout will not -be detected." +be detected. +\n(fn (SECONDS TIMEOUT-FORMS...) BODY)" (let ((seconds (car list)) (timeout-forms (cdr list))) `(let ((with-timeout-tag (cons nil nil)) |