Current File : //proc/self/root/kunden/usr/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\3168Z\245E\306\307N\317\306\320@\f@
_\\A@\fA@
_\\\3168\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)