From 28d02da1e7175d61d8c4367ea39f39ad0f5a766a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 5 Oct 2003 13:50:18 +0000 Subject: [PATCH] (unload-feature-special-hooks): Renamed from loadhist-hook-functions. (loadhist-hook-functions): Now an alias. --- lisp/loadhist.el | 5 +++-- 1 file 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 -- 2.39.2