diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-08-24 03:00:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-08-24 03:00:29 +0000 |
| commit | 7dc2cc987c5eeda596aa4bbd90f7fb339276ab38 (patch) | |
| tree | 9022dfe47c74a6274813309d57bb90ea2a9a7a85 /lisp | |
| parent | 80c39c38bb8ffa0b3ee0dba317fec0c32a32c556 (diff) | |
| download | emacs-7dc2cc987c5eeda596aa4bbd90f7fb339276ab38.tar.gz | |
(unload-feature): Distinguish functions from variables in load-history.
(feature-symbols): Doc fix.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/loadhist.el | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/lisp/loadhist.el b/lisp/loadhist.el index daa388d502d..00597615c2d 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -32,7 +32,9 @@ ;;; Code: (defun feature-symbols (feature) - "Return the file and list of symbols associated with a given FEATURE." + "Return the file and list of definitions associated with FEATURE. +The value is actually the element of `load-history' +for the file that did (provide FEATURE)." (catch 'foundit (mapc (lambda (x) (if (member (cons 'provide feature) (cdr x)) @@ -98,15 +100,15 @@ return the feature \(symbol\)." (defvar loadhist-hook-functions '(after-change-functions -after-insert-file-functions auto-fill-function -before-change-functions blink-paren-function -buffer-access-fontify-functions command-line-functions -comment-indent-function kill-buffer-query-functions -kill-emacs-query-functions lisp-indent-function -mouse-position-function -redisplay-end-trigger-functions temp-buffer-show-function -window-scroll-functions window-size-change-functions -write-region-annotate-functions) + after-insert-file-functions auto-fill-function + before-change-functions blink-paren-function + buffer-access-fontify-functions command-line-functions + comment-indent-function kill-buffer-query-functions + kill-emacs-query-functions lisp-indent-function + 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 Info node `(elisp)Standard Hooks'. These are symbols with hook-type values whose names don't end in @@ -164,10 +166,10 @@ is nil, raise an error." ((consp x) ;; Remove any feature names that this file provided. (if (eq (car x) 'provide) - (setq features (delq (cdr x) features)))) + (setq features (delq (cdr x) features))) + (if (eq (car x) 'defvar) + (makunbound (cdr x)))) (t - (when (boundp x) - (makunbound x)) (when (fboundp x) (if (fboundp 'ad-unadvise) (ad-unadvise x)) |