From a732d129712079c381d66994b135dbd20e1bfa36 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 25 Jul 1995 19:35:38 +0000 Subject: [PATCH] (run-hook-with-args): Deleted; now in C code. --- lisp/subr.el | 29 ----------------------------- 1 file changed, 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 -- 2.39.2