856 |
(set (make-local-variable hook) (list t))) |
(set (make-local-variable hook) (list t))) |
857 |
;; Detect the case where make-local-variable was used on a hook |
;; Detect the case where make-local-variable was used on a hook |
858 |
;; and do what we used to do. |
;; and do what we used to do. |
859 |
(when (and (local-variable-p hook) |
(unless (and (consp (symbol-value hook)) (memq t (symbol-value hook))) |
|
(not (and (consp (symbol-value hook)) |
|
|
(memq t (symbol-value hook))))) |
|
860 |
(setq local t))) |
(setq local t))) |
861 |
(let ((hook-value (if local (symbol-value hook) (default-value hook)))) |
(let ((hook-value (if local (symbol-value hook) (default-value hook)))) |
862 |
;; If the hook value is a single function, turn it into a list. |
;; If the hook value is a single function, turn it into a list. |