Re: file-requires does not reflect source file changes, even after file is loaded

[Richard M. Stallman]

    4. M-: (file-requires "test") shows ("foo")

    5. Edit test.el so it requires bar instead of foo.

    6. load-library test.el (source file, not .elc)

    7. M-: (file-requires "test") still shows ("foo")

What does (file-requires "test.el") return at that point?  Does it
mention bar?  I suspect so.  That is arguably a bug; perhaps it should
treat "test" and "test.el" as the same file.  However, that is not
easy to do.

Aside from that, I think these doc fixes should be enough.


*** loadhist.el 07 Aug 2005 13:30:24 -0400      1.35
--- loadhist.el 20 Oct 2005 00:09:13 -0400      
***************
*** 53,59 ****
      (car (feature-symbols feature))))
  
  (defun file-loadhist-lookup (file)
!   "Return the `load-history' element for FILE."
    ;; First look for FILE as given.
    (let ((symbols (assoc file load-history)))
      ;; Try converting a library name to an absolute file name.
--- 53,60 ----
      (car (feature-symbols feature))))
  
  (defun file-loadhist-lookup (file)
!   "Return the `load-history' element for FILE.
! FILE can be an absolute file name or a library name that `load' could find."
    ;; First look for FILE as given.
    (let ((symbols (assoc file load-history)))
      ;; Try converting a library name to an absolute file name.
***************
*** 70,76 ****
      symbols))
  
  (defun file-provides (file)
!   "Return the list of features provided by FILE."
    (let ((symbols (file-loadhist-lookup file))
        provides)
      (mapc (lambda (x)
--- 71,78 ----
      symbols))
  
  (defun file-provides (file)
!   "Return the list of features provided by FILE as it was loaded.
! FILE can be an absolute file name or a library name that `load' could find."
    (let ((symbols (file-loadhist-lookup file))
        provides)
      (mapc (lambda (x)
***************
*** 80,86 ****
      provides))
  
  (defun file-requires (file)
!   "Return the list of features required by FILE."
    (let ((symbols (file-loadhist-lookup file))
        requires)
      (mapc (lambda (x)
--- 82,89 ----
      provides))
  
  (defun file-requires (file)
!   "Return the list of features required by FILE as it was loaded.
! FILE can be an absolute file name or a library name that `load' could find."
    (let ((symbols (file-loadhist-lookup file))
        requires)
      (mapc (lambda (x)
***************
*** 98,104 ****
  
  (defun file-dependents (file)
    "Return the list of loaded libraries that depend on FILE.
! This can include FILE itself."
    (let ((provides (file-provides file))
        (dependents nil))
      (dolist (x load-history dependents)
--- 101,108 ----
  
  (defun file-dependents (file)
    "Return the list of loaded libraries that depend on FILE.
! This can include FILE itself.
! FILE can be an absolute file name or a library name that `load' could find."
    (let ((provides (file-provides file))
        (dependents nil))
      (dolist (x load-history dependents)