Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/shadow.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\302\303\304\305\306\307\310\311&\210\312\313\314\304#\210\315\304\211\2037 @\313N\2030 \314N\2040 \316\314\313N#\210 A\211\204 *\317\313\314\320#\210\321\314\304\322\323\324\310\303&\207" [prop --dolist-tail-- custom-declare-group lisp-shadow nil "Locate Emacs Lisp file shadowings." :prefix "load-path-shadows-" :group lisp defvaralias shadows-compare-text-p load-path-shadows-compare-text (saved-value saved-variable-comment) put make-obsolete-variable "23.3" custom-declare-variable "If non-nil, then shadowing files are reported only if their text differs.\nThis is slower, but filters out some innocuous shadowing." :type boolean] 9)
#@445 Return a list of Emacs Lisp files that create shadows.
This function does the work for `list-load-path-shadows'.
We traverse PATH looking for shadows, and return a (possibly empty)
even-length list of files. A file in this list at position 2i shadows
the file in position 2i+1. Emacs Lisp file suffixes (.el and .elc)
are stripped from the file names in the list.
See the documentation for `list-load-path-shadows' for further information.
(defalias 'load-path-shadows-find #[(&optional path) "\306\211\211\211\211\211\211\211\211 $ % &'\206 (\306 )\211 *\2033*@)\307\310)\2062 \311!!\211&\235\203V +\204*)\203*)\311\230\204*\312\313)\"\210\202*\314&
C\"&\307)\206e \311!\315
!\205s \316
\306\317\320$\211\203\204 +\204\204 \312\321 G
#\210\306\322
! \306\211 *\203)*@\323\324\"\203\244 \325\326\327#\325\326\325\330\"\331\230\203\264 \332\202\265 \327#\211 \235\204 \333\334\335,!E\235\204 B\336$\f\205\326 \337#\211\203\nA\340\n@Q
\340Q - ./\203 \341.\342P-\342P\"\203 \341.\343P-\343P\"\204\314%.-D\"%*\202
B$B$*A\211*\204\223 **A\211*\204% *%. \207" [file files-seen-this-dir orig-dir curr-files dir-case-insensitive dir nil directory-file-name file-truename "." message "Ignoring redundant directory %s" append file-accessible-directory-p directory-files "\\.elc?\\(?:\\.gz\\)?\\'" t "Checking %d files in %s..." file-name-case-insensitive-p string-match "\\.gz$" substring 0 -3 -1 "c" -4 "subdirs" "leim-list" file-name-sans-extension assoc #[(f1 f2) "\302\303\211 \303\211\304&\304=\207" [f1 f2 compare-strings nil t] 8] "/" load-path-shadows-same-file-or-nonexistent ".el" ".elc" files shadows true-names path load-path pp --dolist-tail-- noninteractive dir-locals-file base2 base1 load-path-shadows-compare-text] 10 (#$ . 1073)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias find-emacs-lisp-shadows load-path-shadows-find nil make-obsolete "23.3"] 4)
(defalias 'load-path-shadows-same-file-or-nonexistent #[(f1 f2) "\304!\304 !\211\204 \n?\206C \205C \n\205C \305!\305 !\232\206C \306!\3078\262\306 !\3078\262U\205C \310\311\312\211\211\313 &\314=*\207" [f1 f2 exists2 exists1 file-exists-p file-truename file-attributes 7 call-process "cmp" nil "-s" 0] 9])
#@52 Keywords to highlight in `load-path-shadows-mode'.
(defvar load-path-shadows-font-lock-keywords (byte-code "\301\302\303\304\305!\206 \306\307\310\"!!\"\311BC\207" [data-directory format "hides \\(%s.*\\)" file-name-directory locate-library "simple" file-name-as-directory expand-file-name "../lisp" (1 font-lock-warning-face)] 7) (#$ . 3363))
(defvar load-path-shadows-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [load-path-shadows-mode-hook variable-documentation put "Hook run after entering LP-Shadows mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp load-path-shadows-mode-map definition-name load-path-shadows-mode] 4)
(defvar load-path-shadows-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [load-path-shadows-mode-abbrev-table load-path-shadows-mode-map variable-documentation put purecopy "Keymap for `load-path-shadows-mode'." boundp load-path-shadows-mode-syntax-table definition-name load-path-shadows-mode (lambda (#1=#:def-tmp-var) (defvar load-path-shadows-mode-syntax-table #1#)) make-syntax-table "Syntax table for `load-path-shadows-mode'." (lambda (#1#) (defvar load-path-shadows-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `load-path-shadows-mode'." derived-mode-parent] 5)
#@185 Major mode for load-path shadows buffer.
This mode runs the hook `load-path-shadows-mode-hook', as the final or penultimate step
during initialization.
\{load-path-shadows-mode-map}
(defalias 'load-path-shadows-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
\306\315!\210\316
\307\211)\317\320!\207" [delay-mode-hooks major-mode mode-name load-path-shadows-mode-map load-path-shadows-mode-syntax-table load-path-shadows-mode-abbrev-table make-local-variable t kill-all-local-variables load-path-shadows-mode "LP-Shadows" use-local-map set-syntax-table font-lock-defaults ((load-path-shadows-font-lock-keywords)) run-mode-hooks load-path-shadows-mode-hook local-abbrev-table buffer-undo-list buffer-read-only] 3 (#$ . 5002) nil])
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require button define-button-type load-path-shadows-find-file follow-link t action #[(button) "\302\303\"\304P\305 !\204 \306P\307 !\203 \310\311 !!\202\" \312\313!)\207" [button file button-get shadow-file ".el" file-exists-p ".gz" file-readable-p pop-to-buffer find-file-noselect error "Cannot read file"] 3] help-echo "mouse-2, RET: find this file"] 8)
#@1850 Display a list of Emacs Lisp files that shadow other files.
If STRINGP is non-nil, returns any shadows as a string.
Otherwise, if interactive shows any shadows in a `*Shadows*' buffer;
else prints messages listing any shadows.
This function lists potential load path problems. Directories in
the `load-path' variable are searched, in order, for Emacs Lisp
files. When a previously encountered file name is found again, a
message is displayed indicating that the later file is "hidden" by
the earlier.
For example, suppose `load-path' is set to
("/usr/share/emacs/site-lisp" "/usr/share/emacs/24.3/lisp")
and that each of these directories contains a file called XXX.el. Then
XXX.el in the site-lisp directory is referred to by all of:
(require \='XXX), (autoload .... "XXX"), (load-library "XXX") etc.
The first XXX.el file prevents Emacs from seeing the second (unless
the second is loaded explicitly via `load-file').
When not intended, such shadowings can be the source of subtle
problems. For example, the above situation may have arisen because the
XXX package was not distributed with versions of Emacs prior to
24.3. A system administrator downloaded XXX from elsewhere and installed
it. Later, XXX was updated and included in the Emacs distribution.
Unless the system administrator checks for this, the new version of XXX
will be hidden behind the old (which may no longer work with the new
Emacs version).
This function performs these checks and flags all possible
shadowings. Because a .el file may exist without a corresponding .elc
(or vice-versa), these suffixes are essentially ignored. A file
XXX.elc in an early directory (that does not contain XXX.el) is
considered to shadow a later file XXX.el, and vice-versa.
Shadowings are located by calling the (non-interactive) companion
function, `load-path-shadows-find'.
(defalias 'list-load-path-shadows #[(&optional stringp) "\306!\211G\307\245\310\311\n\312U\203 \313\202 \314\315\n!P\n\316U\203$ \317\202% \320#\321\322! r\fq\210\323\216 \203G \310\324 @ A@#c\210 AA\211\2045
\203P \325 \202\330 \326\327!\203\263 \325 +r\330\331!q\210\332p!\210\333 \210\334 ,\335 \210+c\210 \314\261\210\336\337\340\334#\203\255 \307\312 - .-.W\203\251 \341-T\224-T\225\342\343\344\345-T!&\210-T\211-\202\206 *\202v db+\202\330 \n\312U?\205\330 \346\347!\210eb\210m\204\324 \346\350\351 \352 {\"\210\316y\210\202\301 \346\350 \".\207" [load-path shadows n msg #1=#:temp-buffer stringp load-path-shadows-find 2 format "%s Emacs Lisp load-path shadowing%s found" 0 "No" "\n" number-to-string 1 " was" "s were" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] "%s hides %s\n" buffer-string called-interactively-p interactive get-buffer-create "*Shadows*" display-buffer load-path-shadows-mode t erase-buffer re-search-backward "\\(^.*\\) hides \\(.*$\\)" nil make-button type load-path-shadows-find-file shadow-file match-string message "This site has duplicate Lisp libraries with the same name.\nIf a locally-installed Lisp library overrides a library in the Emacs release,\nthat can cause trouble, and you should probably remove the locally-installed\nversion unless you know what you are doing.\n" "%s" line-beginning-position line-end-position string inhibit-read-only i --dotimes-limit--] 9 (#$ . 6200) nil])
(provide 'shadow)
Mini Shell