Mercurial > emacs
annotate lisp/emacs-lisp/shadow.el @ 109559:4325622babca
Remove declarations and unused variables.
* src/term.c (Qspace, QCalign_to, QCwidth): Remove declarations.
(encode_terminal_code, produce_composite_glyph): Remove unused variables.
(set_tty_color_mode, term_mouse_highlight, term_get_fkeys): Remove
local extern declarations.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Mon, 26 Jul 2010 21:20:51 -0700 |
parents | 1d1d5d9bd884 |
children | 2343b29e1e8d 3466369fdfcd |
rev | line source |
---|---|
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
22170
diff
changeset
|
1 ;;; shadow.el --- locate Emacs Lisp file shadowings |
14058 | 2 |
104021
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
3 ;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, |
106815 | 4 ;; 2009, 2010 Free Software Foundation, Inc. |
14058 | 5 |
6 ;; Author: Terry Jones <terry@santafe.edu> | |
7 ;; Keywords: lisp | |
8 ;; Created: 15 December 1995 | |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
94655
90a2847062be
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
14058 | 13 ;; it under the terms of the GNU General Public License as published by |
94655
90a2847062be
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
90a2847062be
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
15 ;; (at your option) any later version. |
14058 | 16 |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
94655
90a2847062be
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
14058 | 24 |
25 ;;; Commentary: | |
14169 | 26 |
14058 | 27 ;; The functions in this file detect (`find-emacs-lisp-shadows') |
28 ;; and display (`list-load-path-shadows') potential load-path | |
29 ;; problems that arise when Emacs Lisp files "shadow" each other. | |
30 ;; | |
31 ;; For example, a file XXX.el early in one's load-path will shadow | |
32 ;; a file with the same name in a later load-path directory. When | |
33 ;; this is unintentional, it may result in problems that could have | |
34 ;; been easily avoided. This occurs often (to me) when installing a | |
35 ;; new version of emacs and something in the site-lisp directory | |
36 ;; has been updated and added to the emacs distribution. The old | |
37 ;; version, now outdated, shadows the new one. This is obviously | |
38 ;; undesirable. | |
39 ;; | |
40 ;; The `list-load-path-shadows' function was run when you installed | |
41 ;; this version of emacs. To run it by hand in emacs: | |
42 ;; | |
43 ;; M-x list-load-path-shadows | |
44 ;; | |
45 ;; or run it non-interactively via: | |
46 ;; | |
104021
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
47 ;; emacs -batch -f list-load-path-shadows |
14058 | 48 ;; |
49 ;; Thanks to Francesco Potorti` <pot@cnuce.cnr.it> for suggestions, | |
50 ;; rewritings & speedups. | |
51 | |
52 ;;; Code: | |
53 | |
48459
f1f792410820
(defgroup lisp-shadow): New group name. Previous group name shadow is
Markus Rost <rost@math.uni-bielefeld.de>
parents:
44203
diff
changeset
|
54 (defgroup lisp-shadow nil |
21365 | 55 "Locate Emacs Lisp file shadowings." |
56 :prefix "shadows-" | |
57 :group 'lisp) | |
58 | |
59 (defcustom shadows-compare-text-p nil | |
104021
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
60 "If non-nil, then shadowing files are reported only if their text differs. |
21365 | 61 This is slower, but filters out some innocuous shadowing." |
62 :type 'boolean | |
48459
f1f792410820
(defgroup lisp-shadow): New group name. Previous group name shadow is
Markus Rost <rost@math.uni-bielefeld.de>
parents:
44203
diff
changeset
|
63 :group 'lisp-shadow) |
19982 | 64 |
14058 | 65 (defun find-emacs-lisp-shadows (&optional path) |
66 "Return a list of Emacs Lisp files that create shadows. | |
67 This function does the work for `list-load-path-shadows'. | |
68 | |
69 We traverse PATH looking for shadows, and return a \(possibly empty\) | |
70 even-length list of files. A file in this list at position 2i shadows | |
71 the file in position 2i+1. Emacs Lisp file suffixes \(.el and .elc\) | |
72 are stripped from the file names in the list. | |
73 | |
74 See the documentation for `list-load-path-shadows' for further information." | |
75 (let (true-names ; List of dirs considered. | |
76 shadows ; List of shadowings, to be returned. | |
77 files ; File names ever seen, with dirs. | |
78 dir ; The dir being currently scanned. | |
79 curr-files ; This dir's Emacs Lisp files. | |
80 orig-dir ; Where the file was first seen. | |
81 files-seen-this-dir ; Files seen so far in this dir. | |
82 file) ; The current file. | |
105932
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
83 (dolist (pp (or path load-path)) |
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
84 (setq dir (directory-file-name (file-truename (or pp ".")))) |
14058 | 85 (if (member dir true-names) |
86 ;; We have already considered this PATH redundant directory. | |
75508
1809625e8d5c
(list-load-path-shadows): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
75346
diff
changeset
|
87 ;; Show the redundancy if we are interactive, unless the PATH |
14058 | 88 ;; dir is nil or "." (these redundant directories are just a |
89 ;; result of the current working directory, and are therefore | |
90 ;; not always redundant). | |
91 (or noninteractive | |
105932
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
92 (and pp |
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
93 (not (string= pp ".")) |
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
94 (message "Ignoring redundant directory %s" pp))) |
19982 | 95 |
14058 | 96 (setq true-names (append true-names (list dir))) |
105932
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
97 (setq dir (directory-file-name (or pp "."))) |
14058 | 98 (setq curr-files (if (file-accessible-directory-p dir) |
67018 | 99 (directory-files dir nil ".\\.elc?\\(\\.gz\\)?$" t))) |
14058 | 100 (and curr-files |
101 (not noninteractive) | |
15736
73a325c414a5
(list-load-path-shadows): Fix ambiguous wording.
Karl Heuer <kwzh@gnu.org>
parents:
14348
diff
changeset
|
102 (message "Checking %d files in %s..." (length curr-files) dir)) |
19982 | 103 |
14058 | 104 (setq files-seen-this-dir nil) |
105 | |
105932
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
106 (dolist (file curr-files) |
14058 | 107 |
67018 | 108 (if (string-match "\\.gz$" file) |
109 (setq file (substring file 0 -3))) | |
14058 | 110 (setq file (substring |
111 file 0 (if (string= (substring file -1) "c") -4 -3))) | |
112 | |
19226
c160218de690
(find-emacs-lisp-shadows): Don't mention `subdirs.el'.
Richard M. Stallman <rms@gnu.org>
parents:
15756
diff
changeset
|
113 ;; FILE now contains the current file name, with no suffix. |
c160218de690
(find-emacs-lisp-shadows): Don't mention `subdirs.el'.
Richard M. Stallman <rms@gnu.org>
parents:
15756
diff
changeset
|
114 (unless (or (member file files-seen-this-dir) |
c160218de690
(find-emacs-lisp-shadows): Don't mention `subdirs.el'.
Richard M. Stallman <rms@gnu.org>
parents:
15756
diff
changeset
|
115 ;; Ignore these files. |
c160218de690
(find-emacs-lisp-shadows): Don't mention `subdirs.el'.
Richard M. Stallman <rms@gnu.org>
parents:
15756
diff
changeset
|
116 (member file '("subdirs"))) |
14058 | 117 ;; File has not been seen yet in this directory. |
118 ;; This test prevents us declaring that XXX.el shadows | |
119 ;; XXX.elc (or vice-versa) when they are in the same directory. | |
120 (setq files-seen-this-dir (cons file files-seen-this-dir)) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48459
diff
changeset
|
121 |
14058 | 122 (if (setq orig-dir (assoc file files)) |
123 ;; This file was seen before, we have a shadowing. | |
19982 | 124 ;; Report it unless the files are identical. |
125 (let ((base1 (concat (cdr orig-dir) "/" file)) | |
126 (base2 (concat dir "/" file))) | |
127 (if (not (and shadows-compare-text-p | |
128 (shadow-same-file-or-nonexistent | |
129 (concat base1 ".el") (concat base2 ".el")) | |
130 ;; This is a bit strict, but safe. | |
131 (shadow-same-file-or-nonexistent | |
132 (concat base1 ".elc") (concat base2 ".elc")))) | |
22170 | 133 (setq shadows |
134 (append shadows (list base1 base2))))) | |
14058 | 135 |
136 ;; Not seen before, add it to the list of seen files. | |
105932
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
137 (setq files (cons (cons file dir) files))))))) |
14058 | 138 ;; Return the list of shadowings. |
139 shadows)) | |
140 | |
19982 | 141 ;; Return true if neither file exists, or if both exist and have identical |
142 ;; contents. | |
143 (defun shadow-same-file-or-nonexistent (f1 f2) | |
144 (let ((exists1 (file-exists-p f1)) | |
145 (exists2 (file-exists-p f2))) | |
146 (or (and (not exists1) (not exists2)) | |
147 (and exists1 exists2 | |
148 (or (equal (file-truename f1) (file-truename f2)) | |
149 ;; As a quick test, avoiding spawning a process, compare file | |
150 ;; sizes. | |
151 (and (= (nth 7 (file-attributes f1)) | |
152 (nth 7 (file-attributes f2))) | |
53477
79093b308520
* progmodes/idlwave.el (idlwave-make-tags):
Eli Zaretskii <eliz@is.elta.co.il>
parents:
52401
diff
changeset
|
153 (eq 0 (call-process "cmp" nil nil nil "-s" f1 f2)))))))) |
14058 | 154 |
155 ;;;###autoload | |
104021
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
156 (defun list-load-path-shadows (&optional stringp) |
15756
30e9db641e6f
(list-load-path-shadows): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
15736
diff
changeset
|
157 "Display a list of Emacs Lisp files that shadow other files. |
14058 | 158 |
104021
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
159 If STRINGP is non-nil, returns any shadows as a string. |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
160 Otherwise, if interactive shows any shadows in a `*Shadows*' buffer; |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
161 else prints messages listing any shadows. |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
162 |
75508
1809625e8d5c
(list-load-path-shadows): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
75346
diff
changeset
|
163 This function lists potential load path problems. Directories in |
1809625e8d5c
(list-load-path-shadows): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
75346
diff
changeset
|
164 the `load-path' variable are searched, in order, for Emacs Lisp |
15756
30e9db641e6f
(list-load-path-shadows): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
15736
diff
changeset
|
165 files. When a previously encountered file name is found again, a |
30e9db641e6f
(list-load-path-shadows): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
15736
diff
changeset
|
166 message is displayed indicating that the later file is \"hidden\" by |
14058 | 167 the earlier. |
168 | |
169 For example, suppose `load-path' is set to | |
170 | |
171 \(\"/usr/gnu/emacs/site-lisp\" \"/usr/gnu/emacs/share/emacs/19.30/lisp\"\) | |
172 | |
173 and that each of these directories contains a file called XXX.el. Then | |
174 XXX.el in the site-lisp directory is referred to by all of: | |
175 \(require 'XXX\), \(autoload .... \"XXX\"\), \(load-library \"XXX\"\) etc. | |
176 | |
73745
06fca0c59a88
(list-load-path-shadows): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
68648
diff
changeset
|
177 The first XXX.el file prevents Emacs from seeing the second \(unless |
06fca0c59a88
(list-load-path-shadows): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
68648
diff
changeset
|
178 the second is loaded explicitly via `load-file'\). |
14058 | 179 |
180 When not intended, such shadowings can be the source of subtle | |
181 problems. For example, the above situation may have arisen because the | |
73745
06fca0c59a88
(list-load-path-shadows): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
68648
diff
changeset
|
182 XXX package was not distributed with versions of Emacs prior to |
06fca0c59a88
(list-load-path-shadows): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
68648
diff
changeset
|
183 19.30. An Emacs maintainer downloaded XXX from elsewhere and installed |
06fca0c59a88
(list-load-path-shadows): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
68648
diff
changeset
|
184 it. Later, XXX was updated and included in the Emacs distribution. |
06fca0c59a88
(list-load-path-shadows): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
68648
diff
changeset
|
185 Unless the Emacs maintainer checks for this, the new version of XXX |
14058 | 186 will be hidden behind the old \(which may no longer work with the new |
73745
06fca0c59a88
(list-load-path-shadows): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
68648
diff
changeset
|
187 Emacs version\). |
14058 | 188 |
189 This function performs these checks and flags all possible | |
190 shadowings. Because a .el file may exist without a corresponding .elc | |
191 \(or vice-versa\), these suffixes are essentially ignored. A file | |
192 XXX.elc in an early directory \(that does not contain XXX.el\) is | |
193 considered to shadow a later file XXX.el, and vice-versa. | |
194 | |
104021
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
195 Shadowings are located by calling the (non-interactive) companion |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
196 function, `find-emacs-lisp-shadows'." |
14058 | 197 (interactive) |
19313
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
198 (let* ((path (copy-sequence load-path)) |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
199 (tem path) |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
200 toplevs) |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
201 ;; If we can find simple.el in two places, |
105932
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
202 (dolist (tt tem) |
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
203 (if (or (file-exists-p (expand-file-name "simple.el" tt)) |
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
204 (file-exists-p (expand-file-name "simple.el.gz" tt))) |
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
205 (setq toplevs (cons tt toplevs)))) |
19313
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
206 (if (> (length toplevs) 1) |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
207 ;; Cut off our copy of load-path right before |
44203
621fbfd0bf87
(list-load-path-shadows): Only ignore last copy of standard Lisp
Richard M. Stallman <rms@gnu.org>
parents:
38436
diff
changeset
|
208 ;; the last directory which has simple.el in it. |
19313
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
209 ;; This avoids loads of duplications between the source dir |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
210 ;; and the dir where these files were copied by installation. |
44203
621fbfd0bf87
(list-load-path-shadows): Only ignore last copy of standard Lisp
Richard M. Stallman <rms@gnu.org>
parents:
38436
diff
changeset
|
211 (let ((break (car toplevs))) |
19313
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
212 (setq tem path) |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
213 (while tem |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
214 (if (eq (nth 1 tem) break) |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
215 (progn |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
216 (setcdr tem nil) |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
217 (setq tem nil))) |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
218 (setq tem (cdr tem))))) |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
219 |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
220 (let* ((shadows (find-emacs-lisp-shadows path)) |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
221 (n (/ (length shadows) 2)) |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
222 (msg (format "%s Emacs Lisp load-path shadowing%s found" |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
223 (if (zerop n) "No" (concat "\n" (number-to-string n))) |
04175c55c49b
(list-load-path-shadows): Exclude, from the path we search, all but
Richard M. Stallman <rms@gnu.org>
parents:
19226
diff
changeset
|
224 (if (= n 1) " was" "s were")))) |
104021
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
225 (with-temp-buffer |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
226 (while shadows |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
227 (insert (format "%s hides %s\n" (car shadows) |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
228 (car (cdr shadows)))) |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
229 (setq shadows (cdr (cdr shadows)))) |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
230 (if stringp |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
231 (buffer-string) |
105372
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104021
diff
changeset
|
232 (if (called-interactively-p 'interactive) |
105932
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
233 ;; We are interactive. |
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
234 ;; Create the *Shadows* buffer and display shadowings there. |
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
235 (let ((string (buffer-string))) |
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
236 (with-current-buffer (get-buffer-create "*Shadows*") |
106223
21d623c57072
(list-load-path-shadows): Setup a major mode
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105932
diff
changeset
|
237 (fundamental-mode) ;run after-change-major-mode-hook. |
105932
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
238 (display-buffer (current-buffer)) |
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
239 (setq buffer-undo-list t |
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
240 buffer-read-only nil) |
104021
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
241 (erase-buffer) |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
242 (insert string) |
105932
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
243 (insert msg "\n") |
dd099beb5a5b
(find-emacs-lisp-shadows, list-load-path-shadows): Use dolist.
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
244 (setq buffer-read-only t))) |
104021
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
245 ;; We are non-interactive, print shadows via message. |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
246 (unless (zerop n) |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
247 (message "This site has duplicate Lisp libraries with the same name. |
19226
c160218de690
(find-emacs-lisp-shadows): Don't mention `subdirs.el'.
Richard M. Stallman <rms@gnu.org>
parents:
15756
diff
changeset
|
248 If a locally-installed Lisp library overrides a library in the Emacs release, |
c160218de690
(find-emacs-lisp-shadows): Don't mention `subdirs.el'.
Richard M. Stallman <rms@gnu.org>
parents:
15756
diff
changeset
|
249 that can cause trouble, and you should probably remove the locally-installed |
21927
8332fee2c358
(list-load-path-shadows): Don't say
Richard M. Stallman <rms@gnu.org>
parents:
21365
diff
changeset
|
250 version unless you know what you are doing.\n") |
104021
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
251 (goto-char (point-min)) |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
252 ;; Mimic the previous behavior of using lots of messages. |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
253 ;; I think one single message would look better... |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
254 (while (not (eobp)) |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
255 (message "%s" (buffer-substring (line-beginning-position) |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
256 (line-end-position))) |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
257 (forward-line 1)) |
94f1fe5b7430
(shadows-compare-text-p): Remove leading * from defcustom doc.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
258 (message "%s" msg)))))))) |
14058 | 259 |
260 (provide 'shadow) | |
261 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79704
diff
changeset
|
262 ;; arch-tag: 0480e8a7-62ed-4a12-a9f6-f44ded9b0830 |
14058 | 263 ;;; shadow.el ends here |