zap until-condition

diff --git a/lisp/subr.el b/lisp/subr.el
index e8bbbb675fc51c7eaf49f7c8e8c6225b6fbabd5b..17289ef3ce9338513c3f943419d3d6903cfbcead 100644 (file)
--- 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))))))
-
-
 \f
 ;;; Misc.
 (defconst menu-bar-separator '("--")