;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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)
(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 (#$ . 2811)])
(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 (#$ . 3741)])
#@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 '(#$ . 4748) :set 'custom-set-minor-mode :initialize 'custom-initialize-delay :group 'minibuffer :type 'boolean :version "22.1")
#@588 Toggle file-name shadowing in minibuffers (File-Name Shadow mode).
With a prefix argument ARG, enable File-Name Shadow mode if ARG
is positive, and disable it otherwise. If called from Lisp,
enable the mode if ARG is omitted or nil.
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 (#$ . 5217) (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)
|