Current File : //usr/local/share/emacs/27.2/lisp/progmodes/hideshow.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&\210\310\311\312\313\314DD\315\316\317\306\301&\210\310\320\312\313\321DD\322\316\323\306\301\324\325& \210\310\326\312\313\327DD\330\316\331\306\301&\207" [custom-declare-group hideshow nil "Minor mode for hiding and showing program and comment blocks." :prefix "hs-" :group languages custom-declare-variable hs-hide-comments-when-hiding-all funcall function #[0 "\300\207" [t] 1] "Hide the comments too when you do an `hs-hide-all'." :type boolean hs-minor-mode-hook #[0 "\300\207" [nil] 1] "Hook called when hideshow minor mode is activated or deactivated." hook :version "21.1" hs-isearch-open #[0 "\300\207" [code] 1] "What kind of hidden blocks to open when doing `isearch'.\nOne of the following symbols:\n\n code -- open only code blocks\n comment -- open only comment blocks\n t -- open both code and comment blocks\n nil -- open neither code nor comment blocks\n\nThis has effect only if `search-invisible' is set to `open'." (choice (const :tag "open only code blocks" code) (const :tag "open only comment blocks" comment) (const :tag "open both code and comment blocks" t) (const :tag "don't open any of them" nil))] 10)
#@1214 Alist for initializing the hideshow variables for different modes.
Each element has the form
(MODE START END COMMENT-START FORWARD-SEXP-FUNC ADJUST-BEG-FUNC).
If non-nil, hideshow will use these values as regexps to define blocks
and comments, respectively for major mode MODE.
START, END and COMMENT-START are regular expressions. A block is
defined as text surrounded by START and END.
As a special case, START may be a list of the form (COMPLEX-START
MDATA-SELECTOR), where COMPLEX-START is a regexp w/ multiple parts and
MDATA-SELECTOR an integer that specifies which sub-match is the proper
place to adjust point, before calling `hs-forward-sexp-func'. Point
is adjusted to the beginning of the specified match. For example,
see the `hs-special-modes-alist' entry for `bibtex-mode'.
For some major modes, `forward-sexp' does not work properly. In those
cases, FORWARD-SEXP-FUNC specifies another function to use instead.
See the documentation for `hs-adjust-block-beginning' to see what is the
use of ADJUST-BEG-FUNC.
If any of the elements is left nil or omitted, hideshow tries to guess
appropriate values. The regexps should not contain leading or trailing
whitespace. Case does not matter.
(defvar hs-special-modes-alist (mapcar 'purecopy '((c-mode "{" "}" "/[*/]" nil nil) (c++-mode "{" "}" "/[*/]" nil nil) (bibtex-mode ("@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil nil) (js-mode "{" "}" "/[*/]" nil))) (#$ . 1608))
#@71 Function called if non-nil when doing `hs-hide-all' for non-comments.
(defvar hs-hide-all-non-comment-function nil (#$ . 3064))
#@153 If non-nil, hiding remembers internal blocks.
This means that when the outer block is shown again,
any previously hidden internal blocks remain hidden.
(defvar hs-allow-nesting nil (#$ . 3199))
#@204 Hook called (with `run-hooks') at the end of commands to hide text.
These commands include the toggling commands (when the result is to hide
a block), `hs-hide-all', `hs-hide-block' and `hs-hide-level'.
(defvar hs-hide-hook nil (#$ . 3400))
#@187 Hook called (with `run-hooks') at the end of commands to show text.
These commands include the toggling commands (when the result is to show
a block), `hs-show-all' and `hs-show-block'.
(defvar hs-show-hook nil (#$ . 3648))
#@697 Function called with one arg, OV, a newly initialized overlay.
Hideshow puts a unique overlay on each range of text to be hidden
in the buffer. Here is a simple example of how to use this variable:
(defun display-code-line-counts (ov)
(when (eq \='code (overlay-get ov \='hs))
(overlay-put ov \='display
(format "... / %d"
(count-lines (overlay-start ov)
(overlay-end ov))))))
(setq hs-set-up-overlay #\='display-code-line-counts)
This example shows how to get information from the overlay as well
as how to set its `display' property. See `hs-make-overlay' and
info node `(elisp)Overlays'.
(defvar hs-set-up-overlay 'ignore (#$ . 3879))
#@132 Non-nil if using hideshow mode as a minor mode of some other mode.
Use the command `hs-minor-mode' to toggle or set this variable.
(defvar hs-minor-mode nil (#$ . 4629))
#@33 Keymap for hideshow minor mode.
(defvar hs-minor-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\311#\210\301\317\307#\210\301\320\303#\210\301\321\315#\210\301\322\315#\210\211\207" [make-sparse-keymap define-key "@" hs-hide-block "@" hs-show-block "@\210" hs-hide-all "@\223" hs-show-all "@\f" hs-hide-level "@" hs-toggle-hiding "@" "@" "@" "@" [(shift mouse-2)]] 5) (#$ . 4805))
#@47 Menu used when hideshow minor mode is active.
(defvar hs-minor-mode-menu nil (#$ . 5310))
(easy-menu-do-define 'hs-minor-mode-menu hs-minor-mode-map "Menu used when hideshow minor mode is active." '("Hide/Show" ["Hide Block" hs-hide-block :help "Hide the code or comment block at point"] ["Show Block" hs-show-block :help "Show the code or comment block at point"] ["Hide All" hs-hide-all :help "Hide all the blocks in the buffer"] ["Show All" hs-show-all :help "Show all the blocks in the buffer"] ["Hide Level" hs-hide-level :help "Hide all block at levels below the current block"] ["Toggle Hiding" hs-toggle-hiding :help "Toggle the hiding state of the current block"] "----" ["Hide comments when hiding all" (setq hs-hide-comments-when-hiding-all (not hs-hide-comments-when-hiding-all)) :help "If t also hide comment blocks when doing `hs-hide-all'" :style toggle :selected hs-hide-comments-when-hiding-all] ("Reveal on isearch" ["Code blocks" (setq hs-isearch-open 'code) :help "Show hidden code blocks when isearch matches inside them" :active t :style radio :selected (eq hs-isearch-open 'code)] ["Comment blocks" (setq hs-isearch-open 'comment) :help "Show hidden comment blocks when isearch matches inside them" :active t :style radio :selected (eq hs-isearch-open 'comment)] ["Code and Comment blocks" (setq hs-isearch-open t) :help "Show both hidden code and comment blocks when isearch matches inside them" :active t :style radio :selected (eq hs-isearch-open t)] ["None" (setq hs-isearch-open nil) :help "Do not hidden code or comment blocks when isearch matches inside them" :active t :style radio :selected (eq hs-isearch-open nil)])))
#@122 Regexp for beginning of comments.
Differs from mode-specific comment regexps in that
surrounding whitespace is stripped.
(defvar hs-c-start-regexp nil (#$ . 6969))
(make-variable-buffer-local 'hs-c-start-regexp)
#@32 Regexp for beginning of block.
(defvar hs-block-start-regexp nil (#$ . 7187))
(make-variable-buffer-local 'hs-block-start-regexp)
#@225 Element in `hs-block-start-regexp' match data to consider as block start.
The internal function `hs-forward-sexp' moves point to the beginning of this
element (using `match-beginning') before calling `hs-forward-sexp-func'.
(defvar hs-block-start-mdata-select nil (#$ . 7324))
(make-variable-buffer-local 'hs-block-start-mdata-select)
#@26 Regexp for end of block.
(defvar hs-block-end-regexp nil (#$ . 7665))
(make-variable-buffer-local 'hs-block-end-regexp)
#@314 Function used to do a `forward-sexp'.
Should change for Algol-ish modes. For single-character block
delimiters -- ie, the syntax table regexp for the character is
either `(' or `)' -- `hs-forward-sexp-func' would just be
`forward-sexp'. For other modes such as simula, a more specialized
function is necessary.
(defvar hs-forward-sexp-func 'forward-sexp (#$ . 7792))
(make-variable-buffer-local 'hs-forward-sexp-func)
#@691 Function used to tweak the block beginning.
The block is hidden from the position returned by this function,
as opposed to hiding it from the position returned when searching
for `hs-block-start-regexp'.
For example, in c-like modes, if we wish to also hide the curly braces
(if you think they occupy too much space on the screen), this function
should return the starting point (at the end of line) of the hidden
region.
It is called with a single argument ARG which is the position in
buffer after the block beginning.
It should return the position from where we should start hiding.
It should not move the point.
See `hs-c-like-adjust-block-beginning' for an example of using this.
(defvar hs-adjust-block-beginning 'identity (#$ . 8219))
(make-variable-buffer-local 'hs-adjust-block-beginning)
#@373 Text of the line where a hidden block begins, set during isearch.
You can display this in the mode line by adding the symbol `hs-headline'
to the variable `mode-line-format'. For example,
(unless (memq \='hs-headline mode-line-format)
(setq mode-line-format
(append \='("-" hs-headline) mode-line-format)))
Note that `mode-line-format' is buffer-local.
(defvar hs-headline nil (#$ . 9029))
#@133 Delete hideshow overlays in region defined by FROM and TO.
Skip "internal" overlays if `hs-allow-nesting' is non-nil.
(fn FROM TO)
(defalias 'hs-discard-overlays #[514 "\211W\203\f \211\262\262\2032 \301\302!\211\262V\2051 \303!\211\262\203 \304!\262\305!\210\202 \207\306\"\211\205N \211@\307\310\"\203G \305!\210A\266\202\2026 \207" [hs-allow-nesting nil next-overlay-change hs-overlay-at overlay-end delete-overlay overlays-in overlay-get hs] 7 (#$ . 9445)])
#@705 Return a new overlay in region defined by B and E with type KIND.
KIND is either `code' or `comment'. Optional fourth arg B-OFFSET
when added to B specifies the actual buffer position where the block
begins. Likewise for optional fifth arg E-OFFSET. If unspecified
they are taken to be 0 (zero). The following properties are set
in the overlay: `invisible' `hs' `hs-b-offset' `hs-e-offset'. Also,
depending on variable `hs-isearch-open', the following properties may
be present: `isearch-open-invisible' `isearch-open-invisible-temporary'.
If variable `hs-set-up-overlay' is non-nil it should specify a function
to call with the newly initialized overlay.
(fn B E KIND &optional B-OFFSET E-OFFSET)
(defalias 'hs-make-overlay #[1283 "\204 \302\262\211\204 \302\262\303\"\304=\203 \305\202 \306\307\310#\210\306\310#\210\306\311#\210\306\312#\210\211\313=\204C \211=\203O \306\314\315#\210\306\316\317#\210 \203W !\210\207" [hs-isearch-open hs-set-up-overlay 0 make-overlay block code overlay-put invisible hs hs-b-offset hs-e-offset t isearch-open-invisible hs-isearch-show isearch-open-invisible-temporary hs-isearch-show-temporary] 11 (#$ . 9935)])
#@150 Delete overlay OV, and set `hs-headline' to nil.
This function is meant to be used as the `isearch-open-invisible'
property of an overlay.
(fn OV)
(defalias 'hs-isearch-show #[257 "\301\302!\207" [hs-headline nil delete-overlay] 3 (#$ . 11124)])
#@355 Hide or show overlay OV, and set `hs-headline', all depending on HIDE-P.
If HIDE-P is non-nil, `hs-headline' is set to nil and overlay OV is hidden.
Otherwise, `hs-headline' is set to the line of text at the head of OV, and
OV is shown.
This function is meant to be used as the `isearch-open-invisible-temporary'
property of an overlay.
(fn OV HIDE-P)
(defalias 'hs-isearch-show-temporary #[514 "\211?\205 \206 \301!\212\211b\210\302 \210\303\304w\210`){\262\305 \210\304\203? \306\307\"\211\262\203U \310\311#\210\310\307\304#\210\202U \306\311\"\211\262\203U \310\307#\210\310\311\304#\210\210\310\312\205^ \313#\207" [hs-headline overlay-start beginning-of-line " " nil force-mode-line-update overlay-get hs-isearch-display overlay-put display invisible hs] 7 (#$ . 11381)])
#@52 Return non-nil if the point is at the block start.
(defalias 'hs-looking-at-block-start-p #[0 "\301!\205 \302 \303\304\305\306\307!\310\"\311$\216\312\313 8)?\262\207" [hs-block-start-regexp looking-at match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 8 syntax-ppss] 7 (#$ . 12188)])
#@140 Adjust point based on MATCH-DATA and call `hs-forward-sexp-func' w/ ARG.
Original match data is restored upon return.
(fn MATCH-DATA ARG)
(defalias 'hs-forward-sexp #[514 "\302 \303\304\305\306\307!\310\"\311$\216\312!\210\224b\210 !)\207" [hs-block-start-mdata-select hs-forward-sexp-func match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 set-match-data] 9 (#$ . 12526)])
#@139 Hide a region from BEG to END, marking it as a comment.
Optional arg REPOS-END means reposition at end.
(fn BEG END &optional REPOS-END)
(defalias 'hs-hide-comment-region #[770 "ib\210\300 \301 b\210\301 \302\"\210\303\304\n\n%\210\203$ \202) \\^b\207" [line-beginning-position line-end-position hs-discard-overlays hs-make-overlay comment] 13 (#$ . 12954)])
#@367 Hide block if on block beginning.
Optional arg END means reposition at end.
Optional arg COMMENT-REG is a list of the form (BEGIN END) and
specifies the limits of the comment, or nil if the block is not
a comment.
The block beginning is adjusted by `hs-adjust-block-beginning'
and then further adjusted to be at the end of the line.
(fn &optional END COMMENT-REG)
(defalias 'hs-hide-block-at-point #[512 "\211\203
\303@A@#\207\304 \205\203 \305\306!\307\225\310\211\211\212\206 \311!b\210\312 \262)\313\314\"\210\315 \310\"\203: \307\224\202; `\262W\203t \316\"\314V\203t \n\203` \317!\211\262\203` \320!\210\202i \n\204i \321\"\210\322\323Z$\210\203} \202\200 ^b\266\205\207" [hs-adjust-block-beginning hs-block-end-regexp hs-allow-nesting hs-hide-comment-region hs-looking-at-block-start-p match-data t 0 nil identity line-end-position hs-forward-sexp 1 looking-back count-lines hs-overlay-at delete-overlay hs-discard-overlays hs-make-overlay code] 13 (#$ . 13334)])
#@425 Return non-nil if point is inside a comment, otherwise nil.
Actually, return a list containing the buffer position of the start
and the end of the comment. A comment block can be hidden only if on
its starting line there is only whitespace preceding the actual comment
beginning. If we are inside of a comment but this condition is not met,
we return a list having a nil as its car and the end of comment position
as cdr.
(defalias 'hs-inside-comment-p #[0 "\212`\301\302w\210\303!\204 \304e\305#\205\227 o\204( `\306\307!\210`U\203( \307u\210\202 \306\310 [!\210\311\302w\210`\305\312 \210\303\313P!\204| b\210\306\314!\210\311\302w\210`\262`W\203m `V\203m \303!\204m `\262\306\314!\210\311\302w\210\202M \303!\203y `V\203| \302\262\306\310 !\210\311\302x\210\302\210`Y\205\225 \211\205\223 `D\266\202\262)\207" [hs-c-start-regexp "[:blank:]" nil looking-at re-search-backward t forward-comment -1 buffer-size " \n\f" beginning-of-line "[ ]*" 1] 6 (#$ . 14343)])
#@266 Set up hideshow variables for new buffers.
If `hs-special-modes-alist' has information associated with the
current buffer's major mode, use that.
Otherwise, guess start, end and `comment-start' regexps; `forward-sexp'
function; and adjust-block-beginning function.
(defalias 'hs-grok-mode-type #[0 "\306\300!\203n \203n \306\301!\203n \203n \307\n \"\211A@\206 \310\211<\203. \211@\211A@\2022 \211\311\3128\2069 \313\3148\206X \315!\316\317\"\203U \320\311\211\225S#\202V \211\262\3218\206a \322\3238\206j \324\211 \207\325 \326\327\330 !\"\207" [comment-start comment-end major-mode hs-special-modes-alist hs-block-start-regexp hs-block-start-mdata-select boundp assoc "\\s(" 0 2 "\\s)" 3 regexp-quote string-match " +$" substring 4 forward-sexp 5 identity nil error "%s Mode doesn't support Hideshow Minor Mode" format-mode-line hs-block-end-regexp hs-c-start-regexp hs-forward-sexp-func hs-adjust-block-beginning hs-minor-mode mode-name] 7 (#$ . 15336)])
#@93 Reposition point at block-start.
Return point, or nil if original point was not in a block.
(defalias 'hs-find-block-beginning #[0 "\301`\302 \203 `\202I \303\301\304#\203= \305 \306\307\310\311\312!\313\"\314$\216\315\316 8)\262\204 \211\212\317\305\304!\320\"\210`)W\211\262\203 \203E `\202I \211b\210\301\207" [hs-block-start-regexp nil hs-looking-at-block-start-p re-search-backward t match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 8 syntax-ppss hs-forward-sexp 1] 9 (#$ . 16324)])
#@91 Recursively hide blocks ARG levels below point in region (MINP MAXP).
(fn ARG MINP MAXP)
(defalias 'hs-hide-level-recursive #[771 "\304 \203 `T\262\305!\210`S\262 \204 \306\"\210b\210\307\310 !\210`W\203d \311\n\312#\203d \313 \314\315\316\317\320!\321\"\322$\216\323\324 8)?\262\203 \305V\203Y \325S#\210\202 \224b\210\326\312!\210\202 \211b\207" [hs-forward-sexp-func hs-allow-nesting hs-block-start-regexp hs-block-start-mdata-select hs-find-block-beginning 1 hs-discard-overlays forward-comment buffer-size re-search-forward t match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 8 syntax-ppss hs-hide-level-recursive hs-hide-block-at-point] 10 (#$ . 16870)])
#@180 Evaluate BODY forms if variable `hs-minor-mode' is non-nil.
In the dynamic context of this macro, `inhibit-point-motion-hooks'
and `case-fold-search' are both t.
(fn &rest BODY)
(defalias 'hs-life-goes-on '(macro . #[128 "\300\301\302\303BBE\207" [when hs-minor-mode let ((inhibit-point-motion-hooks t) (case-fold-search t))] 6 (#$ . 17602)]))
(put 'hs-life-goes-on 'edebug-form-spec t)
#@81 Return hideshow overlay at POSITION, or nil if none to be found.
(fn POSITION)
(defalias 'hs-overlay-at #[257 "\300!\301\211\211\204\" @\211\262\203\" \302\303\"\205 \262A\262\202 \207" [overlays-at nil overlay-get hs] 7 (#$ . 17997)])
#@71 Return non-nil if point is in an already-hidden block, otherwise nil.
(defalias 'hs-already-hidden-p #[0 "\212\300 \211\203 \211@\203 \211@b\210\202( \301\210\211\204( \302 \203( \303 \203( \304\225b\210\210\301\210\305`!)\207" [hs-inside-comment-p nil hs-find-block-beginning hs-looking-at-block-start-p 0 hs-overlay-at] 2 (#$ . 18250)])
#@282 Adjust INITIAL, the buffer position after `hs-block-start-regexp'.
Actually, point is never moved; a new position is returned that is
the end of the C-function header. This adjustment function is meant
to be assigned to `hs-adjust-block-beginning' for C-like modes.
(fn INITIAL)
(defalias 'hs-c-like-adjust-block-beginning #[257 "\212\211Sb\210\300\301 [!\210`)\207" [forward-comment buffer-size] 3 (#$ . 18600)])
#@257 Hide all top level blocks, displaying only first and last lines.
Move point to the beginning of the line, and run the normal hook
`hs-hide-hook'. See documentation for `run-hooks'.
If `hs-hide-comments-when-hiding-all' is non-nil, also hide the comments.
(defalias 'hs-hide-all #[0 "\205\261 \306\211\212 \204 \307ed\"\210eb\210\310d!\210\311\312ed#\313\f\314
\203- \315 \314Q\202. \316R
\2047 \317d!\210\320d\306#\203\244 \321\224\203f \321\224b\210 \203S \202V \322\306!\204\213 \323\f!\203\213 \324\225b\210\202\213 \325 \211\203\212 \211@\203\212 \326@A@\"\321V\203\205 \322\306\"\210\202\212 \211A@b\210\210`\327\247\203\232 @Y\205\237 \330#\266\202/ \331!\266)\332 \210\333\334!*\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks hs-allow-nesting hs-block-start-regexp hs-hide-comments-when-hiding-all t hs-discard-overlays syntax-propertize make-progress-reporter "Hiding all blocks..." "\\(" "\\)" "\\|\\(" "" forward-comment re-search-forward 1 hs-hide-block-at-point looking-at 0 hs-inside-comment-p count-lines nil progress-reporter-do-update progress-reporter-done beginning-of-line run-hooks hs-hide-hook hs-c-start-regexp hs-hide-all-non-comment-function] 9 (#$ . 19023) nil])
#@60 Show everything then run `hs-show-hook'. See `run-hooks'.
(defalias 'hs-show-all #[0 "\205 \304\211\305\306!\210\307\310ed\"\210)\305\311!\210\312\313!*\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks hs-allow-nesting t message "Showing all blocks ..." nil hs-discard-overlays "Showing all blocks ... done" run-hooks hs-show-hook] 3 (#$ . 20258) nil])
#@204 Select a block and hide it. With prefix arg, reposition at END.
Upon completion, point is repositioned and the normal hook
`hs-hide-hook' is run. See documentation for `run-hooks'.
(fn &optional END)
(defalias 'hs-hide-block #[256 "\205> \303\211\304 \211\203% \211@\203 \305@A@\"\306X\203% \307\310!\202; \211\2043 \311 \2043 \312 \205; \313\"\210\314\315!\262*\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks t hs-inside-comment-p count-lines 1 message "(not enough comment lines to hide)" hs-looking-at-block-start-p hs-find-block-beginning hs-hide-block-at-point run-hooks hs-hide-hook] 5 (#$ . 20639) "P"])
#@233 Select a block and show it.
With prefix arg, reposition at END. Upon completion, point is
repositioned and the normal hook `hs-show-hook' is run.
See documentation for functions `hs-hide-block' and `run-hooks'.
(fn &optional END)
(defalias 'hs-show-block #[256 "\205\213 \303\211\304\305 !`\2057 \203 \306!\2020 \307\310\"\311=\203( \211\2020 \312!\307\313\"\\b\210\314!\210\303\266\202\204\207 \315 \316\211\203U @\203l @\262A@\262\202l \317 \203l \320 \203l `\262\321\322\303!\323\"\210`\262\203\205 \211\203\205 \324\"\210\203\201 \211\202\203 Tb\210\266\325\326!*\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks t hs-overlay-at line-end-position overlay-end overlay-get hs comment overlay-start hs-b-offset delete-overlay hs-inside-comment-p nil hs-find-block-beginning hs-looking-at-block-start-p hs-forward-sexp match-data 1 hs-discard-overlays run-hooks hs-show-hook] 7 (#$ . 21286) "P"])
#@105 Hide all blocks ARG levels below this block.
The hook `hs-hide-hook' is run; see `run-hooks'.
(fn ARG)
(defalias 'hs-hide-level #[257 "\205 \303\211\212\304\305!\210\306ed#\210\304\307!\210)\310\311!*\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks t message "Hiding blocks ..." hs-hide-level-recursive "Hiding blocks ... done" run-hooks hs-hide-hook] 5 (#$ . 22232) "p"])
#@153 Toggle hiding/showing of a block.
See `hs-hide-block' and `hs-show-block'.
Argument E should be the event that triggered this action.
(fn &optional E)
(defalias 'hs-toggle-hiding #[256 "\205 \303\211\304\305!!\210\306 \203 \307 \202 \310 *\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks t posn-set-point event-end hs-already-hidden-p hs-show-block hs-hide-block] 4 (#$ . 22634) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias hs-mouse-toggle-hiding hs-toggle-hiding nil make-obsolete "27.1"] 4)
#@109 Hide the first block of comments in a file.
This can be useful if you have huge RCS logs in those comments.
(defalias 'hs-hide-initial-comment-block #[0 "\205. \303\211\212eb\210\304\305w\210\306 )\211\205+ \211@A@\307\"\310V\205) \311\"\266\202\262*\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks t " \n\f" nil hs-inside-comment-p count-lines 1 hs-hide-comment-region] 6 (#$ . 23185) nil])
#@95 Non-nil if Hs minor mode is enabled.
Use the command `hs-minor-mode' to change this variable.
(defvar hs-minor-mode nil (#$ . 23609))
(make-variable-buffer-local 'hs-minor-mode)
#@913 Minor mode to selectively hide/show code and comment blocks.
If called interactively, enable Hs minor mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
When hideshow minor mode is on, the menu bar is augmented with hideshow
commands and the hideshow commands are enabled.
The value (hs . t) is added to `buffer-invisibility-spec'.
The main commands are: `hs-hide-all', `hs-show-all', `hs-hide-block',
`hs-show-block', `hs-hide-level' and `hs-toggle-hiding'. There is also
`hs-hide-initial-comment-block'.
Turning hideshow minor mode off reverts the menu bar and the
variables to default values and disables the hideshow commands.
Lastly, the normal hook `hs-minor-mode-hook' is run using `run-hooks'.
Key bindings:
\{hs-minor-mode-map}
(fn &optional ARG)
(defalias 'hs-minor-mode #[256 "\304 \305=\203
?\202 \306!\307V\310\2034 \311 \210\312\313\314\310\315$\210\316\n!\210\317\303!\210\315\320\321!\210\202> \322\323!\210\315\324 \210)\325\326\203H \327\202I \330\"\210\331\332!\203m \304 \203] \211\304 \232\203m \333\334\335\203h \336\202i \337#\266\210\340 \210\207" [hs-minor-mode hs-headline hs-minor-mode-menu line-move-ignore-invisible current-message toggle prefix-numeric-value 0 nil hs-grok-mode-type add-hook change-major-mode-hook turn-off-hideshow t easy-menu-add make-local-variable add-to-invisibility-spec (hs . t) remove-from-invisibility-spec (hs . t) hs-show-all run-hooks hs-minor-mode-hook hs-minor-mode-on-hook hs-minor-mode-off-hook called-interactively-p any " in current buffer" message "Hs minor mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 23794) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar hs-minor-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\207" [hs-minor-mode-map hs-minor-mode-hook variable-documentation put "Hook run after entering or leaving `hs-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode hs-minor-mode " hs" nil] 6)
#@43 Unconditionally turn off `hs-minor-mode'.
(defalias 'turn-off-hideshow #[0 "\300\301!\207" [hs-minor-mode -1] 2 (#$ . 26022)])
(provide 'hideshow)
Mini Shell