Mercurial > emacs
comparison lisp/emacs-lisp/shadow.el @ 21365:db005054f15d
Customized.
author | Stephen Eglen <stephen@gnu.org> |
---|---|
date | Sun, 05 Apr 1998 18:26:32 +0000 |
parents | 199256234202 |
children | 8332fee2c358 |
comparison
equal
deleted
inserted
replaced
21364:ab5063078051 | 21365:db005054f15d |
---|---|
51 ;; Thanks to Francesco Potorti` <pot@cnuce.cnr.it> for suggestions, | 51 ;; Thanks to Francesco Potorti` <pot@cnuce.cnr.it> for suggestions, |
52 ;; rewritings & speedups. | 52 ;; rewritings & speedups. |
53 | 53 |
54 ;;; Code: | 54 ;;; Code: |
55 | 55 |
56 (defvar shadows-compare-text-p nil | 56 (defgroup shadow nil |
57 "Locate Emacs Lisp file shadowings." | |
58 :prefix "shadows-" | |
59 :group 'lisp) | |
60 | |
61 (defcustom shadows-compare-text-p nil | |
57 "*If non-nil, then shadowing files are reported only if their text differs. | 62 "*If non-nil, then shadowing files are reported only if their text differs. |
58 This is slower, but filters out some innocuous shadowing.") | 63 This is slower, but filters out some innocuous shadowing." |
64 :type 'boolean | |
65 :group 'shadow) | |
59 | 66 |
60 (defun find-emacs-lisp-shadows (&optional path) | 67 (defun find-emacs-lisp-shadows (&optional path) |
61 "Return a list of Emacs Lisp files that create shadows. | 68 "Return a list of Emacs Lisp files that create shadows. |
62 This function does the work for `list-load-path-shadows'. | 69 This function does the work for `list-load-path-shadows'. |
63 | 70 |