;ELC ;;; Compiled ;;; in Emacs version 27.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 (#$ . 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)