;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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"))))) (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 #1=""] "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 #[0 "\300\301!\207" [purecopy (before-string "{" after-string "} " field shadow)] 2 #1#] "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."] 10) (custom-declare-face 'file-name-shadow '((t :inherit shadow)) "Face used by `file-name-shadow-mode' for the shadow." :group 'minibuffer :version "22.1")#@49 Minibuffer setup functions from other packages. (defvar rfn-eshadow-setup-minibuffer-hook nil (#$ . 2259))#@49 Customer overlay functions from other packages. (defvar rfn-eshadow-update-overlay-hook nil (#$ . 2371)) (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 #[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 (#$ . 2611)])#@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 (#$ . 3294)]) (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)#@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 #[0 "\3021\301\303\304\305 !\306 !\307 d\203S=\2044T\3101,\304\311d\"!0\202.\210\312\232\266\202\204S=\204\271\3101K\304\311d\"!0\202M\210\312\232\266\202\204\271TW\204\206\211TdW\203\262T\3101s\304\311d\"!0\202u\210\312\232\266\202\203\262\211T\262d\211\262\203\262\\\313\245\262\3101\236\304\311d\"!0\202\240\210\312\232\266\202\203\254\262\202S\262\202S\314 \307 #\210\315\316!)\266\2040\207\210\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] 11 (#$ . 3636)]) (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 ""] "Non-nil if File-Name-Shadow mode is enabled.\nSee the `file-name-shadow-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `file-name-shadow-mode'." :set custom-set-minor-mode :initialize custom-initialize-delay :type boolean :group minibuffer :version "22.1"] 14)#@1013 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) (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\202e\317\315\316\"\210\n\211\203b\211@r\211q\210\317\320\321\311#)\210A\266\202\202J\210\310\322\323\306\301!\203q\324\202r\325\"\210\326\327!\203\233\330\301!\210\303 \203\212\211\303 \232\203\233\331\332\333\306\301!\203\227\334\202\230\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 (#$ . 5214) (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)