Gecko [ 122.154.134.11 ]

Name	Size	Permission
ada-mode.elc	107.46 KB	-rw-r--r--
ada-prj.elc	17.96 KB	-rw-r--r--
ada-stmt.elc	36.03 KB	-rw-r--r--
ada-xref.elc	54.99 KB	-rw-r--r--
antlr-mode.elc	77.63 KB	-rw-r--r--
asm-mode.elc	6.08 KB	-rw-r--r--
autoconf.elc	3.37 KB	-rw-r--r--
bug-reference.elc	5.83 KB	-rw-r--r--
cap-words.elc	3.54 KB	-rw-r--r--
cc-align.elc	35.43 KB	-rw-r--r--
cc-awk.elc	20.23 KB	-rw-r--r--
cc-bytecomp.elc	10.45 KB	-rw-r--r--
cc-cmds.elc	92.26 KB	-rw-r--r--
cc-compat.elc	2.97 KB	-rw-r--r--
cc-defs.elc	46.7 KB	-rw-r--r--
cc-engine.elc	143.05 KB	-rw-r--r--
cc-fonts.elc	140.72 KB	-rw-r--r--
cc-langs.elc	70.29 KB	-rw-r--r--
cc-menus.elc	7.32 KB	-rw-r--r--
cc-mode.elc	144.75 KB	-rw-r--r--
cc-styles.elc	16.11 KB	-rw-r--r--
cc-subword.elc	6.99 KB	-rw-r--r--
cc-vars.elc	71.07 KB	-rw-r--r--
cfengine.elc	8.09 KB	-rw-r--r--
cmacexp.elc	6.58 KB	-rw-r--r--
compile.elc	69.45 KB	-rw-r--r--
cperl-mode.elc	215.39 KB	-rw-r--r--
cpp.elc	21.52 KB	-rw-r--r--
cwarn.elc	12.8 KB	-rw-r--r--
dcl-mode.elc	49.31 KB	-rw-r--r--
delphi.elc	50.03 KB	-rw-r--r--
ebnf-abn.elc	7.39 KB	-rw-r--r--
ebnf-bnf.elc	7.99 KB	-rw-r--r--
ebnf-dtd.elc	13.82 KB	-rw-r--r--
ebnf-ebx.elc	8.77 KB	-rw-r--r--
ebnf-iso.elc	8.14 KB	-rw-r--r--
ebnf-otz.elc	8.51 KB	-rw-r--r--
ebnf-yac.elc	7.53 KB	-rw-r--r--
ebnf2ps.elc	121.25 KB	-rw-r--r--
ebrowse.elc	202.93 KB	-rw-r--r--
etags.elc	54.14 KB	-rw-r--r--
executable.elc	7.6 KB	-rw-r--r--
f90.elc	82.59 KB	-rw-r--r--
flymake.elc	61.25 KB	-rw-r--r--
fortran.elc	60.13 KB	-rw-r--r--
gdb-ui.elc	138.61 KB	-rw-r--r--
glasses.elc	10.15 KB	-rw-r--r--
grep.elc	27.75 KB	-rw-r--r--
gud.elc	93.94 KB	-rw-r--r--
hideif.elc	26.67 KB	-rw-r--r--
hideshow.elc	24.54 KB	-rw-r--r--
icon.elc	16.23 KB	-rw-r--r--
idlw-complete-structtag.elc	4.75 KB	-rw-r--r--
idlw-help.elc	35.31 KB	-rw-r--r--
idlw-shell.elc	134.39 KB	-rw-r--r--
idlw-toolbar.elc	28.34 KB	-rw-r--r--
idlwave.elc	254.7 KB	-rw-r--r--
inf-lisp.elc	18.43 KB	-rw-r--r--
ld-script.elc	4.91 KB	-rw-r--r--
m4-mode.elc	4.91 KB	-rw-r--r--
make-mode.elc	58.79 KB	-rw-r--r--
mantemp.elc	3.77 KB	-rw-r--r--
meta-mode.elc	27.42 KB	-rw-r--r--
mixal-mode.elc	35.32 KB	-rw-r--r--
modula2.elc	14.23 KB	-rw-r--r--
octave-inf.elc	11.87 KB	-rw-r--r--
octave-mod.elc	44.6 KB	-rw-r--r--
pascal.elc	40.31 KB	-rw-r--r--
perl-mode.elc	22.42 KB	-rw-r--r--
prolog.elc	12.7 KB	-rw-r--r--
ps-mode.elc	33.38 KB	-rw-r--r--
python.elc	86.23 KB	-rw-r--r--
ruby-mode.elc	34.59 KB	-rw-r--r--
scheme.elc	15.94 KB	-rw-r--r--
sh-script.elc	94.73 KB	-rw-r--r--
simula.elc	44.81 KB	-rw-r--r--
sql.elc	101.34 KB	-rw-r--r--
sym-comp.elc	7.15 KB	-rw-r--r--
tcl.elc	38.58 KB	-rw-r--r--
vera-mode.elc	44.5 KB	-rw-r--r--
verilog-mode.elc	331.76 KB	-rw-r--r--
vhdl-mode.elc	510.47 KB	-rw-r--r--
which-func.elc	9.72 KB	-rw-r--r--
xscheme.elc	37.76 KB	-rw-r--r--

Code Editor : hideshow.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:09 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/progmodes/hideshow.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`hideshow.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-declare-group 'hideshow nil "Minor mode for hiding and showing program and comment blocks." :prefix "hs-" :group 'languages)
#@54 *Hide the comments too when you do an `hs-hide-all'.
(custom-declare-variable 'hs-hide-comments-when-hiding-all 't '(#$ . -750) :type 'boolean :group 'hideshow)
#@68 *Hook called when hideshow minor mode is activated or deactivated.
(custom-declare-variable 'hs-minor-mode-hook 'nil '(#$ . -917) :type 'hook :group 'hideshow :version "21.1")
#@322 *What kind of hidden blocks to open when doing `isearch'.
One of the following symbols:

code    -- open only code blocks
  comment -- open only comment blocks
  t       -- open both code and comment blocks
  nil     -- open neither code nor comment blocks

This has effect only if `search-invisible' is set to `open'.
(custom-declare-variable 'hs-isearch-open ''code '(#$ . -1100) :type '(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)) :group 'hideshow)
#@1215 *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 '((c-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning) (c++-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning) (bibtex-mode ("@\\S(*\$\\s(\$" 1)) (java-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning)) (#$ . -1709))
#@72 *Function called if non-nil when doing `hs-hide-all' for non-comments.
(defvar hs-hide-all-non-comment-function nil (#$ . -3205))
#@154 *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 (#$ . -3342))
#@205 *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 (#$ . -3545))
#@189 *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 (#$ . -3795))
#@689 *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 nil (#$ . -4029))
#@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 (#$ . 4768))
#@33 Keymap for hideshow minor mode.
(defvar hs-minor-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210)\207" [map 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)] hs-mouse-toggle-hiding] 4) (#$ . 4944))
#@47 Menu used when hideshow minor mode is active.
(defvar hs-minor-mode-menu nil (#$ . 5379))
(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 (#$ . 7038))
(make-variable-buffer-local 'hs-c-start-regexp)
#@32 Regexp for beginning of block.
(defvar hs-block-start-regexp nil (#$ . 7256))
(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 (#$ . 7393))
(make-variable-buffer-local 'hs-block-start-mdata-select)
#@26 Regexp for end of block.
(defvar hs-block-end-regexp nil (#$ . 7734))
#@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 (#$ . 7811))
(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 nil (#$ . 8238))
(make-variable-buffer-local 'hs-adjust-block-beginning)
#@369 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 (#$ . 9042))
#@119 Delete hideshow overlays in region defined by FROM and TO.
Skip "internal" overlays if `hs-allow-nesting' is non-nil.
(defalias 'hs-discard-overlays #[(from to) "	W\203\n�	\n\203/�\305\306	!\211V\205-�\307	!\211\203�\310!\311!\210\202�)\207\312	\"\305\211\205P�\f@\313\314\"\203H�\311!\210\fA\211\204:�\305*\207" [to from hs-allow-nesting ov --dolist-tail-- nil next-overlay-change hs-overlay-at overlay-end delete-overlay overlays-in overlay-get hs] 4 (#$ . 9454)])
#@656 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.
(defalias 'hs-make-overlay #[(b e kind &optional b-offset e-offset) "\204�\306	\204\f�\306\307\n\"\f\310=\203�\311\202�\f\312\313\314#\210\312\314#\210\312\315#\210\312\316	#\210
\317=\204H�
=\203V�\312\320\321#\210\312\322\323#\210\203a�!\210*\207" [b-offset e-offset b e hs-isearch-open io 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 ov kind hs-set-up-overlay] 4 (#$ . 9948)])
#@141 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.
(defalias 'hs-isearch-show #[(ov) "\302\303	!\207" [hs-headline ov nil delete-overlay] 2 (#$ . 11155)])
#@339 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.
(defalias 'hs-isearch-show-temporary #[(ov hide-p) "?\205�	\206�\305\n!\212b\210\306 \210\307\310w\210`){)\311 \210\310\203?�\312\n\313\"\211\203T�\314\n\315\f#\210\314\n\313\310#\210\202T�\312\n\315\"\211\203T�\314\n\313\f#\210\314\n\315\310#\210)\314\n\316\205]�\317#\207" [hide-p hs-headline ov start value overlay-start beginning-of-line " 	" nil force-mode-line-update overlay-get hs-isearch-display overlay-put display invisible hs] 4 (#$ . 11407)])
#@119 Adjust point based on MATCH-DATA and call `hs-forward-sexp-func' w/ ARG.
Original match data is restored upon return.
(defalias 'hs-forward-sexp #[(match-data arg) "\301 \305\216\306	!\210\n\224b\210\f!*\207" [save-match-data-internal match-data hs-block-start-mdata-select hs-forward-sexp-func arg ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) set-match-data] 2 (#$ . 12220)])
#@105 Hide a region from BEG to END, marking it as a comment.
Optional arg REPOS-END means reposition at end.
(defalias 'hs-hide-comment-region #[(beg end &optional repos-end) "b\210\305 	b\210\305 \306\n\"\210\307\n\310	%\210*\f\203\"�	\202#�b\207" [beg end end-eol beg-eol repos-end line-end-position hs-discard-overlays hs-make-overlay comment] 6 (#$ . 12647)])
#@335 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.
(defalias 'hs-hide-block-at-point #[(&optional end comment-reg) "\203�\306@\211A@)\n#\207\307!\205\213�\310\311!\312\225\212\206$�\313
!b\210\314 )\315\f\316\"\210\317\210`\317`W\203|�\320\"\316V\203|�\203d�\321!\211\203d�\322!\210\202p�\204p�\323\"\210\324\325
Z$\210\n\203\205�\202\211�
^b-\207" [comment-reg x end hs-block-start-regexp mdata pure-p hs-hide-comment-region looking-at match-data t 0 identity line-end-position hs-forward-sexp 1 nil count-lines hs-overlay-at delete-overlay hs-discard-overlays hs-make-overlay code hs-adjust-block-beginning p q ov hs-allow-nesting] 7 (#$ . 13020)])
#@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 #[nil "\212`\304	!\204�\305	e\306#\205\222�o\204%�`\307\310!\210`U\203%�\310u\210\202�\307\311 [!\210\312\313w\210`\306\314 \210\304\315	P!\204x�b\210\307\316!\210\312\313w\210``W\203j�`V\203j�\304	!\204j�`\307\316!\210\312\313w\210\202K�\304	!\203v�`V\203x�\313\307\311 !\210\312\313x\210\313\210`Y\205\221�\n\205\217�`D**\207" [q hs-c-start-regexp hidable p looking-at re-search-backward t forward-comment -1 buffer-size " 	\n\f" nil beginning-of-line "[ 	]*" 1] 4 (#$ . 14008)])
#@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 #[nil "\306\300!\203x�\306\301!\203x�\203x�	\203x�\307\n\"\211A@\206 �\310\211<\2036�
@
\211A@)\202<�
\311\312\f8\206C�\313\314\f8\206e�\315!\316\317\"\203b�\311\211\225SO\202d�)\320\f8\206n�\321\322\f8\211*\207\323\324\325\326 !\"\207" [comment-start comment-end major-mode hs-special-modes-alist lookup start-elem boundp assoc "\\s(" 0 2 "\\s)" 3 regexp-quote string-match " +$" 4 forward-sexp 5 nil error "%s Mode doesn't support Hideshow Minor Mode" format-mode-line hs-block-start-regexp x hs-block-start-mdata-select hs-block-end-regexp c-start-regexp hs-c-start-regexp hs-forward-sexp-func hs-adjust-block-beginning hs-minor-mode mode-name] 5 (#$ . 14967)])
#@93 Reposition point at block-start.
Return point, or nil if original point was not in a block.
(defalias 'hs-find-block-beginning #[nil "\303`\304\n!\203�`\2023�\305\n\303\306#\203'�\212\307\310\306!\311\"\210`)W\211\203�	\203/�`\2023�b\210\303*\207" [here done hs-block-start-regexp nil looking-at re-search-backward t hs-forward-sexp match-data 1] 4 (#$ . 15966)])
#@71 Recursively hide blocks ARG levels below point in region (MINP MAXP).
(defalias 'hs-hide-level-recursive #[(arg minp maxp) "\306 \203�`T	\307!\210`S\204�\310\n\"\210b\210\311\312 !\210`\nW\203J�\313\f\n\314#\203J�
\307V\203>�\315
S\n#\210\202�\224b\210\316\314!\210\202�\nb\207" [minp hs-forward-sexp-func maxp hs-allow-nesting hs-block-start-regexp arg hs-find-block-beginning 1 hs-discard-overlays forward-comment buffer-size re-search-forward t hs-hide-level-recursive hs-hide-block-at-point hs-block-start-mdata-select] 4 (#$ . 16343)])
#@163 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.
(defalias 'hs-life-goes-on '(macro . #[(&rest body) "\301\302\303\304BBE\207" [body when hs-minor-mode let ((inhibit-point-motion-hooks t) (case-fold-search t))] 5 (#$ . 16903)]))
(put 'hs-life-goes-on 'edebug-form-spec '(&rest form))
#@66 Return hideshow overlay at POSITION, or nil if none to be found.
(defalias 'hs-overlay-at #[(position) "\304!\305\211	\204\"�@\211\203\"�\306\n\307\"\205�\nA\202�	+\207" [position found ov overlays overlays-at nil overlay-get hs] 3 (#$ . 17307)])
#@71 Return non-nil if point is in an already-hidden block, otherwise nil.
(defalias 'hs-already-hidden-p #[nil "\212\302 \211\203�@\203�@b\210\202*�\303\210\204*�\304 \203*�\305	!\203*�\306\225b\210)\303\210\307`!)\207" [c-reg hs-block-start-regexp hs-inside-comment-p nil hs-find-block-beginning looking-at 0 hs-overlay-at] 3 (#$ . 17571)])
#@268 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.
(defalias 'hs-c-like-adjust-block-beginning #[(initial) "\212Sb\210\301\302 [!\210`)\207" [initial forward-comment buffer-size] 2 (#$ . 17924)])
#@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 #[nil "\205\260�\306\211\212\204�\307ed\"\210eb\210\310\311ed#\312\f\313
\203)�\314\313Q\202*�\315R
\2047�\316d!\210\317d\306#\203\243�\320\224\203\\�\320\224b\210\203U� \210\202\210�\321\306!\210\202\210�\322 \211\203\207�@\203\207�\323@A@\"\320V\203\201�\321\306\"\210\202\207�A@b\210)`@Y\203\237�\324\"\210*\202/�\325!\210+\326 \210\327\330!*\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 make-progress-reporter "Hiding all blocks..." "\$" "\$" "\\|\\(" "" forward-comment re-search-forward 1 hs-hide-block-at-point hs-inside-comment-p count-lines progress-reporter-do-update progress-reporter-done beginning-of-line run-hooks hs-hide-hook hs-c-start-regexp re spew hs-hide-all-non-comment-function c-reg value reporter] 8 (#$ . 18344) nil])
#@60 Show everything then run `hs-show-hook'.  See `run-hooks'.
(defalias 'hs-show-all #[nil "\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 (#$ . 19533) nil])
#@184 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'.
(defalias 'hs-hide-block #[(&optional end) "\205>�\306\211\307 \211\203&�@\203 �\310@A@\"\311X\203&�\312\313!\202=�\2045�\314\f!\2045�\315 \205=�\316
\"\210\317\320!+\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks c-reg hs-block-start-regexp end t hs-inside-comment-p count-lines 1 message "(not enough comment lines to hide)" looking-at hs-find-block-beginning hs-hide-block-at-point run-hooks hs-hide-hook] 4 (#$ . 19916) "P"])
#@213 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'.
(defalias 'hs-show-block #[(&optional end) "\205\242�\306\211\307\310 !`\211\2059�
\203�\311\f!\2022�\312\f\313\"\314=\203*�\2022�\315\f!\312\f\316\"\\b\210\317\f!\210\306*\206\241�\320 \321\211\211\203c�@\203|�@\211A@)\202|�\322 \203|�\323!\203|�`\324\325\306!\326\"\210`\205\232�\205\232�\327\"\210
\203\226�\202\231�Tb+\206\241�\330\331!*\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks here ov end 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 looking-at hs-forward-sexp match-data 1 hs-discard-overlays run-hooks hs-show-hook q p c-reg x hs-block-start-regexp] 5 (#$ . 20562) "P"])
#@95 Hide all blocks ARG levels below this block.
The hook `hs-hide-hook' is run; see `run-hooks'.
(defalias 'hs-hide-level #[(arg) "\205�\304\211\212\305\306!\210\307ed#\210\305\310!\210)\311\312!*\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks arg t message "Hiding blocks ..." hs-hide-level-recursive "Hiding blocks ... done" run-hooks hs-hide-hook] 4 (#$ . 21538) "p"])
#@76 Toggle hiding/showing of a block.
See `hs-hide-block' and `hs-show-block'.
(defalias 'hs-toggle-hiding #[nil "\205�\303\211\304 \203�\305 \202�\306 *\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks t hs-already-hidden-p hs-show-block hs-hide-block] 2 (#$ . 21935) nil])
#@176 Toggle hiding/showing of a block.
This command should be bound to a mouse key.
Argument E is a mouse event used by `mouse-set-point'.
See `hs-hide-block' and `hs-show-block'.
(defalias 'hs-mouse-toggle-hiding #[(e) "\205�\304\211\305!\210\306 *\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks e t mouse-set-point hs-toggle-hiding] 2 (#$ . 22234) "@e"])
#@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 #[nil "\2054�\306\211\212eb\210\307\310w\210\311 )\211\2053�@\211A@)
\312

\"\313V\2052�\314

\"*+\207" [hs-minor-mode case-fold-search inhibit-point-motion-hooks c-reg x end t " 	\n\f" nil hs-inside-comment-p count-lines 1 hs-hide-comment-region beg] 4 (#$ . 22615) 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 (#$ . 23054))
(make-variable-buffer-local 'hs-minor-mode)
#@682 Minor mode to selectively hide/show code and comment blocks. 
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' and `hs-mouse-toggle-hiding'.

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}
(defalias 'hs-minor-mode #[(&optional arg) "\306 	\307=\203�\n?\202(�	\203�\310	!\311V\202(�\n\204\"�\312\202(�\313\314\302\"\210\315\315\n\203J�\316 \210\317\320\321\315\312$\210\322\f!\210\323\305!\210\312\324\325!\210\202T�\326\327!\210\312\330 \210)\331\332\n\203^�\333\202_�\334\"\210\335 \203�\306 \203r�\306 \232\203�\313\336\n\203|�\337\202}�\340\"\210)\341 \210\n\207" [#1=#:last-message arg hs-minor-mode hs-headline hs-minor-mode-menu line-move-ignore-invisible current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil hs-grok-mode-type add-hook change-major-mode-hook turn-off-hideshow 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 "Hs minor mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 23239) (list (or current-prefix-arg 'toggle))])
(add-minor-mode 'hs-minor-mode " hs" hs-minor-mode-map)
#@43 Unconditionally turn off `hs-minor-mode'.
(defalias 'turn-off-hideshow #[nil "\300\301!\207" [hs-minor-mode -1] 2 (#$ . 24977)])
(provide 'hideshow)

${this.title}

Code Editor : hideshow.elc