Mercurial > emacs
changeset 29346:7ac9c66520d4
(loadhist-hook-functions): Remove before-change-function,
after-change-function.
(unload-feature): Deal with symbols which are both bound and fbound.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 31 May 2000 22:57:59 +0000 |
| parents | a4d9a2ab3c73 |
| children | 159b22213a00 |
| files | lisp/loadhist.el |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/loadhist.el Wed May 31 22:50:41 2000 +0000 +++ b/lisp/loadhist.el Wed May 31 22:57:59 2000 +0000 @@ -97,8 +97,8 @@ nil t))) (defvar loadhist-hook-functions - '(after-change-function after-change-functions -after-insert-file-functions auto-fill-function before-change-function + '(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 @@ -161,11 +161,13 @@ ;; Remove any feature names that this file provided. (if (eq (car x) 'provide) (setq features (delq (cdr x) features)))) - ((boundp x) (makunbound x)) - ((fboundp x) - (fmakunbound x) - (let ((aload (get x 'autoload))) - (if aload (fset x (cons 'autoload aload))))))) + (t + (when (boundp x) + (makunbound x)) + (when (fboundp x) + (fmakunbound x) + (let ((aload (get x 'autoload))) + (if aload (fset x (cons 'autoload aload)))))))) (cdr flist)) ;; Delete the load-history element for this file. (let ((elt (assoc file load-history)))