From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Jul 1995 19:35:38 +0000 (+0000)
Subject: (run-hook-with-args): Deleted; now in C code.
X-Git-Tag: emacs-19.34~3207
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a732d129712079c381d66994b135dbd20e1bfa36;p=emacs.git

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

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