(run-hook-with-args): Deleted; now in C code.

diff --git a/lisp/subr.el b/lisp/subr.el
index c9239673c19657eaedab763bc01c75c6de50421a..63e02ae26cac39c487e39661433a56d12af1607d 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -478,35 +478,6 @@ To make a hook variable buffer-local, use `make-local-hook', not
               (funcall value)))))
     (setq hooklist (cdr hooklist))))
 
-(defun run-hook-with-args (hook &rest args)
-  "Run HOOK with the specified arguments ARGS.
-HOOK should be a symbol, a hook variable.  If HOOK has a non-nil
-value, that value may be a function or a list of functions to be
-called to run the hook.  If the value is a function, it is called with
-the given arguments and its return value is returned.  If it is a list
-of functions, those functions are called, in order,
-with the given arguments ARGS.
-It is best not to depend on the value return by `run-hook-with-args',
-as that may change.
-
-To make a hook variable buffer-local, use `make-local-hook', not
-`make-local-variable'."
-  (and (boundp hook)
-       (symbol-value hook)
-       (let ((value (symbol-value hook)))
-        (if (and (listp value) (not (eq (car value) 'lambda)))
-            (while value
-              (if (eq (car value) t)
-                  ;; t indicates this hook has a local binding;
-                  ;; it means to run the global binding too.
-                  (let ((functions (default-value hook)))
-                    (while functions
-                      (apply (car functions) args)
-                      (setq functions (cdr functions))))
-                (apply (car value) args))
-              (setq value (cdr value)))
-          (apply value args)))))
-
 (defun run-hook-with-args-until-success (hook &rest args)
   "Run HOOK with the specified arguments ARGS.
 HOOK should be a symbol, a hook variable.  Its value should