WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet
Viewing File: /usr/share/emacs/24.3/lisp/cedet/pulse.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:27 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/pulse.el
;;; in Emacs version 24.3.1
;;; 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 "\300\301\302\217\207" [nil (byte-code "\301\302\303!!\211\242)\247\207" [v color-values face-background default] 4) ((error))] 3 (#$ . 554)])
(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)
#@503 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.
http://www.emacswiki.org/cgi-bin/wiki/hexrgb.el
(defalias 'pulse-int-to-hex #[(int &optional nb-digits) "\206\302\303\304\305!\306Q	\"[\307O\207" [nb-digits int 4 format "%0" int-to-string "X" nil] 4 (#$ . 1889)])
#@278 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.
http://www.emacswiki.org/cgi-bin/wiki/hexrgb.el
(defalias 'pulse-color-values-to-hex #[(values) "\301\302@\303\"\302A@\303\"\302\3048\303\"R\207" [values "#" pulse-int-to-hex 4 2] 6 (#$ . 2570)])
(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, as used by `sit-for'."] 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 "\305\306NY?\205g\307\310\311!!\307\310\305\312N!!	@\n@Z\245	A@\nA@Z\245\313	8\313\n8Z\245E\305\306N\314\305\315\n@@\f_\\\nA@A@\f_\\\313\n8\3138\f_\\E!\"\210\316\305\306\fT#\210\fTY?\205f\317,\207" [pulse-iterations frame start frac it pulse-highlight-face :iteration color-values face-background default :startface 2 set-face-background pulse-color-values-to-hex put t] 8 (#$ . 3298)])
#@36 Reset the pulse highlighting FACE.
(defalias 'pulse-reset-face #[(&optional face) "\301\302\203\f\303!\202\303\304!\"\210\305\302\306\206\304#\210\305\302\307\310#\207" [face set-face-background pulse-highlight-face face-background pulse-highlight-start-face put :startface :iteration 0] 4 (#$ . 3873)])
#@198 Pulse the colors on our highlight face.
If optional FACE is provided, reset the face to FACE color,
instead of `pulse-highlight-start-face'.
Be sure to call `pulse-reset-face' after calling pulse.
(defalias 'pulse #[(&optional face) "\302\216\303!\210\304 \205\305	!\205\202)\207" [face pulse-delay nil pulse-reset-face pulse-lighten-highlight sit-for] 2 (#$ . 4192)])
#@30 The current pulsing overlay.
(defvar pulse-momentary-overlay nil (#$ . 4574))
#@124 Pulse the overlay O, unhighlighting before next command.
Optional argument FACE specifies the fact to do the highlighting.
(defalias 'pulse-momentary-highlight-overlay #[(o &optional face) "\303\304\305\302\"#\210\306\307\"\210	\310=?\2059	\203\311 \204-\303\302\n\206&\312#\210\313\314\315\"\207\316\216\303\302\317#\210\320\n!)\207" [o pulse-flag face overlay-put original-face overlay-get add-to-list pulse-momentary-overlay never pulse-available-p pulse-highlight-start-face add-hook pre-command-hook pulse-momentary-unhighlight ((pulse-momentary-unhighlight)) pulse-highlight-face pulse] 6 (#$ . 4659)])
#@42 Unhighlight a line recently highlighted.
(defalias 'pulse-momentary-unhighlight #[nil "\203\301\302\"\210\303\304 \210\305\306\307\"\207" [pulse-momentary-overlay mapc #[(ol) "\301\302\303\304\"#\210\301\304\305#\210\303\306\"\205\307!\207" [ol overlay-put face overlay-get original-face nil pulse-delete delete-overlay] 6] nil pulse-reset-face remove-hook pre-command-hook pulse-momentary-unhighlight] 3 (#$ . 5284)])
#@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) "\303 \212\304\210m\204
\305u\210`)\306	\n#*\207" [end start face point-at-bol nil 1 pulse-momentary-highlight-region] 4 (#$ . 5722)])
#@136 Highlight between START and END, unhighlighting before next command.
Optional argument FACE specifies the fact 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 (#$ . 6075)])
(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 (#$ . 6483)])
(provide 'pulse)
F1l3 Manager
