# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803418472 0
# Node ID 005a5b5966182acaf21d91f014bb354d4409678d
# Parent  b4731504d3ab5a887cf051642603fddf974303dc
(add-hook): Use local local-variable-if-set-p.

diff -r b4731504d3ab -r 005a5b596618 lisp/subr.el
--- a/lisp/subr.el	Sat Jun 17 19:47:30 1995 +0000
+++ b/lisp/subr.el	Sat Jun 17 19:47:52 1995 +0000
@@ -612,7 +612,7 @@
   (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)