Current File : //usr/local/share/emacs/27.2/lisp/cedet/pulse.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@62 Return non-nil if pulsing is available on the current frame.
(defalias 'pulse-available-p #[nil "\3011 \302\303\304!!\211\242)\2470\207\210\305\207" [v (error) color-values face-background default nil] 4 (#$ . 408)])
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\304\305%\210\310\314\315\316\304\305%\207" [custom-declare-variable pulse-flag (pulse-available-p) "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."] 8)
#@497 Convert integer argument INT to a #XXXXXXXXXXXX format hex string.
Each X in the output string is a hexadecimal digit.
NB-DIGITS is the number of hex digits. If INT is too large to be
represented with NB-DIGITS, then the result is truncated from the
left. So, for example, INT=256 and NB-DIGITS=2 returns "00", since
the hex equivalent of 256 decimal is 100, which is more than 2 digits.
This function was blindly copied from hexrgb.el by Drew Adams.
https://www.emacswiki.org/emacs/hexrgb.el
(defalias 'pulse-int-to-hex #[(int &optional nb-digits) "\206 \302\303\304\305\306!\307Q \"[\"\207" [nb-digits int 4 substring format "%0" int-to-string "X"] 5 (#$ . 1722)])
#@272 Convert list of rgb color VALUES to a hex string, #XXXXXXXXXXXX.
Each X in the string is a hexadecimal digit.
Input VALUES is as for the output of `x-color-values'.
This function was blindly copied from hexrgb.el by Drew Adams.
https://www.emacswiki.org/emacs/hexrgb.el
(defalias 'pulse-color-values-to-hex #[(values) "\301\302@\303\"\302A@\303\"\302\3048\303\"R\207" [values "#" pulse-int-to-hex 4 2] 6 (#$ . 2404)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\207" [custom-declare-variable pulse-iterations 10 "Number of iterations in a pulse operation." :group pulse :type number pulse-delay 0.03 "Delay between face lightening iterations."] 8)
#@128 Lighten the face by 1/`pulse-iterations' toward the background color.
Return t if there is more drift to do, nil if completed.
(defalias 'pulse-lighten-highlight #[nil "\306\307NY?\205p \310\311\312!!\311\306\313N\314\315#\211\205o \310\n! @ @Z\245 A@ A@Z\245\316 8\316 8Z\245E \306\307N \317\306\320 @\f@
_\\ A@\fA@
_\\\316 8\316\f8
_\\E!\"\210\321\306\307
T#\210
TY?\205n \315+*\207" [pulse-iterations frame pulse-background start frac it pulse-highlight-face :iteration color-values face-background default :startface nil t 2 set-face-background pulse-color-values-to-hex put] 9 (#$ . 3104)])
#@36 Reset the pulse highlighting FACE.
(defalias 'pulse-reset-face #[(&optional face) "\301\302\203 \303\304\305#\202 \303\306!\"\210\203 \307\302\310\304\305#\"\210\311\302\312\206( \306#\210\311\302\313\314#\207" [face set-face-background pulse-highlight-face face-background nil t pulse-highlight-start-face set-face-extend face-extend-p put :startface :iteration 0] 6 (#$ . 3714)])
#@30 The current pulsing overlay.
(defvar pulse-momentary-overlay nil (#$ . 4110))
#@28 The current pulsing timer.
(defvar pulse-momentary-timer nil (#$ . 4194))
#@124 Pulse the overlay O, unhighlighting before next command.
Optional argument FACE specifies the face to do the highlighting.
(defalias 'pulse-momentary-highlight-overlay #[(o &optional face) "\306 \210\307\310\311\303\"#\210\307\312\311\313\"#\210\307\313\314#\210\n\315=?\205T \n\203- \316 \204< \307\303 \2065 \317#\210\320\321\306\"\207\307\303\322#\210\323 !\210\324\325\f\326\327\330\f
_\"$\211\207" [o pulse-momentary-overlay pulse-flag face pulse-delay pulse-iterations pulse-momentary-unhighlight overlay-put original-face overlay-get original-priority priority 1 never pulse-available-p pulse-highlight-start-face add-hook pre-command-hook pulse-highlight-face pulse-reset-face run-with-timer 0 pulse-tick time-add nil pulse-momentary-timer] 8 (#$ . 4275)])
(defalias 'pulse-tick #[(stop-time) "\301\302\"\203\n \303 \207\304 \207" [stop-time time-less-p nil pulse-lighten-highlight pulse-momentary-unhighlight] 3])
#@42 Unhighlight a line recently highlighted.
(defalias 'pulse-momentary-unhighlight #[nil "\203/ \303 \304\305 \306\"#\210\303 \306\307#\210\303 \310\305 \311\"#\210\305 \312\"\203) \313 !\210)\307\314 \210\n\2037 \315\n!\210\316\317\320\"\207" [pulse-momentary-overlay ol 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] 6 (#$ . 5216)])
#@136 Highlight the line around POINT, unhighlighting before next command.
Optional argument FACE specifies the face to do the highlighting.
(defalias 'pulse-momentary-highlight-one-line #[(point &optional face) "\212b\210\304 \212\305\210m\204 \306u\210`)\307\n #+\207" [point end start face point-at-bol nil 1 pulse-momentary-highlight-region] 4 (#$ . 5724)])
#@136 Highlight between START and END, unhighlighting before next command.
Optional argument FACE specifies the face to do the highlighting.
(defalias 'pulse-momentary-highlight-region #[(start end &optional face) "\304 \"\305\n\306\307#\210\310\n \")\207" [start end o face make-overlay overlay-put pulse-delete t pulse-momentary-highlight-overlay] 4 (#$ . 6093)])
(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 #[nil "\205 \301`!\207" [pulse-command-advice-flag pulse-momentary-highlight-one-line] 2 (#$ . 6501)])
(provide 'pulse)
Mini Shell