From cd2db344de7834b5de08a38bfbc871dc834b7b69 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 17 Jun 1995 19:47:52 +0000 Subject: (add-hook): Use local local-variable-if-set-p. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index b84e8ffc89..65a22d1f11 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -612,7 +612,7 @@ function, it is changed to a list of functions." (if (or local ;; Detect the case where make-local-variable was used on a hook ;; and do what we used to do. - (and (local-variable-p hook) + (and (local-variable-if-set-p hook) (not (memq t (symbol-value hook))))) ;; Alter the local value only. (or (if (consp function) -- cgit v1.2.3