Commit a732d129 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent 488bedff
...@@ -478,35 +478,6 @@ To make a hook variable buffer-local, use `make-local-hook', not ...@@ -478,35 +478,6 @@ To make a hook variable buffer-local, use `make-local-hook', not
(funcall value))))) (funcall value)))))
(setq hooklist (cdr hooklist)))) (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) (defun run-hook-with-args-until-success (hook &rest args)
"Run HOOK with the specified arguments ARGS. "Run HOOK with the specified arguments ARGS.
HOOK should be a symbol, a hook variable. Its value should HOOK should be a symbol, a hook variable. Its value should
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment