diff options
| author | Richard M. Stallman | 1998-08-08 23:08:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-08-08 23:08:23 +0000 |
| commit | 1fa0de2c8638c89c82f1bcf6c409fa7210ba2ef0 (patch) | |
| tree | 312c7e865c1b27c0cf9e4b47287a82ea7c6e184b | |
| parent | 8a288450ca441821a47d2b0e8ca29a3b84130d64 (diff) | |
| download | emacs-1fa0de2c8638c89c82f1bcf6c409fa7210ba2ef0.tar.gz emacs-1fa0de2c8638c89c82f1bcf6c409fa7210ba2ef0.zip | |
(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." | |||
| 621 | (and (local-variable-if-set-p hook) | 621 | (and (local-variable-if-set-p hook) |
| 622 | (not (memq t (symbol-value hook))))) | 622 | (not (memq t (symbol-value hook))))) |
| 623 | ;; Alter the local value only. | 623 | ;; Alter the local value only. |
| 624 | (or (if (or (consp function) (compiled-function-p function)) | 624 | (or (if (or (consp function) (byte-code-function-p function)) |
| 625 | (member function (symbol-value hook)) | 625 | (member function (symbol-value hook)) |
| 626 | (memq function (symbol-value hook))) | 626 | (memq function (symbol-value hook))) |
| 627 | (set hook | 627 | (set hook |
| @@ -630,7 +630,7 @@ function, it is changed to a list of functions." | |||
| 630 | (cons function (symbol-value hook))))) | 630 | (cons function (symbol-value hook))))) |
| 631 | ;; Alter the global value (which is also the only value, | 631 | ;; Alter the global value (which is also the only value, |
| 632 | ;; if the hook doesn't have a local value). | 632 | ;; if the hook doesn't have a local value). |
| 633 | (or (if (or (consp function) (compiled-function-p function)) | 633 | (or (if (or (consp function) (byte-code-function-p function)) |
| 634 | (member function (default-value hook)) | 634 | (member function (default-value hook)) |
| 635 | (memq function (default-value hook))) | 635 | (memq function (default-value hook))) |
| 636 | (set-default hook | 636 | (set-default hook |