Current File : //usr/local/share/emacs/27.2/lisp/elide-head.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\315\310\301\316\317&\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 '(("is free software[:;] you can redistribute it" . "\\(Boston, MA 0211\\(1-1307\\|0-1301\\), USA\\|If not, see <https?://www\\.gnu\\.org/licenses/>\\)\\.") ("The Regents of the University of California\\. All rights reserved\\." . "SUCH DAMAGE\\.") ("Permission is hereby granted, free of charge" . "authorization from the X Consortium\\.")) "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." :type (alist :key-type (string :tag "Start regexp") :value-type (string :tag "End regexp"))] 10)
(defvar elide-head-overlay nil)
(make-variable-buffer-local 'elide-head-overlay)
#@250 Hide header material in buffer according to `elide-head-headers-to-hide'.
The header is made invisible with an overlay. With a prefix arg, show
an elided material again.
This is suitable as an entry on `find-file-hook' or appropriate mode hooks.
(defalias 'elide-head #[(&optional arg) "\203 \306 \207\212\214 \307\211 ~\210eb\210\f\203@ \212\310\f@@\307\311#\2034 `\310\f@A\307\311#\2034 \312 \307)\f\203 \fA\211\204 \203H \n\204T \313\314!\205\201 \315\316!\202\201 b\210\307\210\317
!\203j \320
\312 \n#\210\202p \321\312 \n\"\322
\323\311#\210\322
\324\311#\210\322
\325\326#-\207" [arg elide-head-headers-to-hide end beg rest elide-head-overlay elide-head-show 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 "..."] 5 (#$ . 1500) "P"])
#@55 Show a header elided current buffer by \[elide-head].
(defalias 'elide-head-show #[nil "\301!\203 \302!\203 \303!\207\304\305!\205 \306\307!\207" [elide-head-overlay overlayp overlay-buffer delete-overlay called-interactively-p interactive message "No header hidden"] 2 (#$ . 2394) nil])
(provide 'elide-head)
Mini Shell