| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/rfn-eshadow.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/rfn-eshadow.el
;;; in Emacs version 24.3
;;; 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 (#$ . 2639))
#@48 Customer overlay functions from other packages
(defvar rfn-eshadow-update-overlay-hook nil (#$ . 2752))
(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@
\211A@#\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 (#$ . 2955)])
(defalias 'rfn-eshadow-sifn-equal #[(goal pos) "\301\302\303\217\232\207" [goal nil (byte-code "\301\302d\"!\207" [pos substitute-in-file-name buffer-substring-no-properties] 4) ((error))] 4])
(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 "\300\301\302\217\207" [nil (byte-code "\306\307 !\310!\311 d\312 \f\203? \f\n=\204*
\fT \211 \313\314\315\217\232*\204? \f =\204\215
\f \211 \313\314\315\217\232*\204\215 T\nW\204f \nTdW\203\206
\nT \211 \313\314\315\217\232*\203\206 \nTd\211\203\206 \n\\\316\245
\f \211 \313\314\315\217\232*\203\201 \f\211\202@ \f\202? \317\311 #\210\320\321!-\207" [rfn-eshadow-overlay non-essential end start mid goal substitute-in-file-name minibuffer-contents overlay-end minibuffer-prompt-end t nil (byte-code "\301\302d\"!\207" [pos substitute-in-file-name buffer-substring-no-properties] 4) ((error)) 2 move-overlay run-hooks rfn-eshadow-update-overlay-hook pos] 6) ((error))] 3 (#$ . 3898)])
#@284 Non-nil if File-Name-Shadow mode is enabled.
See the command `file-name-shadow-mode' 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 '(#$ . 4906) :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=\203 \n?\202 \310 !\311V\211\203 \312\313\314\"\210\202E \315\313\314\"\210 \316 \211 \203B
@r\fq\210\315\317\320\321#\210)
A\211\204- *\316\322\323\n\203O \324\202P \325\"\210\326\327!\203u \330\302!\210\306 \203h \306 \232\203u \331\332\n\203r \333\202s \334\"\210)\335 \210\n\207" [#1=#:last-message arg file-name-shadow-mode rfn-eshadow-frobbed-minibufs minibuf --dolist-tail-- current-message toggle 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" "en" "dis" force-mode-line-update] 5 (#$ . 5375) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306!\207" [file-name-shadow-mode-map add-minor-mode file-name-shadow-mode nil boundp provide rfn-eshadow] 6)