mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 76bbd07de7add0f9d13c6914f158d19630fe2f62
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
;ELC
;;; Compiled
;;; in Emacs version 26.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.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(defconst vhl/version "1.8")
(provide 'volatile-highlights)
#@39 A flag if the emacs is xemacs or not.
(defconst vhl/\.xemacsp (string-match "XEmacs" emacs-version) (#$ . 468))
#@30 List of volatile highlights.
(defvar vhl/\.hl-lst nil (#$ . 586))
(custom-declare-group 'volatile-highlights nil "Visual feedback on operations." :group 'editing)
#@58 Return true if the :inherit face attribute is supported.
(defalias 'vhl/\.face-inheritance-possible-p #[nil "\301\236\207" [custom-face-attributes :inherit] 2 (#$ . 755)])
(byte-code "\301\302\204 \303 \204\304\202\305\306\307\310%\210\311\312\313\314\315\316\317\320\307\310\321\322& \207" [vhl/\.xemacsp custom-declare-face vhl/default-face vhl/\.face-inheritance-possible-p ((((class color) (background light)) (:background "yellow1")) (((class color) (background dark)) (:background "SkyBlue4")) (t :inverse-video t)) ((t :inherit secondary-selection)) "Face used for volatile highlights." :group volatile-highlights custom-declare-variable volatile-highlights-mode nil "Non-nil if Volatile-Highlights mode is enabled.\nSee the `volatile-highlights-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `volatile-highlights-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 12)
#@52 Minor mode for visual feedback on some operations.
(defalias 'volatile-highlights-mode #[(&optional arg) "\304 \305\302    \306=\203\307\302!?\202\310    !\311V\"\210\n\203#\312 \210\202&\313 \210\314\315\307\302!\2032\316\2023\317\"\210\320\321!\203^\322\302!\210\304 \203K\304 \232\203^\323\324\325\307\302!\203Y\326\202Z\327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg volatile-highlights-mode local current-message set-default toggle default-value prefix-numeric-value 0 vhl/load-extensions vhl/unload-extensions run-hooks volatile-highlights-mode-hook volatile-highlights-mode-on-hook volatile-highlights-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Volatile-Highlights mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 1825) (list (or current-prefix-arg 'toggle))])
(defvar volatile-highlights-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\210\312\313\311\314\315\316\317\320&\207" [volatile-highlights-mode-map volatile-highlights-mode-hook variable-documentation put "Hook run after entering or leaving `volatile-highlights-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode volatile-highlights-mode " VHl" boundp nil custom-declare-variable Vhl/highlight-zero-width-ranges "If t, highlight the positions of zero-width ranges.\n\nFor example, if a deletion is highlighted, then the position\nwhere the deleted text used to be would be highlighted." :type boolean :group volatile-highlights] 8)
#@354 Add a volatile highlight to the buffer `BUF' at the position
specified by `BEG' and `END' using the face `FACE'.
 
When the buffer `BUF' is not specified or its value is `nil',
volatile highlight will be added to current buffer.
 
When the face `FACE' is not specified or its value is `nil',
the default face `vhl/default-face' will
be used as the value.
(defalias 'vhl/add-range #[(beg end &optional buf face) "\206\306\307    \n $\211 B\310\311\312\"*\207" [face beg end buf hl vhl/\.hl-lst vhl/default-face vhl/\.make-hl add-hook pre-command-hook vhl/clear-all] 6 (#$ . 3449)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias vhl/add vhl/add-range nil make-obsolete "1.5"] 4)
#@148 Highlight buffer position POS as a change.
 
If Vhl/highlight-zero-width-ranges is nil, do nothing.
 
Optional args are the same as `vhl/add-range'.
(defalias 'vhl/add-position #[(pos &rest other-args) "\205\303 \304U?\205    \303 V\203    S\305\306    \211T\n$\207" [Vhl/highlight-zero-width-ranges pos other-args buffer-size 0 apply vhl/add-range] 5 (#$ . 4155)])
#@32 Clear all volatile highlights.
(defalias 'vhl/clear-all #[nil "\203\301@!\210A\211\204\302\303\304\"\207" [vhl/\.hl-lst vhl/\.clear-hl remove-hook pre-command-hook vhl/clear-all] 4 (#$ . 4524) nil])
#@56 Force clear all volatile highlights in current buffer.
(defalias 'vhl/force-clear-all #[nil "\300 \207" [vhl/\.force-clear-all-hl] 1 (#$ . 4737) nil])
#@73 Make a volatile highlight at the position specified by `BEG' and `END'.
(defalias 'vhl/\.make-hl #[(beg end buf face) "\306    \203\307\n \f#\310 \"\210\311\312\"\210\313\314\312#\210\2027\315\n \f#\316\305 #\210\316\317\320#\210\316\314\312#\210)\207" [hl vhl/\.xemacsp beg end buf face nil make-extent set-extent-face highlight-extent t set-extent-property volatile-highlights make-overlay overlay-put priority 1] 4 (#$ . 4894)])
#@22 Clear one highlight.
(defalias 'vhl/\.clear-hl #[(hl) "\203\302    !\205\303    !\207\304    !\205\305    !\207" [vhl/\.xemacsp hl extentp delete-extent overlayp delete-overlay] 2 (#$ . 5342)])
#@56 Force clear all volatile highlights in current buffer.
(defalias 'vhl/\.force-clear-all-hl #[nil "\203\301\302!\207\214~\210\303\304\305ed\"\")\207" [vhl/\.xemacsp map-extents #[(hl maparg) "\301\302\"\205\n\303!\207" [hl extent-property volatile-highlights vhl/\.clear-hl] 3] mapcar #[(hl) "\301\302\"\205\n\303!\207" [hl overlay-get volatile-highlights vhl/\.clear-hl] 3] overlays-in] 5 (#$ . 5537)])
(defvar vhl/\.installed-extensions nil)
(defalias 'vhl/install-extension #[(sym) "\306\307\310\"!\306\307\311\"!\306\307\312\"!\313\f \"\203# \210\202'\f B)\314\315    \316\307\317\"\320\321\322\323\324\325\326\327\330\331\332\333\334\335DDE\336\335DDFF\257\n!+\207" [sym cust-name fn-off fn-on #1=#:var vhl/\.installed-extensions intern format "vhl/ext/%s/on" "vhl/ext/%s/off" "vhl/use-%s-extension-p" memql eval defcustom t "A flag if highlighting support for `%s' is on or not." :type 'boolean :group 'volatile-highlights :set lambda (sym-to-set val) (set-default sym-to-set val) if val when volatile-highlights-mode vhl/load-extension quote vhl/unload-extension] 20])
(defalias 'vhl/load-extension #[(sym) "\303\304\305\"!\303\304\306\"!\307\n!\203%\310    !\205)\311    !\205)\n \202)\312\313\"*\207" [sym cust-name fn-on intern format "vhl/ext/%s/on" "vhl/use-%s-extension-p" functionp boundp eval message "[vhl] No load function for extension  `%s'"] 5])
(defalias 'vhl/unload-extension #[(sym) "\302\303\304\"!\305    !\203     \202\306\307\")\207" [sym fn-off intern format "vhl/ext/%s/off" functionp message "[vhl] No unload function for extension  `%s'"] 4])
(defalias 'vhl/load-extensions #[nil "\303\211\205\n@\304    !\210\nA\211\204\303*\207" [vhl/\.installed-extensions sym --dolist-tail-- nil vhl/load-extension] 3])
(defalias 'vhl/unload-extensions #[nil "\303\211\205\n@\304    !\210\nA\211\204\303*\207" [vhl/\.installed-extensions sym --dolist-tail-- nil vhl/unload-extension] 3])
(defvar vhl/\.after-change-hook-depth 0)
(defalias 'vhl/\.push-to-after-change-hook #[(fn-name) "\301U\203 \302\303\304\"\210T\211\207" [vhl/\.after-change-hook-depth 0 add-hook after-change-functions vhl/\.make-vhl-on-change] 3])
(defalias 'vhl/\.pop-from-after-change-hook #[(fn-name) "S\211\301U\205 \302\303\304\"\207" [vhl/\.after-change-hook-depth 0 remove-hook after-change-functions vhl/\.make-vhl-on-change] 4])
(defalias 'vhl/advice-defined-p #[(fn-name class ad-name) "\303N\205    \n\303N\236A\236\207" [fn-name ad-name class ad-advice-info] 4])
(defalias 'vhl/disable-advice-if-defined #[(fn-name class ad-name) "\303    \n#\205\304    \n#\210\305!\207" [fn-name class ad-name vhl/advice-defined-p ad-disable-advice ad-activate] 4])
(defalias 'vhl/\.make-vhl-on-change #[(beg end len-removed) "\304U\211\203\305\n \"\202\306\n!)\207" [len-removed insert-p beg end 0 vhl/add-range vhl/add-position] 4])
(defalias 'vhl/give-advice-to-make-vhl-on-changes '(macro . #[(fn-name) "\302\303\304\305\"P!9\204\306\307\"\210\310\311\312    \313BB\314\315DD\316\317\320\315DDE\257\321\315D\322\315    DF\323\315DDF)\207" [fn-name ad-name intern "vhl/make-vhl-on-" format "%s" error "vhl/give-advice-to-make-vhl-on-changes: `%s' is not type of symbol." progn defadvice around ((&rest args)) vhl/\.push-to-after-change-hook quote unwind-protect ad-do-it vhl/\.pop-from-after-change-hook ad-enable-advice 'around ad-activate] 10]))
(defalias 'vhl/cancel-advice-to-make-vhl-on-changes '(macro . #[(fn-name) "\302\303\304\305\"P!\306\307D\310\307    DF)\207" [fn-name ad-name intern "vhl/make-vhl-on-" format "%s" vhl/disable-advice-if-defined quote 'around] 5]))
(defalias 'vhl/require-noerror #[(feature &optional filename) "\3011    \302!0\207\210\303\207" [feature (file-error) require nil] 2])
#@405 Makes an English-style list from a list of strings.
 
Converts a list of strings into a string that lists the items
separated by commas, as well as the word `and' before the last
item. In other words, returns a string of the way those items
would be listed in english.
 
This is included as a private support function for generating
lists of symbols to be included docstrings of auto-generated
extensions.
(defalias 'vhl/\.make-list-string #[(items) "<\204    \301\302!\210\204\303\207A\204$@;\204\301\304!\210\305\306@\"\207AA\204E@;\2044\301\307!\210A@;\204?\301\310!\210\311\305\312#\207AAA\204s@;\204V\301\313!\210A@;\204a\301\314!\210AA@;\204m\301\315!\210\311\305\316#\207\305\317@\320A!#\207" [items cl--assertion-failed (listp items) "" (stringp (first items)) format "%s" (stringp (first items)) (stringp (second items)) apply "%s and %s" (stringp (first items)) (stringp (second items)) (stringp (third items)) "%s, %s, and %s" "%s, %s" vhl/\.make-list-string] 5 (#$ . 9299)])
#@93 Define a VHL extension called NAME that applies standard VHL
  advice to each of FUNCTIONS.
(defalias 'vhl/define-extension '(macro . #[(name &rest functions) "@\204    \306\307!\210\310\311    !!\312\313\314\"!\315\316\317\n\"!\320\313\321\"B\316\322 \"\315\316\323\n\"!\320\313\324\"B\316\325 \"\320\326\f\327\330 \257\326\327\331\257.\332BBB\207" [functions name name-string function-list-string on-function-name on-body-form cl--assertion-failed (first functions) symbol-name eval vhl/\.make-list-string mapcar #[(f) "\301\302\303\304!!\"\207" [f format "`%s'" symbol-name eval] 5] intern format "vhl/ext/%s/on" progn #[(f) "\301\302!D\207" [f vhl/give-advice-to-make-vhl-on-changes eval] 3] "Turn on volatile highlighting for %s." "vhl/ext/%s/off" #[(f) "\301\302!D\207" [f vhl/cancel-advice-to-make-vhl-on-changes eval] 3] "Turn off volatile highlighting for %s." defun nil (interactive) (interactive) (nil) on-doc-string off-function-name off-body-form off-doc-string] 8 (#$ . 10316)]))
#@53 Turn on volatile highlighting for `primitive-undo'.
(defalias 'vhl/ext/undo/on #[nil "\300\301\302\303\304$\210\305\301\303\306#\210\307\301!\207" [ad-add-advice primitive-undo (vhl/make-vhl-on-primitive-undo nil t (advice lambda (&rest args) (vhl/\.push-to-after-change-hook 'primitive-undo) (unwind-protect ad-do-it (vhl/\.pop-from-after-change-hook 'primitive-undo)))) around nil ad-enable-advice vhl/make-vhl-on-primitive-undo ad-activate] 5 (#$ . 11341) nil])
#@54 Turn off volatile highlighting for `primitive-undo'.
(defalias 'vhl/ext/undo/off #[nil "\300\301\302\303#\207" [vhl/disable-advice-if-defined primitive-undo around vhl/make-vhl-on-primitive-undo] 4 (#$ . 11812) nil])
(vhl/install-extension 'undo)
#@58 Turn on volatile highlighting for `yank' and `yank-pop'.
(defalias 'vhl/ext/yank/on #[nil "\300\301\302\303\304$\210\305\301\303\306#\210\307\301!\210\300\310\311\303\304$\210\305\310\303\312#\210\307\310!\207" [ad-add-advice yank (vhl/make-vhl-on-yank nil t (advice lambda #1=(&rest args) (vhl/\.push-to-after-change-hook 'yank) (unwind-protect ad-do-it (vhl/\.pop-from-after-change-hook 'yank)))) around nil ad-enable-advice vhl/make-vhl-on-yank ad-activate yank-pop (vhl/make-vhl-on-yank-pop nil t (advice lambda #1# (vhl/\.push-to-after-change-hook 'yank-pop) (unwind-protect ad-do-it (vhl/\.pop-from-after-change-hook 'yank-pop)))) vhl/make-vhl-on-yank-pop] 5 (#$ . 12065) nil])
#@59 Turn off volatile highlighting for `yank' and `yank-pop'.
(defalias 'vhl/ext/yank/off #[nil "\300\301\302\303#\210\300\304\302\305#\207" [vhl/disable-advice-if-defined yank around vhl/make-vhl-on-yank yank-pop vhl/make-vhl-on-yank-pop] 4 (#$ . 12755) nil])
(vhl/install-extension 'yank)
#@50 Turn on volatile highlighting for `kill-region'.
(defalias 'vhl/ext/kill/on #[nil "\300\301\302\303\304$\210\305\301\303\306#\210\307\301!\207" [ad-add-advice kill-region (vhl/make-vhl-on-kill-region nil t (advice lambda (&rest args) (vhl/\.push-to-after-change-hook 'kill-region) (unwind-protect ad-do-it (vhl/\.pop-from-after-change-hook 'kill-region)))) around nil ad-enable-advice vhl/make-vhl-on-kill-region ad-activate] 5 (#$ . 13048) nil])
#@51 Turn off volatile highlighting for `kill-region'.
(defalias 'vhl/ext/kill/off #[nil "\300\301\302\303#\207" [vhl/disable-advice-if-defined kill-region around vhl/make-vhl-on-kill-region] 4 (#$ . 13501) nil])
(vhl/install-extension 'kill)
#@52 Turn on volatile highlighting for `delete-region'.
(defalias 'vhl/ext/delete/on #[nil "\300\301\302\303\304$\210\305\301\303\306#\210\307\301!\207" [ad-add-advice delete-region (vhl/make-vhl-on-delete-region nil t (advice lambda (&rest args) (vhl/\.push-to-after-change-hook 'delete-region) (unwind-protect ad-do-it (vhl/\.pop-from-after-change-hook 'delete-region)))) around nil ad-enable-advice vhl/make-vhl-on-delete-region ad-activate] 5 (#$ . 13745) nil])
#@53 Turn off volatile highlighting for `delete-region'.
(defalias 'vhl/ext/delete/off #[nil "\300\301\302\303#\207" [vhl/disable-advice-if-defined delete-region around vhl/make-vhl-on-delete-region] 4 (#$ . 14212) nil])
(vhl/install-extension 'delete)
#@44 Turn on volatile highlighting for `etags'.
(defalias 'vhl/ext/etags/on #[nil "\300\301!\210\302\303\304\305\306$\210\307\303!\207" [require etags ad-add-advice find-tag (vhl/ext/etags/make-vhl-after-find-tag nil t (advice lambda (tagname &optional next-p regexp-p) (let ((pos (point)) (len (length tagname))) (save-excursion (search-forward tagname) (vhl/add-range (- (point) len) (point)))))) after nil ad-activate] 5 (#$ . 14466) nil])
#@45 Turn off volatile highlighting for `etags'.
(defalias 'vhl/ext/etags/off #[nil "\300\301\302\303#\207" [vhl/disable-advice-if-defined find-tag after vhl/ext/etags/make-vhl-after-find-tag] 4 (#$ . 14910) nil])
(vhl/install-extension 'etags)
#@44 Turn on volatile highlighting for `occur'.
(defalias 'vhl/ext/occur/on #[nil "\302\303!\211\211\304L\210)\305\306\307\310\311\312\313D\314D\315FE\"\210\305\316\307\310\311\312\317D\314D\315FE\"\210\320\321\322\323\304$\210\320\321\324\325\304$\210\320\326\327\323\304$\210\320\326\330\325\304$\210\320\331\332\323\304$\210\320\331\333\325\304$\210\334\321!\210\334\326!\210\334\331!)\207" [#1=#:--cl-*occur-str*-- #2=#:v make-symbol "--*occur-str*--" nil defalias vhl/ext/occur/\.pre-hook-fn lambda (&rest --cl-rest--) apply function #[(#3=#:G0) "\212\305 \210`\306\210`\307    \310\311$ \211\n\205     \205 \n    {L-\207" [bol eol bos #3# #4=#:v beginning-of-line nil text-property-any occur-match t] 6] quote --cl-rest-- vhl/ext/occur/\.post-hook-fn #[(#5=#:G1) "J\205 \306\307\310J#JG\307\311\211\205\311\n\203E\312\n \313 J%\211\203E\n\314\n\313J#\211\2066 \211D    B*\202r\315\f!q\210\316\f!    \311\211\205\310@@\\A@\\\317!\311\211\203\263@\320\321\"\203\252\212\322!b\210\323 \210`^\324!b\210\311\210`])A\211\204}*\325\311 $\210*A\211\204Z\311,,\207" [#5# be-lst ptr len marker list-matching-lines-face get-text-property 0 occur-target nil text-property-any face next-single-property-change marker-buffer marker-position overlays-at overlay-get invisible overlay-start beginning-of-line overlay-end vhl/add-range end beg bol be --dolist-tail-- pt-end pt-beg ov] 7] ad-add-advice occur-mode-goto-occurrence (vhl/ext/occur/pre-hook nil t (advice lambda (&optional event) (vhl/ext/occur/\.pre-hook-fn))) before (vhl/ext/occur/post-hook nil t (advice lambda (&optional event) (vhl/ext/occur/\.post-hook-fn))) after occur-mode-display-occurrence (vhl/ext/occur/pre-hook nil t (advice lambda nil (vhl/ext/occur/\.pre-hook-fn))) (vhl/ext/occur/post-hook nil t (advice lambda nil (vhl/ext/occur/\.post-hook-fn))) occur-mode-goto-occurrence-other-window (vhl/ext/occur/pre-hook nil t (advice lambda nil (vhl/ext/occur/\.pre-hook-fn))) (vhl/ext/occur/post-hook nil t (advice lambda nil (vhl/ext/occur/\.post-hook-fn))) ad-activate] 9 (#$ . 15156) nil])
#@45 Turn off volatile highlighting for `occur'.
(defalias 'vhl/ext/occur/off #[nil "\300\301\302\303#\210\300\301\304\305#\210\300\306\302\303#\210\300\306\304\305#\210\300\307\302\303#\210\300\307\304\305#\207" [vhl/disable-advice-if-defined occur-mode-goto-occurrence before vhl/ext/occur/pre-hook after vhl/ext/occur/post-hook occur-mode-display-occurrence occur-mode-goto-occurrence-other-window] 4 (#$ . 17298) nil])
(vhl/install-extension 'occur)
(defalias 'vhl/ext/nonincremental-search/\.advice-to-vhl '(macro . #[(fn) "\301\302\303DD\304\305\306\307\310\"!\311BB\312BBB\313\303DDF\207" [fn when fboundp quote defadvice after intern format "vhl/ext/nonincremental-search/%s" ((&rest args)) ((when ad-return-value (vhl/add-range (match-beginning 0) (match-end 0) nil 'match))) ad-activate] 9]))
(defalias 'vhl/ext/nonincremental-search/\.disable-advice-to-vhl '(macro . #[(fn) "\301\302D\303\302\304\305\306\"!DF\207" [fn vhl/disable-advice-if-defined quote 'after intern format "vhl/ext/nonincremental-search/%s"] 8]))
#@70 Turn on volatile highlighting for non-incremental search operations.
(defalias 'vhl/ext/nonincremental-search/on #[nil "\300\301\302\"\205l\303\304!\203\305\304\306\307\302$\210\310\304!\210\303\311!\203)\305\311\312\307\302$\210\310\311!\210\303\313!\203:\305\313\314\307\302$\210\310\313!\210\303\315!\203K\305\315\316\307\302$\210\310\315!\210\303\317!\203\\\305\317\320\307\302$\210\310\317!\210\303\321!\205l\305\321\322\307\302$\210\310\321!\207" [vhl/require-noerror menu-bar nil fboundp nonincremental-search-forward ad-add-advice (vhl/ext/nonincremental-search/nonincremental-search-forward nil t (advice lambda #1=(&rest args) #2=(when ad-return-value (vhl/add-range (match-beginning 0) (match-end 0) nil 'match)))) after ad-activate nonincremental-search-backward (vhl/ext/nonincremental-search/nonincremental-search-backward nil t (advice lambda #1# #2#)) nonincremental-re-search-forward (vhl/ext/nonincremental-search/nonincremental-re-search-forward nil t (advice lambda #1# #2#)) nonincremental-re-search-backward (vhl/ext/nonincremental-search/nonincremental-re-search-backward nil t (advice lambda #1# #2#)) nonincremental-repeat-search-forward (vhl/ext/nonincremental-search/nonincremental-repeat-search-forward nil t (advice lambda #1# #2#)) nonincremental-repeat-search-backward (vhl/ext/nonincremental-search/nonincremental-repeat-search-backward nil t (advice lambda #1# #2#))] 5 (#$ . 18333) nil])
#@72 Turn off volatile highlighting for  non-incremental search operations.
(defalias 'vhl/ext/nonincremental-search/off #[nil "\300\301\302\"\205*\303\304\305\306#\210\303\307\305\310#\210\303\311\305\312#\210\303\313\305\314#\210\303\315\305\316#\210\303\317\305\320#\207" [vhl/require-noerror menu-bar nil vhl/disable-advice-if-defined nonincremental-search-forward after vhl/ext/nonincremental-search/nonincremental-search-forward nonincremental-search-backward vhl/ext/nonincremental-search/nonincremental-search-backward nonincremental-re-search-forward vhl/ext/nonincremental-search/nonincremental-re-search-forward nonincremental-re-search-backward vhl/ext/nonincremental-search/nonincremental-re-search-backward nonincremental-repeat-search-forward vhl/ext/nonincremental-search/nonincremental-repeat-search-forward nonincremental-repeat-search-backward vhl/ext/nonincremental-search/nonincremental-repeat-search-backward] 4 (#$ . 19769) nil])
(vhl/install-extension 'nonincremental-search)
(defalias 'vhl/ext/hideshow/\.activate #[nil "\300\301\302\303\304$\210\305\301!\207" [ad-add-advice hs-show-block (vhl/ext/hideshow/vhl/around-hook nil t (advice lambda (&optional end) (let* ((bol (save-excursion (progn (beginning-of-line) (point)))) (eol (save-excursion (progn (end-of-line) (point)))) (ov-folded (car (delq nil (mapcar #'(lambda (ov) (and (overlay-get ov 'hs) ov)) (overlays-in bol (1+ eol)))))) (boov (and ov-folded (overlay-start ov-folded))) (eoov (and ov-folded (overlay-end ov-folded)))) ad-do-it (when (and boov eoov) (vhl/add-range boov eoov))))) around nil ad-activate] 5])
#@47 Turn on volatile highlighting for `hideshow'.
(defalias 'vhl/ext/hideshow/on #[nil "\300\301!\203    \302 \207\303\304\305\"\207" [featurep hideshow vhl/ext/hideshow/\.activate eval-after-load "hideshow" #[nil "\300 \207" [vhl/ext/hideshow/\.activate] 1]] 3 (#$ . 21373) nil])
(defalias 'vhl/ext/hideshow/off #[nil "\300\301\302\303#\207" [vhl/disable-advice-if-defined hs-show-block after vhl/ext/hideshow/vhl/around-hook] 4])
(vhl/install-extension 'hideshow)