# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 902617703 0
# Node ID d29091c19e8177585f910934a8522f292033edc7
# Parent  73a21b5f9bd8a00fa4fb35e6524ca93682f6f002
(add-hook): Use byte-code-function-p, not compiled-function-p.

diff -r 73a21b5f9bd8 -r d29091c19e81 lisp/subr.el
--- a/lisp/subr.el	Sat Aug 08 23:07:06 1998 +0000
+++ b/lisp/subr.el	Sat Aug 08 23:08:23 1998 +0000
@@ -621,7 +621,7 @@
 	  (and (local-variable-if-set-p hook)
 	       (not (memq t (symbol-value hook)))))
       ;; Alter the local value only.
-      (or (if (or (consp function) (compiled-function-p function))
+      (or (if (or (consp function) (byte-code-function-p function))
 	      (member function (symbol-value hook))
 	    (memq function (symbol-value hook)))
 	  (set hook 
@@ -630,7 +630,7 @@
 		 (cons function (symbol-value hook)))))
     ;; Alter the global value (which is also the only value,
     ;; if the hook doesn't have a local value).
-    (or (if (or (consp function) (compiled-function-p function))
+    (or (if (or (consp function) (byte-code-function-p function))
 	    (member function (default-value hook))
 	  (memq function (default-value hook)))
 	(set-default hook