martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(run-hook-with-args-until-failure):

Browse Source 
Return non-nil if no hook functions.
This commit is contained in:
Richard M. Stallman
1994-12-27 20:14:13 +00:00
parent e65a6404e5
commit 3d1743f7e0
1 changed files with 16 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
lisp/subr.el
View File

@@ -598,21 +598,22 @@ If all the functions return non-nil, we return non-nil.
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))
(success t))
(while (and value success)
(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 (and functions success)
(setq success (apply (car functions) args))
(setq functions (cdr functions))))
(setq success (apply (car value) args)))
(setq value (cdr value)))
success)))
;; We must return non-nil if there are no hook functions!
(or (not (boundp hook))
(not (symbol-value hook))
(let ((value (symbol-value hook))
(success t))
(while (and value success)
(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 (and functions success)
(setq success (apply (car functions) args))
(setq functions (cdr functions))))
(setq success (apply (car value) args)))
(setq value (cdr value)))
success)))
;; Tell C code how to call this function.
(defconst run-hooks 'run-hooks