diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-10-05 13:50:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-10-05 13:50:18 +0000 |
| commit | 28d02da1e7175d61d8c4367ea39f39ad0f5a766a (patch) | |
| tree | 3748d72d3f6929f381c19e139a60efebb3e68bea /lisp/loadhist.el | |
| parent | 068ae0fd96c6bbd9aaa3b3d96232cf548749a36d (diff) | |
| download | emacs-28d02da1e7175d61d8c4367ea39f39ad0f5a766a.tar.gz | |
(unload-feature-special-hooks):
Renamed from loadhist-hook-functions.
(loadhist-hook-functions): Now an alias.
Diffstat (limited to 'lisp/loadhist.el')
| -rw-r--r-- | lisp/loadhist.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/loadhist.el b/lisp/loadhist.el index 19d940a6450..cbeaaa62600 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -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 |