ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/cedet/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/cedet/pulse.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 "\3011 \302\303\304!!\211\242)\2470\207\210\305\207" [v (error) color-values face-background default nil] 4 (#$ . 410)])
(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 (#$ . 1724)])
#@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\"\302A@\303\"\302\3048\303\"R\207" [values "#" pulse-int-to-hex 4 2] 6 (#$ . 2405)])
(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 (#$ . 3111)])
#@36 Reset the pulse highlighting FACE.
(defalias 'pulse-reset-face #[(&optional face) "\301\302\203 \303\304\305#\202 \303\306!\"\210\307\302\310\206 \306#\210\307\302\311\312#\207" [face set-face-background pulse-highlight-face face-background nil t pulse-highlight-start-face put :startface :iteration 0] 6 (#$ . 3721)])
#@30 The current pulsing overlay.
(defvar pulse-momentary-overlay nil (#$ . 4052))
#@28 The current pulsing timer.
(defvar pulse-momentary-timer nil (#$ . 4136))
#@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\n\312=?\205F \n\203 \313 \204- \307\303 \206& \314#\210\315\316\306\"\207\307\303\317#\210\320 !\210\321\322\f\323\324\325 \f
_\"$\211\207" [o pulse-momentary-overlay pulse-flag face pulse-delay pulse-iterations pulse-momentary-unhighlight overlay-put original-face overlay-get 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 current-time pulse-momentary-timer] 8 (#$ . 4217)])
(defalias 'pulse-tick #[(stop-time) "\301\302 \"\203 \303 \207\304 \207" [stop-time time-less-p current-time 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\305 \310\"\203 \311 !\210)\307\312 \210\n\203. \313\n!\210\314\315\316\"\207" [pulse-momentary-overlay ol pulse-momentary-timer overlay-put face overlay-get original-face nil pulse-delete delete-overlay pulse-reset-face cancel-timer remove-hook pre-command-hook pulse-momentary-unhighlight] 6 (#$ . 5105)])
#@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 (#$ . 5561)])
#@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 (#$ . 5930)])
(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 (#$ . 6338)])
(provide 'pulse)
Kontol Shell Bypass