procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

zap until-condition

Browse source
This commit is contained in:
Tom Tromey 2013-08-27 13:06:17 -06:00
parent 8c46d17826
commit 44586142ad
1 changed files with 0 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/subr.el
View file

@ -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 '("--")