From 3eef341ac1ea71e7730564caa4c19427c068c35e Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 31 Oct 2000 12:02:51 +0000 Subject: [PATCH] (unload-feature): Call elp-restore-function, checking for symbols; don't use elp-restore-all. (loadhist-hook-functions): Doc fix. --- lisp/loadhist.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/loadhist.el b/lisp/loadhist.el index db760c25b32..daa388d502d 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -107,7 +107,7 @@ mouse-position-function redisplay-end-trigger-functions temp-buffer-show-function window-scroll-functions window-size-change-functions write-region-annotate-functions) - "A list of special hooks from the `Standard Hooks' node of the Lisp manual. + "A list of special hooks from Info node `(elisp)Standard Hooks'. These are symbols with hook-type values whose names don't end in `-hook' or `-hooks', from which `unload-feature' tries to remove @@ -154,8 +154,10 @@ is nil, raise an error." (memq x loadhist-hook-functions))) (dolist (y (cdr flist)) (remove-hook x y)))))) - (if (fboundp 'elp-restore-list) - (elp-restore-list (cdr flist))) + (if (fboundp 'elp-restore-function) ; remove ELP stuff first + (dolist (elt (cdr flist)) + (if (symbolp elt) + (elp-restore-function elt)))) (mapc (lambda (x) (cond ((stringp x) nil) -- 2.39.5