;ELC ;;; Compiled ;;; in Emacs version 30.1 ;;; with all optimizations. (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")))))#@222 Properties given to the `shadowed' part of a filename in the minibuffer. Only used when `file-name-shadow-mode' is active. If Emacs is not running under a window system, `file-name-shadow-tty-properties' is used instead.#@2 #@261 Properties given to the `shadowed' part of a filename in the minibuffer. Only used when `file-name-shadow-mode' is active and Emacs is not running under a window-system; if Emacs is running under a window system, `file-name-shadow-properties' is used instead.#@54 Face used by `file-name-shadow-mode' for the shadow. (byte-code "\301\302\303\304\305DD\306\307\310\311\312\313& \210\301\314\303\304\315DD\316\307\310\311\312\313& \207" [file-name-shadow-properties-custom-type custom-declare-variable file-name-shadow-properties funcall function #[0 "\300\207" [(face file-name-shadow field shadow)] 1 (#$ . 1382)] (#$ . 1157) :type :group minibuffer :version "22.1" file-name-shadow-tty-properties #[0 "\300\301!\207" [purecopy (before-string "{" after-string "} " field shadow)] 2 (#$ . 1382)] (#$ . 1389)] 10) (custom-declare-face 'file-name-shadow '((t :inherit shadow)) '(#$ . 1654) :group 'minibuffer :version "22.1")#@49 Minibuffer setup functions from other packages. (defvar rfn-eshadow-setup-minibuffer-hook nil (#$ . 2320))#@49 Customer overlay functions from other packages. (defvar rfn-eshadow-update-overlay-hook nil (#$ . 2432)) (defvar rfn-eshadow-frobbed-minibufs nil) (defvar rfn-eshadow-overlay nil)#@114 Set up a minibuffer for `file-name-shadow-mode'. The prompt and initial input should already have been inserted. (make-variable-buffer-local 'rfn-eshadow-overlay) (defalias 'rfn-eshadow-setup-minibuffer #[0 "\205A\305\306 \306 \"\n\203 \202\f\211\203+\307 \211A\262\242\211A\262\242#\210\202\210\307 \310\311#\210\312\313p\"\210\314\315\316\317\311$\210\320\321!\207" [minibuffer-completing-file-name rfn-eshadow-overlay window-system file-name-shadow-properties file-name-shadow-tty-properties 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] 6 (#$ . 2618)])#@17 (fn GOAL POS) (defalias 'rfn-eshadow-sifn-equal #[514 "\3001\301\302d\"!0\202\210\303\232\207" [(error) substitute-in-file-name buffer-substring-no-properties nil] 7 (#$ . 3351)])#@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'. (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put rfn-eshadow-sifn-equal speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'rfn-eshadow-update-overlay #[0 "\3021\300\303\304\305 !\306 !\307 d\203S=\2044T\3101,\304\311d\"!0\202.\210\312\232\266\202\204S=\204\270\3101K\304\311d\"!0\202M\210\312\232\266\202\204\270TW\204\206\211TdW\203\261T\3101s\304\311d\"!0\202u\210\312\232\266\202\203\261\211T\262d\211\262\203\261\\\313\245\262\3101\236\304\311d\"!0\202\240\210\312\232\266\202\203\254\262\202S\210\202S\314 \307 #\210\315\316!)\266\2040\207\312\207" [non-essential rfn-eshadow-overlay (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] 12 (#$ . 3545)])#@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'.#@1014 Toggle file-name shadowing in minibuffers (File-Name Shadow mode). 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. This is a global minor mode. If called interactively, toggle the `File-Name-Shadow mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value \='file-name-shadow-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317& \207" [custom-declare-variable file-name-shadow-mode funcall function #[0 "\300\207" [t] 1 (#$ . 1382)] (#$ . 4684) :set custom-set-minor-mode :initialize custom-initialize-delay :type boolean :group minibuffer :version "22.1"] 14) (defalias 'file-name-shadow-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203D\314\315\316\"\210\202c\317\315\316\"\210\n\211\203`\211@r\211q\210\317\320\321\311#)\266A\202J\210\310\322\323\306\301!\203o\324\202p\325\"\210\326\327!\203\231\330\301!\210\303 \203\210\211\303 \232\203\231\331\332\333\306\301!\203\225\334\202\226\335\336$\210\210\337 \210\306\301!\207" [global-minor-modes file-name-shadow-mode rfn-eshadow-frobbed-minibufs current-message set-default toggle default-value 1 nil t boundp delq add-hook minibuffer-setup-hook rfn-eshadow-setup-minibuffer remove-hook post-command-hook rfn-eshadow-update-overlay 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 "%s %sabled%s" "File-Name-Shadow mode" "en" "dis" "" force-mode-line-update] 8 (#$ . 4974) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar file-name-shadow-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315!\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.)" custom-type hook standard-value nil add-minor-mode file-name-shadow-mode boundp provide rfn-eshadow] 6)