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 |
190 |
|
|
191 |
(provide 'loadhist) |
(provide 'loadhist) |
192 |
|
|
193 |
|
;;; arch-tag: 70bb846a-c413-4f01-bf88-78dba4ac0798 |
194 |
;;; loadhist.el ends here |
;;; loadhist.el ends here |