diff options
| author | Richard M. Stallman | 1995-06-17 19:47:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-06-17 19:47:52 +0000 |
| commit | cd2db344de7834b5de08a38bfbc871dc834b7b69 (patch) | |
| tree | 4088fe27102d1a1ee73136d0117f2543bf8dc914 | |
| parent | f4f04ceee5e2776e1b38dca56a9ad9238f572ebe (diff) | |
| download | emacs-cd2db344de7834b5de08a38bfbc871dc834b7b69.tar.gz emacs-cd2db344de7834b5de08a38bfbc871dc834b7b69.zip | |
(add-hook): Use local local-variable-if-set-p.
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index b84e8ffc89b..65a22d1f116 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -612,7 +612,7 @@ function, it is changed to a list of functions." | |||
| 612 | (if (or local | 612 | (if (or local |
| 613 | ;; Detect the case where make-local-variable was used on a hook | 613 | ;; Detect the case where make-local-variable was used on a hook |
| 614 | ;; and do what we used to do. | 614 | ;; and do what we used to do. |
| 615 | (and (local-variable-p hook) | 615 | (and (local-variable-if-set-p hook) |
| 616 | (not (memq t (symbol-value hook))))) | 616 | (not (memq t (symbol-value hook))))) |
| 617 | ;; Alter the local value only. | 617 | ;; Alter the local value only. |
| 618 | (or (if (consp function) | 618 | (or (if (consp function) |