808 |
;; (not (member (cons 'not function) hook-value))) |
;; (not (member (cons 'not function) hook-value))) |
809 |
;; (push (cons 'not function) hook-value)) |
;; (push (cons 'not function) hook-value)) |
810 |
;; Set the actual variable |
;; Set the actual variable |
811 |
(if local (set hook hook-value) (set-default hook hook-value)))) |
(if (not local) |
812 |
|
(set-default hook hook-value) |
813 |
|
(if (equal hook-value '(t)) |
814 |
|
(kill-local-variable hook) |
815 |
|
(set hook hook-value))))) |
816 |
|
|
817 |
(defun add-to-list (list-var element &optional append) |
(defun add-to-list (list-var element &optional append) |
818 |
"Add to the value of LIST-VAR the element ELEMENT if it isn't there yet. |
"Add to the value of LIST-VAR the element ELEMENT if it isn't there yet. |