;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\315\316DD\317\320\321\304\322&\207" [custom-declare-group elide-head nil "Eliding copyright headers and the like in source files." :version "21.1" :prefix "elide-head" :group tools custom-declare-variable elide-head-headers-to-hide funcall function #[0 "\300\301B\302\303B\304\305BE\207" ["is free software[:;] you can redistribute it" "\\(?:If not, see ? ?\\|Boston, MA ?0211\\(?:0-1301\\|1-1307\\)\\(?:[ ,] \\)USA\\|675 Mass Ave, Cambridge, MA 02139, USA\\)\\.?" "\\(?:Redistribution and use in source and binary\\|The Regents of the University of California\\. All rights reserved\\.\\)" "POSSIBILITY OF SUCH DAMAGE\\." "Permission is hereby granted, free of charge" "\\(?:\\(?:THE USE OR OTHER DEALINGS IN THE SOFTWARE\\|authorization from the X Consortium\\)\\.\\)"] 4 ""] "Alist of regexps defining start and end of text to elide.\n\nThe cars of elements of the list are searched for in order. Text is\nelided with an invisible overlay from the end of the line where the\nfirst match is found to the end of the match for the corresponding\ncdr.\n\nThis affects `elide-head-mode'." :type (alist :key-type (regexp :tag "Start regexp") :value-type (regexp :tag "End regexp")) "29.1"] 10) (defvar elide-head-overlay nil nil) (make-variable-buffer-local 'elide-head-overlay)#@45 Delete the overlay in `elide-head-overlay'. (defalias 'elide-head--delete-overlay #[0 "\301!\205 \302!\207" [elide-head-overlay overlayp delete-overlay] 2 (#$ . 1472)])#@31 Hide elided (hidden) headers. (defalias 'elide-head--hide #[0 "\212\214\302\211~\210eb\210\2039\212\303@@\302\304#\203-`\262\303@A\302\304#\203-\305 \262\302\262)\203\nA\262\202\n\203A\211\204O\306\307!\205|\310\311!\266\203\202~b\210\302\210\312 !\203e\313 \305 #\210\202k\314\305 \"\315 \316\304#\210\315 \317\304#\210\315 \320\321#\266\203*\207" [elide-head-headers-to-hide elide-head-overlay nil re-search-forward t point-marker called-interactively-p interactive message "No header found" overlayp move-overlay make-overlay overlay-put invisible evaporate after-string "..."] 7 (#$ . 1649)])#@31 Show elided (hidden) headers. (defalias 'elide-head--show #[0 "\301!\203\302!\203\303 \207\304\305!\205\306\307!\207" [elide-head-overlay overlayp overlay-buffer elide-head--delete-overlay called-interactively-p interactive message "No header hidden"] 2 (#$ . 2278)])#@99 Non-nil if Elide-Head mode is enabled. Use the command `elide-head-mode' to change this variable. (defvar elide-head-mode nil (#$ . 2559)) (make-variable-buffer-local 'elide-head-mode)#@793 Toggle eliding (hiding) header material in the current buffer. When Elide Header mode is enabled, headers are hidden according to `elide-head-headers-to-hide'. This is suitable as an entry on `find-file-hook' or appropriate mode hooks. This is a minor mode. If called interactively, toggle the `Elide-Head mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `elide-head-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'elide-head-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\203B\311 \210\312\313\314\305\315$\210\202K\316 \210\317\313\314\315#\210\320\321\203U\322\202V\323\"\210\324\325!\203y\302 \203j\211\302 \232\203y\326\327\330\203u\331\202v\332\333$\210\210\334 \210\207" [elide-head-mode local-minor-modes current-message toggle 1 nil t boundp delq elide-head--hide add-hook change-major-mode-hook elide-head--delete-overlay local elide-head--show remove-hook run-hooks elide-head-mode-hook elide-head-mode-on-hook elide-head-mode-off-hook called-interactively-p any message "%s %sabled%s" "Elide-Head mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 2750) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar elide-head-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [elide-head-mode-map elide-head-mode-hook variable-documentation put "Hook run after entering or leaving `elide-head-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode elide-head-mode boundp] 6)#@279 Hide header material in buffer according to `elide-head-headers-to-hide'. The header is made invisible with an overlay. With a prefix argument ARG, show an elided material again. This is suitable as an entry on `find-file-hook' or appropriate mode hooks. (fn &optional ARG) (defalias 'elide-head #[256 "\211\203\300\301!\207\300\302!\207" [elide-head-mode -1 1] 3 (#$ . 4908) "P"]) (make-obsolete 'elide-head 'elide-head-mode "29.1")#@62 Show a header in the current buffer elided by \[elide-head]. (defalias 'elide-head-show #[0 "\300\301!\207" [elide-head-mode -1] 2 (#$ . 5353) nil]) (byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete elide-head-show elide-head-mode "29.1" provide elide-head] 4)