;;; Code:
\f
-(defgroup shadow nil
+(defgroup lisp-shadow nil
"Locate Emacs Lisp file shadowings."
:prefix "shadows-"
:group 'lisp)
"*If non-nil, then shadowing files are reported only if their text differs.
This is slower, but filters out some innocuous shadowing."
:type 'boolean
- :group 'shadow)
+ :group 'lisp-shadow)
(defun find-emacs-lisp-shadows (&optional path)
"Return a list of Emacs Lisp files that create shadows.
(setq tem (cdr tem)))
(if (> (length toplevs) 1)
;; Cut off our copy of load-path right before
- ;; the second directory which has simple.el in it.
+ ;; the last directory which has simple.el in it.
;; This avoids loads of duplications between the source dir
;; and the dir where these files were copied by installation.
- (let ((break (nth (- (length toplevs) 2) toplevs)))
+ (let ((break (car toplevs)))
(setq tem path)
(while tem
(if (eq (nth 1 tem) break)