diff options
author | Tom Tromey <tromey@redhat.com> | 2013-08-27 13:06:17 -0600 |
---|---|---|
committer | Tom Tromey <tromey@redhat.com> | 2013-08-27 13:06:17 -0600 |
commit | 44586142ad519003abe97e66b3cea0f6bbb020c2 (patch) | |
tree | b02112a07236f77410ee2edf317f9c90baabf14c | |
parent | 8c46d17826ae89bfa22b5e8048c013c0e3a38b2d (diff) | |
download | emacs-44586142ad519003abe97e66b3cea0f6bbb020c2.tar.gz |
zap until-condition
-rw-r--r-- | lisp/subr.el | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index e8bbbb675fc..17289ef3ce9 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -4788,20 +4788,6 @@ This is the simplest safe way to acquire and release a mutex." (progn ,@body) (mutex-unlock ,sym))))) -(defmacro until-condition (test condition) - "Wait for the condition variable CONDITION, checking TEST. -Acquire CONDITION's mutex, then check TEST. -If TEST evaluates to nil, repeatedly invoke `condition-wait' on CONDITION. -When CONDITION is signalled, check TEST again. - -This is the simplest safe way to invoke `condition-wait'." - (let ((cond-sym (make-symbol "condition"))) - `(let ((,cond-sym ,condition)) - (with-mutex (condition-mutex ,cond-sym) - (while (not ,test) - (condition-wait ,cond-sym)))))) - - ;;; Misc. (defconst menu-bar-separator '("--") |