;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 30 19:49:48 1995
;;; from file /gd/gnu/emacs/19.0/lisp/hideshow.el
;;; emacs version 19.28.92.13.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.28.90")))
    (error "`hideshow.el' was compiled for Emacs 19.29 or later"))


#@600 *Symbol representing how "unbalanced parentheses" should be handled.
This error is usually signalled by hs-show-block.  One of four values:
`top-level', `next-line', `signal' or `ignore'.  Default is `top-level'.

- `top-level' -- Show top-level block containing the currently troublesome
block.
- `next-line' -- Use the fact that, for an already hidden block, its end
will be on the next line.  Attempt to show this block.
- `signal' -- Pass the error through, stopping execution.
- `ignore' -- Ignore the error, continuing execution.

Values other than these four will be interpreted as `signal'.
(defvar hs-unbalance-handler-method (quote top-level) (#$ . -480))
#@717 *Alist of the form (MODE START-RE END-RE FORWARD-SEXP-FUNC).
If present, hideshow will use these values for the start and end regexps,
respectively.  Since Algol-ish languages do not have single-character
block delimiters, the function `forward-sexp' which is used by hideshow
doesn't work.  In this case, if a similar function is provided, you can
register it and have hideshow use it instead of `forward-sexp'.  To add
more values, use

	(pushnew '(new-mode st-re end-re function-name)
		hs-special-modes-alist :test 'equal)

For example:

	(pushnew '(simula-mode "begin" "end" simula-next-statement)
		hs-special-modes-alist :test 'equal)

Note that the regexps should not contain leading or trailing whitespace.
(defvar hs-special-modes-alist (quote ((c-mode "{" "}") (c++-mode "{" "}"))) (#$ . -1153))
#@60 *Hooks called at the end of hs-hide-all and hs-hide-block.
(defvar hs-hide-hooks nil (#$ . -1966))
#@76 *Hooks called at the end of hs-show-all, hs-show-block and hs-show-region.
(defvar hs-show-hooks nil (#$ . -2071))
#@66 *Prefix key to use for hideshow commands in hideshow minor mode.
(defvar hs-minor-mode-prefix "" (#$ . -2192))
#@125 Non-nil if using hideshow mode as a minor mode of some other mode.
Use the command `hs-minor-mode' to toggle this variable.
(defvar hs-minor-mode nil (#$ . 2311))
#@35 Mode map for hideshow minor mode.
(defvar hs-minor-mode-map nil (#$ . 2480))
#@49 Menu bar for hideshow minor mode (Xemacs only).
(defvar hs-menu-bar nil (#$ . 2563))
#@137 Regexp for beginning of comments.  Buffer-local.
Differs from mode-specific comment regexps in that surrounding
whitespace is stripped.
(defvar hs-c-start-regexp nil (#$ . 2655))
#@69 Regexp for end of comments.  Buffer-local.
See `hs-c-start-regexp'.
(defvar hs-c-end-regexp nil (#$ . 2840))
#@47 Regexp for beginning of block.  Buffer-local.
(defvar hs-block-start-regexp nil (#$ . 2955))
#@41 Regexp for end of block.  Buffer-local.
(defvar hs-block-end-regexp nil (#$ . 3054))
#@312 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 (quote forward-sexp) (#$ . 3146))
#@44 Used to support both FSF Emacs and Xemacs.
(defvar hs-emacs-type (quote fsf) (#$ . 3526))
#@165 Hides or shows lines from FROM to TO, according to FLAG.
If FLAG is \n (newline character) then text is shown, while if FLAG
is \^M (control-M) the text is hidden.
(defalias 'hs-flag-region #[(from to flag) "ہ ءؤژإةUƒ ت‚ ةث%+‡" [buffer-modified-p nil buffer-read-only modp ((set-buffer-modified-p modp)) subst-char-in-region from to flag 10 13 t] 6 (#$ . 3623)])
#@74 Hide block iff on block beginning, optional END means reposition at end.
(defalias 'hs-hide-block-at-point #[(&optional end) "ہ	!…5 `ؤ!ˆ`ئyˆاˆ\n`Wƒ) ب\n\"ؤVƒ) ة\n`ت#ˆƒ2 ‚3 \nb*‡" [looking-at hs-block-start-regexp p hs-forward-sexp-func 1 q -1 nil count-lines hs-flag-region 13 end] 4 (#$ . 4004)])
#@75 Show block iff on block beginning.  Optional END means reposition at end.
(defalias 'hs-show-block-at-point #[(&optional end) "ہ	!…\" `أؤإڈا\nب#ˆ	ƒ `T‚  \nb*‡" [looking-at hs-block-start-regexp p error (byte-code "ء!ˆ`‡" [hs-forward-sexp-func 1] 2) ((error (byte-code "ء=ƒ `‡آ=ƒ% iأU„ ؤ ˆ`ئاPdةت$ˆ`‡ث=ƒ5 أyˆ`تˆ`‡ج@A\"‡" [hs-unbalance-handler-method ignore top-level 0 beginning-of-defun p re-search-forward "^" hs-block-start-regexp t 2 next-line signal error] 5))) q hs-flag-region 10 end] 4 (#$ . 4316)])
#@66 Warns if selective-display or selective-display-ellipses is nil.
(defalias 'hs-safety-is-job-n #[nil "ہ\n„ أ\f„ 	إP	GئU?…  اب	\"ˆةت!)‡" ["" str selective-display "selective-display nil " selective-display-ellipses "selective-display-ellipses nil" 0 message "warning: %s" sit-for 2] 3 (#$ . 4851)])
#@189 Returns non-nil if point is inside a comment, otherwise nil.
Actually, for multi-line-able comments, returns a list containing
the buffer position of the start and the end of the comment.
(defalias 'hs-inside-comment-p #[nil "ٹ`ہؤکƒ% ہئyˆا\nة#‰…! تث\nة#?)‚G ا\fdح#ˆ`خد!ˆاdح#ˆ`GZ\nW…G ئ”	D+‡" [nil q p comment-end "" found 0 re-search-forward hs-c-start-regexp t search-forward "\"" hs-c-end-regexp 1 forward-comment -1 comment-start] 5 (#$ . 5161)])
#@51 Setup variables for new buffers where applicable.
(defalias 'hs-grok-mode-type #[nil "ہء!…d ہآ!…d أ	!إئ\f\"ƒ \fا‰•SO\nبکƒ( ة‚+ أ\n!\nإث\n\"ƒ= \nا•جO\nح\"‰A@†L رس8†V شض8†` ×‰)‡" [boundp comment-start comment-end regexp-quote hs-c-start-regexp string-match " +$" 0 "" "\n" hs-c-end-regexp "^ +" nil assoc major-mode hs-special-modes-alist lookup "\\s(" hs-block-start-regexp 2 "\\s)" hs-block-end-regexp 3 forward-sexp hs-forward-sexp-func] 4 (#$ . 5630)])
#@71 Repositions point at block-start.  Return point, or nil if top-level.
(defalias 'hs-find-block-beginning #[nil "ہ`ء\nأ\fإ°„6 ةeت#ƒ6 ث”ƒ* ث”‰‚ ج•bˆخ!ˆ‚ †= bˆ+‡" [nil "\\(" hs-block-start-regexp "\\)\\|\\(" hs-block-end-regexp "\\)" both-regexps here done re-search-backward t 1 2 hs-forward-sexp-func -1] 8 (#$ . 6114)])
#@65 Executes optional BODY iff variable `hs-minor-mode' is non-nil.
(defalias 'hs-life-goes-on '(macro . #[(&rest body) "ہءآBE‡" [if hs-minor-mode progn body] 4 (#$ . 6463)]))
#@195 Hides all top-level blocks, displaying only first and last lines.
When done, point is repositioned at the beginning of the line, and
hs-hide-hooks is called.  See documentation for `run-hooks'.
(defalias 'hs-hide-all #[nil "…M ءآ!ˆٹأedؤ#ˆebˆإئP	تث !ˆجdح#ƒ> إ”bˆخح!ˆءد	T‰	\"ˆ‚ *ذ ˆ)إyˆءر!ˆزس!‡" [hs-minor-mode message "hiding all blocks ..." hs-flag-region 10 0 "^" hs-block-start-regexp top-level-re count forward-comment buffer-size re-search-forward t hs-hide-block-at-point "hiding ... %d" hs-safety-is-job-n "hiding all blocks ... done" run-hooks hs-hide-hooks] 4 (#$ . 6643) nil])
#@125 Shows all top-level blocks.
When done, point is unchanged, and hs-show-hooks is called.  See
documentation for `run-hooks'.
(defalias 'hs-show-all #[nil "… ءآ!ˆأedؤ#ˆءإ!ˆئا!‡" [hs-minor-mode message "showing all blocks ..." hs-flag-region 10 "showing all blocks ... done" run-hooks hs-show-hooks] 4 (#$ . 7247) nil])
#@273 Selects a block and hides it.  With prefix arg, reposition at end.
Block is defined as a sexp for lispish modes, mode-specific otherwise.
Comments are blocks, too.  Upon completion, point is at repositioned and
hs-hide-hooks is called.  See documentation for `run-hooks'.
(defalias 'hs-hide-block #[(&optional end) "…h ء ‰ƒP ؤکƒ إئ!‚g ا\n@\nA@\"بWƒ) إة!‚g \nA@bˆتyˆث\n@`ج#ˆƒC \nA@‚E \n@bˆخ ˆدذ!‚g ر!„\\ س …g ش!ˆخ ˆدذ!)‡" [hs-minor-mode hs-inside-comment-p c-reg comment-end "" message "can't hide a single-line comment" count-lines 2 "not enougn comment lines to hide" -1 hs-flag-region 13 end hs-safety-is-job-n run-hooks hs-hide-hooks looking-at hs-block-start-regexp hs-find-block-beginning hs-hide-block-at-point] 5 (#$ . 7573) "P"])
#@188 Selects a block and shows it.  With prefix arg, reposition at end.
Upon completion, point is repositioned hs-show-hooks are called.  See
documetation for `hs-hide-block' and `run-hooks'.
(defalias 'hs-show-block #[(&optional end) "…I ء ‰ƒ1 ؤکƒ إئ!‚H ا\n@\nA@ب#ˆ	ƒ+ \nA@‚- \n@b‚H ت!„= ج …H ح	!ˆخ ˆدذ!)‡" [hs-minor-mode hs-inside-comment-p c-reg comment-end "" message "already looking at the entire comment" hs-flag-region 10 end looking-at hs-block-start-regexp hs-find-block-beginning hs-show-block-at-point hs-safety-is-job-n run-hooks hs-show-hooks] 5 (#$ . 8328) "P"])
#@275 Shows all lines from BEG to END, without doing any block analysis.
Note: hs-show-region is intended for use when when hs-show-block signals
`unbalanced parentheses' and so is an emergency measure only.  You may
become very confused if you use this command indiscriminately.
(defalias 'hs-show-region #[(beg end) "… ء\nؤ#ˆإ ˆئا!‡" [hs-minor-mode hs-flag-region beg end 10 hs-safety-is-job-n run-hooks hs-show-hooks] 4 (#$ . 8916) "r"])
#@518 Toggle hideshow minor mode.
With ARG, turn hideshow minor mode on if ARG is positive, off otherwise.
When hideshow minor mode is on, the menu bar is augmented with hideshow
commands and the hideshow commands are enabled.  The variables

	selective-display
	selective-display-ellipses

are set to t.  Lastly, the hooks set in hs-minor-mode-hook are called.
See documentation for `run-hooks'.

Turning hideshow minor mode off reverts the menu bar and the
variables to default values and disables the hideshow commands.
(defalias 'hs-minor-mode #[(&optional arg) "„	 	?‚ آ!أV‰ƒ7 \fإ=ƒ* ئا!!ˆةت@A#ˆججد ˆذر!‡\fإ=ƒF ئز\"!ˆسح!ˆسخ!‡" [arg hs-minor-mode prefix-numeric-value 0 hs-emacs-type lucid set-buffer-menubar copy-sequence current-menubar add-menu nil hs-menu-bar t selective-display selective-display-ellipses hs-grok-mode-type run-hooks hs-minor-mode-hook delete kill-local-variable] 5 (#$ . 9361) "P"])
(byte-code "ہء\n\"ƒ أ‚\f ؤ„ ا ‚S أ=ƒ% ب	‚S تثجاج!B#ˆتحخ#ˆتدذ#ˆترز#ˆتسش#ˆتصض#ˆ×‍„c ×BB×‍„r عغC\"ـ×!ˆـف!ˆـق!ˆـك!ˆـà!ˆـل!ˆâ×من#ˆâفمن#ˆâقمن#ˆâكمن#ˆâàمن#ˆâلمن#ˆهو!‡" [string-match "xemacs\\|lucid" emacs-version lucid fsf hs-emacs-type hs-minor-mode-map make-sparse-keymap ("hideshow" ["Hide Block" hs-hide-block t] ["Show Block" hs-show-block t] ["Hide All" hs-hide-all t] ["Show All" hs-show-all t] ["Show Region" hs-show-region t]) hs-menu-bar define-key [menu-bar hideshow] "hideshow" [menu-bar hideshow hs-show-region] ("Show Region" . hs-show-region) [menu-bar hideshow hs-show-all] ("Show All" . hs-show-all) [menu-bar hideshow hs-hide-all] ("Hide All" . hs-hide-all) [menu-bar hideshow hs-show-block] ("Show Block" . hs-show-block) [menu-bar hideshow hs-hide-block] ("Hide Block" . hs-hide-block) hs-minor-mode minor-mode-map-alist minor-mode-alist append (hs-minor-mode " hs") make-variable-buffer-local hs-c-start-regexp hs-c-end-regexp hs-block-start-regexp hs-block-end-regexp hs-forward-sexp-func put permanent-local t provide hideshow] 6)