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

1 files changed, 0 insertions, 29 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index c9239673c19..63e02ae26ca 100644
--- 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