98 |
features) |
features) |
99 |
nil t))) |
nil t))) |
100 |
|
|
101 |
(defvar loadhist-hook-functions |
(defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks) |
102 |
|
(defvar unload-feature-special-hooks |
103 |
'(after-change-functions |
'(after-change-functions |
104 |
after-insert-file-functions auto-fill-function |
after-insert-file-functions auto-fill-function |
105 |
before-change-functions blink-paren-function |
before-change-functions blink-paren-function |
154 |
(consp (symbol-value x)) |
(consp (symbol-value x)) |
155 |
(string-match "-hooks?\\'" (symbol-name x))) |
(string-match "-hooks?\\'" (symbol-name x))) |
156 |
(and (boundp x) ; Known abnormal hooks etc. |
(and (boundp x) ; Known abnormal hooks etc. |
157 |
(memq x loadhist-hook-functions))) |
(memq x unload-feature-special-hooks))) |
158 |
(dolist (y (cdr flist)) |
(dolist (y (cdr flist)) |
159 |
(remove-hook x y)))))) |
(remove-hook x y)))))) |
160 |
(if (fboundp 'elp-restore-function) ; remove ELP stuff first |
(if (fboundp 'elp-restore-function) ; remove ELP stuff first |