| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/elide-head.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:16 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/elide-head.el
;;; in Emacs version 24.3.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 <http://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 end 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\203F \212\310\f\211 @@)\307\311#\203: `\310\f\211 @A)\307\311#\203: \312 \307)\f\203 \fA\211\204 \203N \n\204Z \313\314!\205\215 \315\316!\202\215 b\210\307\210\317!\203r \320\312 \n#\210\202y \321\312 \n\"\322\323\311#\210\322\324\311#\210\322\325\326#-\207" [arg elide-head-headers-to-hide end beg rest x 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 "..." elide-head-overlay] 5 (#$ . 1643) "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 (#$ . 2557) nil])
(provide 'elide-head)