;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'color)
#@62 Return non-nil if pulsing is available on the current frame.
(defalias 'pulse-available-p #[0 "\3001\301\302\303!!\211\242\247\262
0\207\210\304\207" [(error) color-values face-background default nil] 3 (#$ . 101)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\315\306\307%\210\312\316\317\320\306\307%\210\300\321\302\303\322DD\323\306\307\310\324&\210\300\325\302\303\326DD\327\306\307\310\324&\207" [custom-declare-variable pulse-flag funcall function #[0 "\300 \207" [pulse-available-p] 1 #1=""] "Whether to use pulsing for momentary highlighting.\nPulsing involves a bright highlight that slowly shifts to the\nbackground color.\n\nIf the value is nil, highlight with an unchanging color until a\nkey is pressed.\nIf the value is `never', do no coloring at all.\nAny other value means to do the default pulsing behavior.\n\nIf `pulse-flag' is non-nil, but `pulse-available-p' is nil, then\nthis flag is ignored." :group pulse :type boolean custom-declare-face pulse-highlight-start-face ((((class color) (background dark)) (:background "#AAAA33")) (((class color) (background light)) (:background "#FFFFAA"))) "Face used at beginning of a highlight." pulse-highlight-face ((((class color) (background dark)) (:background "#AAAA33")) (((class color) (background light)) (:background "#FFFFAA"))) "Face used during a pulse for display.  *DO NOT CUSTOMIZE*\nFace used for temporary highlighting of tags for effect." pulse-iterations #[0 "\300\207" [10] 1 #1#] "Number of iterations in a pulse operation." number pulse-delay #[0 "\300\207" [0.03] 1 #1#] "Delay between face lightening iterations."] 8)
#@30 The current pulsing overlay.
(defvar pulse-momentary-overlay nil (#$ . 1742))
#@28 The current pulsing timer.
(defvar pulse-momentary-timer nil (#$ . 1826))
#@32 The current pulsing iteration.
(defvar pulse-momentary-iteration 0 (#$ . 1906))
#@57 Reset the pulse highlighting FACE.

(fn &optional FACE)
(defalias 'pulse-reset-face #[256 "\301\302\203\303\304\305#\202\303\306!\"\210\307\302\310\206\306\304\305#\"\210\311\302\312\206(\306#\210\313\211\207" [pulse-momentary-iteration set-face-background pulse-highlight-face face-background nil t pulse-highlight-start-face set-face-extend face-extend-p put :startface 0] 7 (#$ . 1992)])
#@147 Pulse the overlay O, unhighlighting before next command.
Optional argument FACE specifies the face to do the highlighting.

(fn O &optional FACE)
(defalias 'pulse-momentary-highlight-overlay #[513 "\305 \210\306\307\310\311\"#\210\306\312\310\313\"#\210\306\313\314#\210
	\315=?\205m	\203-\316 \204<\306\311\2065\317#\210\320\321\305\"\207\306\311\322#\210\323
!\210\324\325\322\326\327#!\324\325\327!!\330\331\332\333\"\334\n#\"\335\336\337\340\326\n_\"%\211\266\203\207" [pulse-momentary-overlay pulse-flag pulse-iterations pulse-delay pulse-momentary-timer pulse-momentary-unhighlight overlay-put original-face overlay-get face original-priority priority 1 never pulse-available-p pulse-highlight-start-face add-hook pre-command-hook pulse-highlight-face pulse-reset-face color-name-to-rgb face-background nil default mapcar apply-partially apply color-rgb-to-hex color-gradient run-with-timer 0 pulse-tick time-add] 14 (#$ . 2402)])
#@25 

(fn COLORS STOP-TIME)
(defalias 'pulse-tick #[514 "\301\302\"\203
\234\211\205\303\304\"\210T\211\207\305 \207" [pulse-momentary-iteration time-less-p nil set-face-background pulse-highlight-face pulse-momentary-unhighlight] 6 (#$ . 3364)])
#@42 Unhighlight a line recently highlighted.
(defalias 'pulse-momentary-unhighlight #[0 "\203.\302
\303\304\305\"#\210\302
\305\306#\210\302
\307\304\310\"#\210\304
\311\"\203(\312
!\210\210\306\313 \210	\2036\314	!\210\315\316\317\"\207" [pulse-momentary-overlay pulse-momentary-timer overlay-put face overlay-get original-face nil priority original-priority pulse-delete delete-overlay pulse-reset-face cancel-timer remove-hook pre-command-hook pulse-momentary-unhighlight] 7 (#$ . 3622)])
#@227 Highlight the line around POINT, unhighlighting before next command.
If POINT is nil or missing, the current point is used instead.

Optional argument FACE specifies the face to do the highlighting.

(fn &optional POINT FACE)
(defalias 'pulse-momentary-highlight-one-line #[512 "\212
\206`b\210\300 \212\301\210m\204\302u\210`)\303#\266\202)\207" [point-at-bol nil 1 pulse-momentary-highlight-region] 8 (#$ . 4125)])
#@167 Highlight between START and END, unhighlighting before next command.
Optional argument FACE specifies the face to do the highlighting.

(fn START END &optional FACE)
(defalias 'pulse-momentary-highlight-region #[770 "\300\"\301
\302\303#\210\304
\"\207" [make-overlay overlay-put pulse-delete t pulse-momentary-highlight-overlay] 8 (#$ . 4557)])
(defvar pulse-command-advice-flag nil)
#@115 Function used in hooks to pulse the current line.
Only pulses the line if `pulse-command-advice-flag' is non-nil.
(defalias 'pulse-line-hook-function #[0 "\205\301`!\207" [pulse-command-advice-flag pulse-momentary-highlight-one-line] 2 (#$ . 4952)])
(provide 'pulse)