Commit 1087f3e6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(remove-hook): When there are no more local hooks,

kill the buffer-local value.
parent 360e0dd5
...@@ -808,7 +808,11 @@ This makes the hook buffer-local if needed." ...@@ -808,7 +808,11 @@ This makes the hook buffer-local if needed."
;; (not (member (cons 'not function) hook-value))) ;; (not (member (cons 'not function) hook-value)))
;; (push (cons 'not function) hook-value)) ;; (push (cons 'not function) hook-value))
;; Set the actual variable ;; Set the actual variable
(if local (set hook hook-value) (set-default hook hook-value)))) (if (not local)
(set-default hook hook-value)
(if (equal hook-value '(t))
(kill-local-variable hook)
(set hook hook-value)))))
(defun add-to-list (list-var element &optional append) (defun add-to-list (list-var element &optional append)
"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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment