;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (custom-declare-group 'hide-lines nil "Commands for hiding lines based on a regexp.") #@46 List of invisible overlays used by hidelines (defvar hide-lines-invisible-areas nil (#$ . 173)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\301!\210\311\312!\207" [custom-declare-variable hide-lines-reverse-prefix nil "If non-nil then `hide-lines' will call `hide-lines-matching' by default, and `hide-lines-not-matching' with a single prefix.\nOtherwise it's the other way round.\nIn either case a prefix arg with any value apart from 1 or 4 will call `hide-lines-show-all'." :type boolean :group hide-lines make-variable-buffer-local add-to-invisibility-spec hl] 8) #@173 Hide lines matching the specified regexp. With prefix arg of 4 (C-u) hide lines that do not match the specified regexp. With any other prefix arg, reveal all hidden lines. (defalias 'hide-lines #[(&optional arg) "\302U\203\303 \203\304\202\305!\207\306U\203$\303 \203!\305\202\"\304!\207\303\307!\207" [arg hide-lines-reverse-prefix 4 call-interactively hide-lines-matching hide-lines-not-matching 1 hide-lines-show-all] 2 (#$ . 759) "p"]) #@120 Add an overlay from `start' to `end' in the current buffer. Push the overlay onto the hide-lines-invisible-areas list (defalias 'hide-lines-add-overlay #[(start end) "\304 \"\211 B\305\n\306\307#)\207" [start end overlay hide-lines-invisible-areas make-overlay overlay-put invisible hl] 5 (#$ . 1217)]) #@51 Hide lines that don't match the specified regexp. (defalias 'hide-lines-not-matching #[(search-text) "\304\300!\210\305\212eb\210e\306 \307\305#\n\2039\310 \210\311 `\"\210\312y\210``d=\203/\307\211\202\306 \307\305#\211\204\311 d\"+\207" [line-move-ignore-invisible search-text pos start-position make-local-variable t re-search-forward nil beginning-of-line hide-lines-add-overlay 1] 6 (#$ . 1530) "MHide lines not matched by regexp: "]) #@43 Hide lines matching the specified regexp. (defalias 'hide-lines-matching #[(search-text) "\304\300!\210\305\212eb\210\306 \307\305#\307\211\205>\310 \210`\307\210\311\n`T\"\210\312y\210`d=\2033\307\211\202\306 \307\305#\211\204\307+\207" [line-move-ignore-invisible search-text start-position pos make-local-variable t re-search-forward nil beginning-of-line hide-lines-add-overlay 1] 5 (#$ . 1988) "MHide lines matching regexp: "]) #@53 Show all areas hidden by the filter-buffer command. (defalias 'hide-lines-show-all #[nil "\301\302\"\210\303\211\207" [hide-lines-invisible-areas mapc #[(overlay) "\301!\207" [overlay delete-overlay] 2] nil] 3 (#$ . 2440) nil]) (provide 'hide-lines)