Removing unloaded functions from auto-mode-alist.

[Lute Kamstra]

unload-feature removes functions it is unloading from hooks.  What
about removing these functions from auto-mode-alist as well?

Lute.


Index: lisp/loadhist.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/loadhist.el,v
retrieving revision 1.32
diff -c -r1.32 loadhist.el
*** lisp/loadhist.el    19 Apr 2005 15:08:05 -0000      1.32
--- lisp/loadhist.el    19 Apr 2005 15:15:19 -0000
***************
*** 189,195 ****
                        (memq x unload-feature-special-hooks))) ; Known 
abnormal hooks etc.
           (dolist (y unload-hook-features-list)
             (when (eq (car-safe y) 'defun)
!              (remove-hook x (cdr y))))))))
      (when (fboundp 'elp-restore-function) ; remove ELP stuff first
        (dolist (elt unload-hook-features-list)
        (when (symbolp elt)
--- 189,200 ----
                        (memq x unload-feature-special-hooks))) ; Known 
abnormal hooks etc.
           (dolist (y unload-hook-features-list)
             (when (eq (car-safe y) 'defun)
!              (remove-hook x (cdr y)))))))
!       ;; Remove any feature-symbols from auto-mode-alist as well.
!       (dolist (elt unload-hook-features-list)
!       (when (eq (car-safe elt) 'defun)
!         (setq auto-mode-alist 
!               (rassq-delete-all (cdr elt) auto-mode-alist)))))
      (when (fboundp 'elp-restore-function) ; remove ELP stuff first
        (dolist (elt unload-hook-features-list)
        (when (symbolp elt)