[Emacs-diffs] Changes to emacs/lisp/loadhist.el

[Richard M. Stallman]

Index: emacs/lisp/loadhist.el
diff -c emacs/lisp/loadhist.el:1.22 emacs/lisp/loadhist.el:1.23
*** emacs/lisp/loadhist.el:1.22 Tue Oct 31 07:02:51 2000
--- emacs/lisp/loadhist.el      Fri Aug 23 23:00:29 2002
***************
*** 32,38 ****
  ;;; Code:
  
  (defun feature-symbols (feature)
!   "Return the file and list of symbols associated with a given FEATURE."
     (catch 'foundit
       (mapc (lambda (x)
             (if (member (cons 'provide feature) (cdr x))
--- 32,40 ----
  ;;; Code:
  
  (defun feature-symbols (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,112 ****
  
  (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)
    "A list of special hooks from Info node `(elisp)Standard Hooks'.
  
  These are symbols with hook-type values whose names don't end in
--- 100,114 ----
  
  (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)
    "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,173 ****
               ((consp x)
                ;; Remove any feature names that this file provided.
                (if (eq (car x) 'provide)
!                   (setq features (delq (cdr x) features))))
             (t
-             (when (boundp x)
-               (makunbound x))
              (when (fboundp x)
                (if (fboundp 'ad-unadvise)
                    (ad-unadvise x))
--- 166,175 ----
               ((consp x)
                ;; Remove any feature names that this file provided.
                (if (eq (car x) 'provide)
!                   (setq features (delq (cdr x) features)))
!               (if (eq (car x) 'defvar)
!                 (makunbound (cdr x))))
             (t
              (when (fboundp x)
                (if (fboundp 'ad-unadvise)
                    (ad-unadvise x))