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

[Juanma Barranquero]

Index: emacs/lisp/emacs-lisp/shadow.el
diff -c emacs/lisp/emacs-lisp/shadow.el:1.14 
emacs/lisp/emacs-lisp/shadow.el:1.15
*** emacs/lisp/emacs-lisp/shadow.el:1.14        Tue Nov 19 10:01:00 2002
--- emacs/lisp/emacs-lisp/shadow.el     Tue Feb  4 07:53:34 2003
***************
*** 74,80 ****
  are stripped from the file names in the list.
  
  See the documentation for `list-load-path-shadows' for further information."
!   
    (or path (setq path load-path))
  
    (let (true-names                    ; List of dirs considered.
--- 74,80 ----
  are stripped from the file names in the list.
  
  See the documentation for `list-load-path-shadows' for further information."
! 
    (or path (setq path load-path))
  
    (let (true-names                    ; List of dirs considered.
***************
*** 86,92 ****
        files-seen-this-dir             ; Files seen so far in this dir.
        file)                           ; The current file.
  
!   
      (while path
  
        (setq dir (directory-file-name (file-truename (or (car path) "."))))
--- 86,92 ----
        files-seen-this-dir             ; Files seen so far in this dir.
        file)                           ; The current file.
  
! 
      (while path
  
        (setq dir (directory-file-name (file-truename (or (car path) "."))))
***************
*** 125,131 ****
            ;; This test prevents us declaring that XXX.el shadows
            ;; XXX.elc (or vice-versa) when they are in the same directory.
            (setq files-seen-this-dir (cons file files-seen-this-dir))
!             
            (if (setq orig-dir (assoc file files))
                ;; This file was seen before, we have a shadowing.
                ;; Report it unless the files are identical.
--- 125,131 ----
            ;; This test prevents us declaring that XXX.el shadows
            ;; XXX.elc (or vice-versa) when they are in the same directory.
            (setq files-seen-this-dir (cons file files-seen-this-dir))
! 
            (if (setq orig-dir (assoc file files))
                ;; This file was seen before, we have a shadowing.
                ;; Report it unless the files are identical.
***************
*** 202,208 ****
  When run interactively, the shadowings \(if any\) are displayed in a
  buffer called `*Shadows*'.  Shadowings are located by calling the
  \(non-interactive\) companion function, `find-emacs-lisp-shadows'."
!   
    (interactive)
    (let* ((path (copy-sequence load-path))
        (tem path)
--- 202,208 ----
  When run interactively, the shadowings \(if any\) are displayed in a
  buffer called `*Shadows*'.  Shadowings are located by calling the
  \(non-interactive\) companion function, `find-emacs-lisp-shadows'."
! 
    (interactive)
    (let* ((path (copy-sequence load-path))
        (tem path)