| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\315\316DD\317\320\321%\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\207" [(("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\\."))] 1 ""] "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 (regexp :tag "Start regexp") :value-type (regexp :tag "End regexp"))] 10)
(defvar elide-head-overlay nil nil)
(make-variable-buffer-local 'elide-head-overlay)
#@270 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.
(fn &optional ARG)
(defalias 'elide-head #[256 "\211\203 \302 \207\212\214\303\211~\210eb\210\203@ \212\304@@\303\305#\2034 `\262\304@A\303\305#\2034 \306 \262\303\262)\203 A\262\202 \203H \211\204V \307\310!\205\203 \311\312!\266\203\202\205 b\210\303\210\313 !\203l \314 \306 #\210\202r \315\306 \"\316 \317\305#\210\316 \320\305#\210\316 \321\322#\266\203*\207" [elide-head-headers-to-hide 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 "..."] 8 (#$ . 1220) "P"])
#@62 Show a header in the current buffer elided by \[elide-head].
(defalias 'elide-head-show #[0 "\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 (#$ . 2128) nil])
(provide 'elide-head)