mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 06:01:22 -08:00
Code Issues Projects Releases Wiki Activity

(remove-hook): Use equal to see if hook is just that fcn.

Browse source 
(add-hook): Use member to see if a lambda expr is already in the list.
This commit is contained in:
Richard M. Stallman 1993-12-23 04:43:01 +00:00
parent d226f0a6b1
commit f48c1d8d7c
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/subr.el
View file

@ -486,10 +486,7 @@ function, it is changed to a list of functions."
(if (or (not (listp old)) (eq (car old) 'lambda))
(set hook (list old))))
(or (if (consp function)
;; Clever way to tell whether a given lambda-expression
;; is equal to anything in the hook.
(let ((tail (assoc (cdr function) (symbol-value hook))))
(equal function tail))
(member function (symbol-value hook))
(memq function (symbol-value hook)))
(set hook
(if append
@ -508,7 +505,7 @@ list of hooks to run in HOOK, then nothing is done. See `add-hook'."
(let ((hook-value (symbol-value hook)))
(if (consp hook-value)
(setq hook-value (delete function hook-value))
(if (eq hook-value function)
(if (equal hook-value function)
(setq hook-value nil)))
(set hook hook-value))))