Current File : //usr/local/share/emacs/27.2/lisp/rfn-eshadow.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst file-name-shadow-properties-custom-type '(list (checklist :inline t (const :tag "Invisible" :doc "Make shadowed part of filename invisible" :format "%t%n%h" :inline t (invisible t intangible t)) (list :inline t :format "%v" :tag "Face" :doc "Display shadowed part of filename using a different face" (const :format #1="" face) (face :value file-name-shadow)) (list :inline t :format "%t: %v%h" :tag "Brackets" :doc " Surround shadowed part of filename with brackets" (const :format #1# before-string) (string :format "%v" :size 4 :value "{") (const :format #1# after-string) (string :format " and: %v" :value "} ")) (list :inline t :format "%t: %v%n%h" :tag "String" :doc "Display a string instead of the shadowed part of filename" (const :format #1# display) (string :format "%v" :size 15 :value "<...ignored...>")) (const :tag "Avoid" :doc "Try to keep cursor out of shadowed part of filename" :format "%t%n%h" :inline t (field shadow))) (repeat :inline t :tag "Other Properties" (list :inline t :format "%v" (symbol :tag "Property") (sexp :tag "Value")))))
(byte-code "\301\302\303\304\305\306\307\310\311& \210\301\312\313\314\305\306\307\310\311& \210\315\316\317\320\306\307\310\311&\207" [file-name-shadow-properties-custom-type custom-declare-variable file-name-shadow-properties '(face file-name-shadow field shadow) "Properties given to the `shadowed' part of a filename in the minibuffer.\nOnly used when `file-name-shadow-mode' is active.\nIf Emacs is not running under a window system,\n`file-name-shadow-tty-properties' is used instead." :type :group minibuffer :version "22.1" file-name-shadow-tty-properties (purecopy '(before-string "{" after-string "} " field shadow)) "Properties given to the `shadowed' part of a filename in the minibuffer.\nOnly used when `file-name-shadow-mode' is active and Emacs\nis not running under a window-system; if Emacs is running under a window\nsystem, `file-name-shadow-properties' is used instead." custom-declare-face file-name-shadow ((t :inherit shadow)) "Face used by `file-name-shadow-mode' for the shadow."] 10)
#@49 Minibuffer setup functions from other packages.
(defvar rfn-eshadow-setup-minibuffer-hook nil (#$ . 2495))
#@48 Customer overlay functions from other packages
(defvar rfn-eshadow-update-overlay-hook nil (#$ . 2608))
(defvar rfn-eshadow-frobbed-minibufs nil)
(defvar rfn-eshadow-overlay nil nil)
(make-variable-buffer-local 'rfn-eshadow-overlay)
#@114 Set up a minibuffer for `file-name-shadow-mode'.
The prompt and initial input should already have been inserted.
(defalias 'rfn-eshadow-setup-minibuffer #[nil "\205@ \306\307 \307 \"\n\203 \202 \f
\203* \310
\211A\242
\211A\242#\210\202 )\310 \311\312#\210\313\314p\"\210\315\316\317\320\312$\210\321\322!\207" [minibuffer-completing-file-name rfn-eshadow-overlay window-system file-name-shadow-properties file-name-shadow-tty-properties props make-overlay minibuffer-prompt-end overlay-put evaporate t add-to-list rfn-eshadow-frobbed-minibufs add-hook post-command-hook rfn-eshadow-update-overlay nil run-hooks rfn-eshadow-setup-minibuffer-hook] 5 (#$ . 2848)])
(defalias 'rfn-eshadow-sifn-equal #[(goal pos) "\3021 \303\304 d\"!0\202 \210\305\232\207" [goal pos (error) substitute-in-file-name buffer-substring-no-properties nil] 5])
(put 'rfn-eshadow-sifn-equal 'byte-optimizer 'byte-compile-inline-expand)
#@249 Update `rfn-eshadow-overlay' to cover shadowed part of minibuffer input.
This is intended to be used as a minibuffer `post-command-hook' for
`file-name-shadow-mode'; the minibuffer should have already
been set up by `rfn-eshadow-setup-minibuffer'.
(defalias 'rfn-eshadow-update-overlay #[nil "\3061\313 \307\310\311 !\312\n!\313 d \203]
=\204; T \211\31414 \310\315d\"!0\2026 \210\316\232*\204] \f=\204\305 \211\3141V \310\315d\"!0\202X \210\316\232*\204\305 \fT
W\204\221
TdW\203\276
T \211\3141\201 \310\315d\"!0\202\203 \210\316\232*\203\276
Td\211\203\276 \f
\\\317\245 \211\3141\254 \310\315d\"!0\202\256 \210\316\232*\203\271 \211\202^ \202] \320\n\313 \f#\210\321\322!-0\207\210\316\207" [non-essential goal rfn-eshadow-overlay mid start end (error) t substitute-in-file-name minibuffer-contents overlay-end minibuffer-prompt-end (error) buffer-substring-no-properties nil 2 move-overlay run-hooks rfn-eshadow-update-overlay-hook pos] 6 (#$ . 3778)])
#@284 Non-nil if File-Name-Shadow mode is enabled.
See the `file-name-shadow-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `file-name-shadow-mode'.
(custom-declare-variable 'file-name-shadow-mode t '(#$ . 4785) :set 'custom-set-minor-mode :initialize 'custom-initialize-delay :group 'minibuffer :type 'boolean :version "22.1")
#@670 Toggle file-name shadowing in minibuffers (File-Name Shadow mode).
If called interactively, enable File-Name-Shadow mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
File-Name Shadow mode is a global minor mode. When enabled, any
part of a filename being read in the minibuffer that would be
ignored (because the result is passed through
`substitute-in-file-name') is given the properties in
`file-name-shadow-properties', which can be used to make that
portion dim, invisible, or otherwise less visually noticeable.
(defalias 'file-name-shadow-mode #[(&optional arg) "\306 \307\302 \310=\203 \311\302!?\202 \312 !\313V\"\210\n\203% \314\315\316\"\210\202J \317\315\316\"\210 \320 \211 \203G
@r\fq\210\317\321\322\323#\210)
A\211\2042 *\320\324\325\311\302!\203V \326\202W \327\"\210\330\331!\203\204 \332\302!\210\306 \203o \306 \232\203\204 \333 !\334\335\311\302!\203~ \336\202 \337!#\210))\340 \210\311\302!\207" [#1=#:last-message arg file-name-shadow-mode rfn-eshadow-frobbed-minibufs minibuf --dolist-tail-- current-message set-default toggle default-value prefix-numeric-value 0 add-hook minibuffer-setup-hook rfn-eshadow-setup-minibuffer remove-hook nil post-command-hook rfn-eshadow-update-overlay t run-hooks file-name-shadow-mode-hook file-name-shadow-mode-on-hook file-name-shadow-mode-off-hook called-interactively-p any customize-mark-as-set "" message "File-Name-Shadow mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 5254) (list (or current-prefix-arg 'toggle))])
(defvar file-name-shadow-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312!\207" [file-name-shadow-mode-map file-name-shadow-mode-hook variable-documentation put "Hook run after entering or leaving `file-name-shadow-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode file-name-shadow-mode nil boundp provide rfn-eshadow] 6)
Mini Shell