# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 959813879 0
# Node ID 7ac9c66520d4cafc4f3e3aa8f799c37018a1c9ba
# Parent  a4d9a2ab3c735f67f95723c6fd44369927aeae32
(loadhist-hook-functions): Remove before-change-function,
after-change-function.
(unload-feature): Deal with symbols which are both bound and fbound.

diff -r a4d9a2ab3c73 -r 7ac9c66520d4 lisp/loadhist.el
--- 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)))