martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(add-hook, remove-hook): If the hook was made local

Browse Source 
in the old way, always modify the local value.
This commit is contained in:
Richard M. Stallman
1994-10-01 04:36:28 +00:00
parent a8928dd22f
commit f4e5bca556
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/subr.el
View File

@@ -652,7 +652,11 @@ function, it is changed to a list of functions."
(let ((old (symbol-value hook)))
(if (or (not (listp old)) (eq (car old) 'lambda))
(set hook (list old))))
(if local
(if (or local
;; Detect the case where make-local-variable was used on a hook
;; and do what we used to do.
(and (local-variable-p hook)
(not (memq t (symbol-value hook)))))
;; Alter the local value only.
(or (if (consp function)
(member function (symbol-value hook))
@@ -687,7 +691,11 @@ To make a hook variable buffer-local, always use
(null (symbol-value hook)) ;value is nil, or
(null function)) ;function is nil, then
nil ;Do nothing.
(if local
(if (or local
;; Detect the case where make-local-variable was used on a hook
;; and do what we used to do.
(and (local-variable-p hook)
(not (memq t (symbol-value hook)))))
(let ((hook-value (symbol-value hook)))
(if (consp hook-value)
(if (member function hook-value)