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

[Richard M. Stallman]

    Not to me. Your changes just mention that the FILE arg could be an "absolute
    file name". First, "test.el" is not an absolute file name, in terms of what
    most people understand by that (no directory path) - "complete file name,
    with extension" is what you mean, I think.

How about this version?


*** loadhist.el 07 Aug 2005 13:30:24 -0400      1.35
--- loadhist.el 20 Oct 2005 16:21:16 -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,61 ----
      (car (feature-symbols feature))))
  
  (defun file-loadhist-lookup (file)
!   "Return the `load-history' element for FILE.
! FILE can be a file name, or a library name.
! A library name is equivalent to the file name that `load-library' would load."
    ;; 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)
--- 72,80 ----
      symbols))
  
  (defun file-provides (file)
!   "Return the list of features provided by FILE as it was loaded.
! FILE can be a file name, or a library name.
! A library name is equivalent to the file name that `load-library' would load."
    (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)
--- 84,92 ----
      provides))
  
  (defun file-requires (file)
!   "Return the list of features required by FILE as it was loaded.
! FILE can be a file name, or a library name.
! A library name is equivalent to the file name that `load-library' would load."
    (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)
--- 104,112 ----
  
  (defun file-dependents (file)
    "Return the list of loaded libraries that depend on FILE.
! This can include FILE itself.
! FILE can be a file name, or a library name.
! A library name is equivalent to the file name that `load-library' would load."
    (let ((provides (file-provides file))
        (dependents nil))
      (dolist (x load-history dependents)