diff options
| author | Dave Love <fx@gnu.org> | 2000-10-31 12:02:51 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-10-31 12:02:51 +0000 |
| commit | 3eef341ac1ea71e7730564caa4c19427c068c35e (patch) | |
| tree | ca3f3522117b9f2eb3b25af39229a044f8c551f4 /lisp/loadhist.el | |
| parent | 9e20722fecc2b1b633ad92ebfea2bd5eb3b29e4f (diff) | |
| download | emacs-3eef341ac1ea71e7730564caa4c19427c068c35e.tar.gz | |
(unload-feature): Call elp-restore-function,
checking for symbols; don't use elp-restore-all.
(loadhist-hook-functions): Doc fix.
Diffstat (limited to 'lisp/loadhist.el')
| -rw-r--r-- | lisp/loadhist.el | 8 |
1 files 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) |