diff options
| -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) |