diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-08-08 23:08:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-08-08 23:08:23 +0000 |
| commit | 2640a61ae4b3484774f3447b9ce3bf29f9551c3f (patch) | |
| tree | f0b7446990cb796fe19edd5f73f6908974bd50b4 | |
| parent | e0bcb5184927f6ecfa868980142fee43739f735e (diff) | |
| download | emacs-2640a61ae4b3484774f3447b9ce3bf29f9551c3f.tar.gz | |
(add-hook): Use byte-code-function-p, not compiled-function-p.
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 3181b5f29a1..a4e3725d02f 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -621,7 +621,7 @@ function, it is changed to a list of functions." (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 @@ function, it is changed to a list of functions." (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 |