changeset 12652:127ae5c0a005

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

--- a/lisp/subr.el	Tue Jul 25 04:50:43 1995 +0000
+++ b/lisp/subr.el	Tue Jul 25 19:35:38 1995 +0000
@@ -478,35 +478,6 @@
 	       (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