procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(unload-feature-special-hooks):

Browse source 
Renamed from loadhist-hook-functions.
(loadhist-hook-functions): Now an alias.
This commit is contained in:
Richard M. Stallman 2003-10-05 13:50:18 +00:00
parent 068ae0fd96
commit 28d02da1e7
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/loadhist.el
View file

@ -98,7 +98,8 @@ return the feature \(symbol\)."
features)
nil t)))
(defvar loadhist-hook-functions
(defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks)
(defvar unload-feature-special-hooks
'(after-change-functions
after-insert-file-functions auto-fill-function
before-change-functions blink-paren-function
@ -153,7 +154,7 @@ is nil, raise an error."
(consp (symbol-value x))
(string-match "-hooks?\\'" (symbol-name x)))
(and (boundp x) ; Known abnormal hooks etc.
(memq x loadhist-hook-functions)))
(memq x unload-feature-special-hooks)))
(dolist (y (cdr flist))
(remove-hook x y))))))
(if (fboundp 'elp-restore-function) ; remove ELP stuff first