WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/progmodes
Viewing File: /usr/share/emacs/24.3/lisp/progmodes/hideif.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:53:37 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/hideif.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!\210\302\303\304\305\306\307%\210\310\311\304\312\313\314\306\303&\210\310\315\304\316\313\314\306\303&\210\310\317\304\320\313\314\306\303&\210\310\321\304\322\313\314\306\303\323\324&	\210\325\321\326\327\306\303\323\324&\207" [require cc-mode custom-declare-group hide-ifdef nil "Hide selected code within `ifdef'." :group c custom-declare-variable hide-ifdef-initially "Non-nil means call `hide-ifdefs' when Hide-Ifdef mode is first activated." :type boolean hide-ifdef-read-only "Set to non-nil if you want buffer to be read-only while hiding text." hide-ifdef-lines "Non-nil means hide the #ifX, #else, and #endif lines." hide-ifdef-shadow "Non-nil means shadow text instead of hiding it." :version "23.1" custom-declare-face ((t (:inherit shadow))) "Face for shadowing ifdef blocks."] 10)
#@70 Keymap used by `hide-ifdef-mode' under `hide-ifdef-mode-prefix-key'.
(defvar hide-ifdef-mode-submap (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\302\321\322#\210\302\323\324#\210\302\325\326#\210\327\330\331#\210)\207" [map make-sparse-keymap define-key "d" hide-ifdef-define "u" hide-ifdef-undef "D" hide-ifdef-set-define-alist "U" hide-ifdef-use-define-alist "h" hide-ifdefs "s" show-ifdefs "" hide-ifdef-block "" show-ifdef-block "" hide-ifdef-toggle-read-only "" hide-ifdef-toggle-shadowing substitute-key-definition toggle-read-only hide-ifdef-toggle-outside-read-only] 4) (#$ . 1380))
#@46 Prefix key for all Hide-Ifdef mode commands.
(defconst hide-ifdef-mode-prefix-key "@" (#$ . 2086))
#@37 Keymap used with `hide-ifdef-mode'.
(defvar hide-ifdef-mode-map (byte-code "\303 \304	\n#\210)\207" [map hide-ifdef-mode-prefix-key hide-ifdef-mode-submap make-sparse-keymap define-key] 4) (#$ . 2192))
#@29 Menu for `hide-ifdef-mode'.
(defvar hide-ifdef-mode-menu nil (#$ . 2403))
(easy-menu-do-define 'hide-ifdef-mode-menu hide-ifdef-mode-map "Menu for `hide-ifdef-mode'." '("Hide-Ifdef" ["Hide some ifdefs" hide-ifdefs :help "Hide the contents of some #ifdefs"] ["Show all ifdefs" show-ifdefs :help "Cancel the effects of `hide-ifdef': show the contents of all #ifdefs"] ["Hide ifdef block" hide-ifdef-block :help "Hide the ifdef block (true or false part) enclosing or before the cursor"] ["Show ifdef block" show-ifdef-block :help "Show the ifdef block (true or false part) enclosing or before the cursor"] ["Define a variable..." hide-ifdef-define :help "Define a VAR so that #ifdef VAR would be included"] ["Undefine a variable..." hide-ifdef-undef :help "Undefine a VAR so that #ifdef VAR would not be included"] ["Define an alist..." hide-ifdef-set-define-alist :help "Set the association for NAME to `hide-ifdef-env'"] ["Use an alist..." hide-ifdef-use-define-alist :help "Set `hide-ifdef-env' to the define list specified by NAME"] ["Toggle read only" hide-ifdef-toggle-read-only :style toggle :selected hide-ifdef-read-only :help "Buffer should be read-only while hiding text"] ["Toggle shadowing" hide-ifdef-toggle-shadowing :style toggle :selected hide-ifdef-shadow :help "Text should be shadowed instead of hidden"]))
#@34 Non-nil when text may be hidden.
(defvar hide-ifdef-hiding nil (#$ . 3734))
(byte-code "\301\236\204\n\302B\301\207" [minor-mode-alist hide-ifdef-hiding (hide-ifdef-hiding " Hiding")] 2)
#@51 Syntax table used for tokenizing #if expressions.
(defvar hide-ifdef-syntax-table (byte-code "\302!\303\304\305	#\210\303\306\307	#\210\303\310\307	#\210	)\207" [c-mode-syntax-table st copy-syntax-table modify-syntax-entry 95 "w" 38 "." 124] 4) (#$ . 3931))
#@47 An alist of defined symbols and their values.
(defvar hide-ifdef-env nil (#$ . 4197))
#@73 Internal variable.  Saves the value of `buffer-read-only' while hiding.
(defvar hif-outside-read-only nil (#$ . 4289))
#@99 Non-nil if Hide-Ifdef mode is enabled.
Use the command `hide-ifdef-mode' to change this variable.
(defvar hide-ifdef-mode nil (#$ . 4414))
(make-variable-buffer-local 'hide-ifdef-mode)
#@1318 Toggle features to hide/show #ifdef blocks (Hide-Ifdef mode).
With a prefix argument ARG, enable Hide-Ifdef mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.

Hide-Ifdef mode is a buffer-local minor mode for use with C and
C-like major modes.  When enabled, code within #ifdef constructs
that the C preprocessor would eliminate may be hidden from view.
Several variables affect how the hiding is done:

`hide-ifdef-env'
	An association list of defined and undefined symbols for the
	current buffer.  Initially, the global value of `hide-ifdef-env'
	is used.

`hide-ifdef-define-alist'
	An association list of defined symbol lists.
        Use `hide-ifdef-set-define-alist' to save the current `hide-ifdef-env'
        and `hide-ifdef-use-define-alist' to set the current `hide-ifdef-env'
        from one of the lists in `hide-ifdef-define-alist'.

`hide-ifdef-lines'
	Set to non-nil to not show #if, #ifdef, #ifndef, #else, and
	#endif lines when hiding.

`hide-ifdef-initially'
	Indicates whether `hide-ifdefs' should be called when Hide-Ifdef mode
	is activated.

`hide-ifdef-read-only'
	Set to non-nil if you want to make buffers read only while hiding.
	After `show-ifdefs', read-only status is restored to previous value.

\{hide-ifdef-mode-map}
(defalias 'hide-ifdef-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\211\203R\312\303!\210\313\303!\312\304!\210\313\304!\312\314!\210
\f\312\315!\210\316
\317\320\321\322\316$\210\323\324!\210%\203L\325 \210\202a\326 \210\202a\327\315!\210\330\331!\210\f\203a\326 \210\332\333\n\203k\334\202l\335\"\210\336\337!\203\215\306 \203\200\306 \232\203\215\340\341\n\203\212\342\202\213\343\"\210)\344 \210\n\207" [#1=#:last-message arg hide-ifdef-mode hide-ifdef-env hide-ifdef-hiding buffer-read-only current-message toggle prefix-numeric-value 0 make-local-variable default-value hif-outside-read-only line-move-ignore-invisible t add-hook change-major-mode-hook #[nil "\300\301!\207" [hide-ifdef-mode -1] 2] nil add-to-invisibility-spec (hide-ifdef . t) hide-ifdefs show-ifdefs kill-local-variable remove-from-invisibility-spec (hide-ifdef . t) run-hooks hide-ifdef-mode-hook hide-ifdef-mode-on-hook hide-ifdef-mode-off-hook called-interactively-p any message "Hide-Ifdef mode %sabled" "en" "dis" force-mode-line-update hide-ifdef-initially] 6 (#$ . 4607) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\305\211%\207" [hide-ifdef-mode-map add-minor-mode hide-ifdef-mode " Ifdef" boundp nil] 6)
#@45 Show all of the text in the current buffer.
(defalias 'hif-show-all #[nil "\300ed\"\207" [hif-show-ifdef-region] 3 (#$ . 7192) nil])
(defalias 'hif-after-revert-function #[nil "\205	\205\302\303!\207" [hide-ifdef-mode hide-ifdef-hiding hide-ifdefs t] 2])
(add-hook 'after-revert-hook 'hif-after-revert-function)
(defalias 'hif-end-of-line #[nil "\300\210\301\302\300x\303\"\303U\205\304\210\202\207" [nil logand "\\\\" 1 2] 3])
(defalias 'hide-ifdef-region-internal #[(start end) "\304	\305\306$\210\307	\"\310\n\305\306#\210\203\310\n\311\303#\202#\310\n\312\305#)\207" [start end o hide-ifdef-shadow remove-overlays hide-ifdef t make-overlay overlay-put face invisible] 5])
#@121 START is the start of a #if or #else form.  END is the ending part.
Everything including these lines is made invisible.
(defalias 'hide-ifdef-region #[(start end) "\212b\210\302 \210`	b\210\302 \210`\303	\")\207" [start end hif-end-of-line hide-ifdef-region-internal] 3 (#$ . 7893)])
#@51 Everything between START and END is made visible.
(defalias 'hif-show-ifdef-region #[(start end) "\302	\303\304$\207" [start end remove-overlays hide-ifdef t] 5 (#$ . 8187)])
#@140 The function to use to evaluate a form.
The evaluator is given a canonical form and returns t if text under
that form should be displayed.
(defvar hide-ifdef-evaluator 'eval (#$ . 8370))
#@42 ...is by default considered to be false.
(defvar hif-undefined-symbol nil (#$ . 8563))
#@45 Prepend (var value) pair to hide-ifdef-env.
(defalias 'hif-set-var #[(var value) "	B\nB\211\207" [var value hide-ifdef-env] 2 (#$ . 8656)])
(defalias 'hif-lookup #[(var) "\305\300!\203\203\306	!\206 \307	\n\"\211\203A\202\f)\207" [semantic-c-takeover-hideif var hide-ifdef-env val hif-undefined-symbol boundp semantic-c-hideif-lookup assoc] 4])
(defalias 'hif-defined #[(var) "\303\300!\203\203\304	!\207\305	\n\"\203\306\207\307\207" [semantic-c-takeover-hideif var hide-ifdef-env boundp semantic-c-hideif-defined assoc 1 0] 3])
(defconst hif-cpp-prefix "\\(^\\|
\\)[ 	]*#[ 	]*")
(defconst hif-ifndef-regexp (concat hif-cpp-prefix "ifndef"))
(defconst hif-ifx-regexp (concat hif-cpp-prefix "if\\(n?def\\)?[ 	]+"))
(defconst hif-else-regexp (concat hif-cpp-prefix "else"))
(defconst hif-endif-regexp (concat hif-cpp-prefix "endif"))
(defconst hif-ifx-else-endif-regexp (concat hif-ifx-regexp #1="\\|" hif-else-regexp #1# hif-endif-regexp))
(defconst hif-token-alist '(("||" . or) ("&&" . and) ("|" . hif-logior) ("&" . hif-logand) ("==" . equal) ("!=" . hif-notequal) ("!" . not) ("(" . lparen) (")" . rparen) (">" . hif-greater) ("<" . hif-less) (">=" . hif-greater-equal) ("<=" . hif-less-equal) ("+" . hif-plus) ("-" . hif-minus) ("?" . hif-conditional) (":" . hif-colon)))
(defconst hif-token-regexp (byte-code "\301\302\303\"!\304P\207" [hif-token-alist regexp-opt mapcar car "\\|\\w+"] 4))
#@62 Separate string between START and END into a list of tokens.
(defalias 'hif-tokenize #[(start end) "\306\307 p\310\216\311!\210\212\fb\210\312d!\210`
W\203p\313\314!\203'\315u\210\202\313!\203g`\316\225{\316\225b\210\317\"A\206`\320\230\203M\321\202`\322\323\"\203\\\324!\206`\325!B)\202\326\327\330 \"\210\202,\237)\207" [token-list #1=#:buffer #2=#:table hide-ifdef-syntax-table start end nil syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table forward-comment looking-at "\\\\\n" 2 0 assoc "defined" hif-defined string-match "\\`[0-9]*\\'" string-to-number intern error "Bad #if expression: %s" buffer-string hif-token-regexp token hif-token-alist] 3 (#$ . 10080)])
#@71 Pop the next token from token-list into the let variable "hif-token".
(defalias 'hif-nexttoken #[nil "\211A@\211\207" [hif-token-list hif-token] 2 (#$ . 10842)])
(put 'hif-nexttoken 'byte-optimizer 'byte-compile-inline-expand)
#@63 Parse the TOKEN-LIST.  Return translated list in prefix form.
(defalias 'hif-parse-if-exp #[(token-list) "\211\211A@\303 \n\203\304\305\n\"\210)\207" [token-list hif-token-list hif-token hif-expr error "Error: unexpected token: %s"] 5 (#$ . 11078)])
#@89 Parse an expression as found in #if.
       expr : or-expr | or-expr '?' expr ':' expr.
(defalias 'hif-expr #[nil "\304 \305\n\306=\2032\211A@\307 \n\310=\203*\211A@\306	\307 F\202\311\312\n\"\210\202	*\207" [middle result hif-token hif-token-list hif-or-expr nil hif-conditional hif-expr hif-colon error "Error: unexpected token: %s"] 4 (#$ . 11340)])
#@53 Parse n or-expr : and-expr | or-expr '||' and-expr.
(defalias 'hif-or-expr #[nil "\303 	\304=\203\n\211A@\305\303 E\202)\207" [result hif-token hif-token-list hif-and-expr or hif-or] 3 (#$ . 11716)])
#@54 Parse an and-expr : eq-expr | and-expr '&&' eq-expr.
(defalias 'hif-and-expr #[nil "\303 	\304=\203\n\211A@\305\303 E\202)\207" [result hif-token hif-token-list hif-eq-expr and hif-and] 3 (#$ . 11932)])
#@69 Parse an eq-expr : math | eq-expr `=='|`!='|`<'|`>'|`>='|`<=' math.
(defalias 'hif-eq-expr #[nil "\304 \305\n\306>\203\n\211A@	\304 E\202	*\207" [eq-token result hif-token hif-token-list hif-math nil (equal hif-notequal hif-greater hif-less hif-greater-equal hif-less-equal)] 3 (#$ . 12151)])
#@95 Parse an expression with + or - and simpler things.
       math : factor | math '+|-' factor.
(defalias 'hif-math #[nil "\304 \305\n\306>\203\n\211A@	\304 E\202	*\207" [math-op result hif-token hif-token-list hif-factor nil (hif-plus hif-minus hif-logior hif-logand)] 3 (#$ . 12462)])
#@69 Parse a factor: '!' factor | '(' expr ')' | 'defined(' id ')' | id.
(defalias 'hif-factor #[nil "\305=\203	\211A@\306\307 D\207\310=\2036	\211A@\311 \312=\204-\313\314\"\2024	\211A@\n)\207\315=\203~	\211A@\211\310=\205O	\211A@\316\317>\203]\313\320\"\210\f\203q	\211A@\211\312=\204q\313\321!\210	\211A@\315\322*DD\207\247\203\213	\211A@\207\323>\203\235	\211A@\324\307 E\207\211\325>\203\251\313\326!\210	\211A@\327\322)DD\207" [hif-token hif-token-list result ident paren not hif-not hif-factor lparen hif-expr rparen error "Bad token in parenthesized expression: %s" hif-defined t (or and not hif-defined lparen rparen) "Error: unexpected token: %s" "Error: expected \")\" after identifier" quote (hif-minus hif-plus) 0 (or and) "Error: missing identifier" hif-lookup] 4 (#$ . 12765)])
#@54 Treat VAL as a number: if it's t or nil, use 1 or 0.
(defalias 'hif-mathify #[(val) "\301=\203\302\207\204\303\207\207" [val t 1 0] 2 (#$ . 13611)])
(defalias 'hif-conditional #[(a b c) "\303\304!!\204\f\304	!\207\304\n!\207" [a b c zerop hif-mathify] 3])
(defalias 'hif-and #[(a b) "\302\303!!?\205\302\303	!!?\207" [a b zerop hif-mathify] 3])
(defalias 'hif-or #[(a b) "\302\303!!?\206\302\303	!!?\207" [a b zerop hif-mathify] 3])
(defalias 'hif-not #[(a) "\301\302!!\207" [a zerop hif-mathify] 3])
(defalias 'hif-mathify-binop '(macro . #[(fun) "\301\302\303\304\"\305BF\207" [fun lambda (a b) format "Like `%s' but treat t and nil as 1 and 0." ((hif-mathify a) (hif-mathify b))] 5]))
#@42 Like `+' but treat t and nil as 1 and 0.
(defalias 'hif-plus #[(a b) "\302!\302	!\\\207" [a b hif-mathify] 3 (#$ . 14323)])
#@42 Like `-' but treat t and nil as 1 and 0.
(defalias 'hif-minus #[(a b) "\302!\302	!Z\207" [a b hif-mathify] 3 (#$ . 14454)])
#@43 Like `/=' but treat t and nil as 1 and 0.
(defalias 'hif-notequal #[(a b) "\302!\302	!U?\207" [a b hif-mathify] 3 (#$ . 14585)])
#@42 Like `>' but treat t and nil as 1 and 0.
(defalias 'hif-greater #[(a b) "\302!\302	!V\207" [a b hif-mathify] 3 (#$ . 14721)])
#@42 Like `<' but treat t and nil as 1 and 0.
(defalias 'hif-less #[(a b) "\302!\302	!W\207" [a b hif-mathify] 3 (#$ . 14854)])
#@43 Like `>=' but treat t and nil as 1 and 0.
(defalias 'hif-greater-equal #[(a b) "\302!\302	!Y\207" [a b hif-mathify] 3 (#$ . 14984)])
#@43 Like `<=' but treat t and nil as 1 and 0.
(defalias 'hif-less-equal #[(a b) "\302!\302	!X\207" [a b hif-mathify] 3 (#$ . 15124)])
#@47 Like `logior' but treat t and nil as 1 and 0.
(defalias 'hif-logior #[(a b) "\302\303!\303	!\"\207" [a b logior hif-mathify] 4 (#$ . 15261)])
#@47 Like `logand' but treat t and nil as 1 and 0.
(defalias 'hif-logand #[(a b) "\302\303!\303	!\"\207" [a b logand hif-mathify] 4 (#$ . 15410)])
#@72 When at beginning of #ifX, return a Lisp expression for its condition.
(defalias 'hif-canonicalize #[nil "\212\305!\306\n!\210\307`\310 \210`\"\311!	\203\312\fD\202 \f,\207" [hif-ifndef-regexp negate hif-ifx-regexp tokens expr looking-at re-search-forward hif-tokenize hif-end-of-line hif-parse-if-exp hif-not] 3 (#$ . 15559)])
#@53 Move to next #if..., or #ifndef, at point or after.
(defalias 'hif-find-any-ifX #[nil "\301d\302#\303 \210\207" [hif-ifx-regexp re-search-forward t beginning-of-line] 4 (#$ . 15901)])
#@64 Move to next #if..., #else, or #endif, after the current line.
(defalias 'hif-find-next-relevant #[nil "\301\210\302d\303#\205
\304 \207" [hif-ifx-else-endif-regexp nil re-search-forward t beginning-of-line] 4 (#$ . 16092)])
#@69 Move to previous #if..., #else, or #endif, before the current line.
(defalias 'hif-find-previous-relevant #[nil "\301 \210\302e\303#\205
\301 \207" [hif-ifx-else-endif-regexp beginning-of-line re-search-backward t] 4 (#$ . 16326)])
(defalias 'hif-looking-at-ifX #[nil "\301!\207" [hif-ifx-regexp looking-at] 2])
(defalias 'hif-looking-at-endif #[nil "\301!\207" [hif-endif-regexp looking-at] 2])
(defalias 'hif-looking-at-else #[nil "\301!\207" [hif-else-regexp looking-at] 2])
#@68 If positioned at #ifX or #else form, skip to corresponding #endif.
(defalias 'hif-ifdef-to-endif #[nil "\300 \210\301 \203\302 \210\302 \207\303 \203\302 \207\304 \203\305\207\306\307!\207" [hif-find-next-relevant hif-looking-at-ifX hif-ifdef-to-endif hif-looking-at-else hif-looking-at-endif done error "Mismatched #ifdef #endif pair"] 2 (#$ . 16815)])
#@68 If positioned at #endif form, skip backward to corresponding #ifX.
(defalias 'hif-endif-to-ifdef #[nil "`\301 \210`U\203\302\303!\210)\304 \203\305 \210\305 \207\306 \203#\305 \207\307 \203*\310\207\311\207" [start hif-find-previous-relevant error "Mismatched #ifdef #endif pair" hif-looking-at-endif hif-endif-to-ifdef hif-looking-at-else hif-looking-at-ifX done t] 2 (#$ . 17181)])
#@98 Move point to beginning of line of the next ifdef-endif.
With argument, do this that many times.
(defalias 'forward-ifdef #[(&optional arg) "\204\302\303W\203\304[!\207\303W\205:[`\305 \204$\306 \210\305 \203/\307 \210\2026	b\210\310\311!\210)\202\207" [arg start 1 0 backward-ifdef hif-looking-at-ifX hif-find-next-relevant hif-ifdef-to-endif error "No following #ifdef"] 2 (#$ . 17579) "p"])
#@94 Move point to beginning of the previous ifdef-endif.
With argument, do this that many times.
(defalias 'backward-ifdef #[(&optional arg) "\204\302\303W\203\304[!\207\303W\205=S\305 \210`\306 \204'\307 \210\306 \2032\310 \210\2029	b\210\311\312!\210)\202\207" [arg start 1 0 forward-ifdef beginning-of-line hif-looking-at-endif hif-find-previous-relevant hif-endif-to-ifdef error "No previous #ifdef"] 2 (#$ . 17997) "p"])
#@55 Move point to beginning of nested ifdef or else-part.
(defalias 'down-ifdef #[nil "`\301 \210\302 \206\f\303 ?\205b\210\304\305!)\207" [start hif-find-next-relevant hif-looking-at-ifX hif-looking-at-else error "No following #ifdef"] 2 (#$ . 18443) nil])
#@58 Move point to beginning of enclosing ifdef or else-part.
(defalias 'up-ifdef #[nil "\301 \210`\302 \204
\303 \210\302 \203\304 \210`U\205\305\306!)\207" [start beginning-of-line hif-looking-at-endif hif-find-previous-relevant hif-endif-to-ifdef error "No previous #ifdef"] 2 (#$ . 18708) nil])
#@99 Move to the beginning of the next #ifX, #else, or #endif.
With argument, do this that many times.
(defalias 'next-ifdef #[(&optional arg) "\204\301\302W\203\303[!\207\302W\205+S\304 \210l\203\305 \210\306\307!\210\202\207" [arg 1 0 previous-ifdef hif-find-next-relevant beginning-of-line error "No following #ifdefs, #elses, or #endifs"] 2 (#$ . 19015) "p"])
#@103 Move to the beginning of the previous #ifX, #else, or #endif.
With argument, do this that many times.
(defalias 'previous-ifdef #[(&optional arg) "\204\302\303W\203\304[!\207\303W\205-S`\305 \210	`U\203)\306\307!\210)\202\207" [arg start 1 0 next-ifdef hif-find-previous-relevant error "No previous #ifdefs, #elses, or #endifs"] 2 (#$ . 19397) "p"])
(defalias 'hif-make-range #[(start end &optional else) "	\nE\207" [start else end] 3])
(put 'hif-make-range 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'hif-range-start #[(range) "\301\234\207" [range 0] 2])
(put 'hif-range-start 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'hif-range-else #[(range) "\301\234\207" [range 1] 2])
(put 'hif-range-else 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'hif-range-end #[(range) "\301\234\207" [range 2] 2])
(put 'hif-range-end 'byte-optimizer 'byte-compile-inline-expand)
#@86 Return a Range structure describing the current #if region.
Point is left unchanged.
(defalias 'hif-find-range #[nil "\212\303 \210`\304\211\305 \210\306 \203\307 \210\202\n\310 \203\"`\202$`	\203A\305 \210\306 \2036\307 \210\202(\310 \203?\311\312!\210`\n	\211	E.\207" [end else start beginning-of-line nil hif-find-next-relevant hif-looking-at-ifX hif-ifdef-to-endif hif-looking-at-else error "Found two elses in a row?  Broken!"] 4 (#$ . 20319)])
#@77 Hide the line containing point.  Does nothing if `hide-ifdef-lines' is nil.
(defalias 'hif-hide-line #[(point) "\205\212	b\210\302\303 \304 \210`\")\207" [hide-ifdef-lines point hide-ifdef-region-internal line-beginning-position hif-end-of-line] 3 (#$ . 20796)])
#@75 Call `hide-ifdef-guts' after narrowing to end of START line and END line.
(defalias 'hif-recurse-on #[(start end) "\212\214b\210\302\210`	}\210\303 *\207" [start end nil hide-ifdef-guts] 2 (#$ . 21068)])
#@122 Called at #ifX expression, this hides those parts that should be hidden.
It uses the judgment of `hide-ifdef-evaluator'.
(defalias 'hif-possibly-hide #[nil "\303 \304 \305\211\306\234)!\210\307\n	!!\204]\211\310\234)\203K\305\211\310\234)!\210\311\211\310\234)\211\306\234)S\"\210\312\211\313\234)\211\310\234)\"\210\202\234\312\211\313\234)\211\306\234)\"\210\202\234\211\310\234)\203\221\305\211\310\234)!\210\311\211\313\234)\211\310\234)S\"\210\312\211\310\234)\211\306\234)\"\210\202\234\311`\211\306\234)S\"\210\305\211\313\234)!\210\211\306\234)b\210\314*\207" [range test hide-ifdef-evaluator hif-canonicalize hif-find-range hif-hide-line 2 hif-not 1 hide-ifdef-region hif-recurse-on 0 nil] 5 (#$ . 21281)])
#@112 Does most of the work of `hide-ifdefs'.
It does not do the work that's pointless to redo on a recursive entry.
(defalias 'hide-ifdef-guts #[nil "\212eb\210\300 \205\301 \210\202)\207" [hif-find-any-ifX hif-possibly-hide] 1 (#$ . 22049)])
#@32 Toggle `hide-ifdef-read-only'.
(defalias 'hide-ifdef-toggle-read-only #[nil "?\304\305\203
\306\202\307\"\210	\203\206\n\310 \207" [hide-ifdef-read-only hide-ifdef-hiding hif-outside-read-only buffer-read-only message "Hide-Read-Only %s" "ON" "OFF" force-mode-line-update] 3 (#$ . 22297) nil])
#@60 Replacement for `toggle-read-only' within Hide-Ifdef mode.
(defalias 'hide-ifdef-toggle-outside-read-only #[nil "?\304\305\203
\306\202\307\"\210	\203\n\206\310 \207" [hif-outside-read-only hide-ifdef-hiding hide-ifdef-read-only buffer-read-only message "Read only %s" "ON" "OFF" force-mode-line-update] 3 (#$ . 22609) nil])
#@19 Toggle shadowing.
(defalias 'hide-ifdef-toggle-shadowing #[nil "\303\300!\210?\304\305\203\306\202\307\"\210\214~\210\310ed\"\311\211\205S\n@\312	\313\"\203K\203?\314	\315\311#\210\314	\316\300#\210\202K\314	\316\311#\210\314	\315\313#\210\nA\211\204\"\311+\207" [hide-ifdef-shadow overlay --dolist-tail-- make-local-variable message "Shadowing %s" "ON" "OFF" overlays-in nil overlay-get hide-ifdef overlay-put invisible face] 5 (#$ . 22952) nil])
#@52 Define a VAR so that #ifdef VAR would be included.
(defalias 'hide-ifdef-define #[(var) "\302\303\"\210	\205\304 \207" [var hide-ifdef-hiding hif-set-var 1 hide-ifdefs] 3 (#$ . 23423) "SDefine what? "])
#@58 Undefine a VAR so that #ifdef VAR would not be included.
(defalias 'hide-ifdef-undef #[(var) "\302\303\"\210	\205\304 \207" [var hide-ifdef-hiding hif-set-var nil hide-ifdefs] 3 (#$ . 23635) "SUndefine what? "])
#@275 Hide the contents of some #ifdefs.
Assume that defined symbols have been added to `hide-ifdef-env'.
The text hidden is the text that would not be included by the C
preprocessor if it were given the file with those symbols defined.

Turn off hiding by calling `show-ifdefs'.
(defalias 'hide-ifdefs #[(&optional nomsg) "\306\307!\210\n\204\302\310!\210\203\311 \210\312\313 \210\f\206	
\206'\306\314!\207" [buffer-read-only hif-outside-read-only hide-ifdef-mode hide-ifdef-hiding hide-ifdef-read-only nomsg message "Hiding..." 1 show-ifdefs t hide-ifdef-guts "Hiding done"] 2 (#$ . 23857) nil])
#@71 Cancel the effects of `hide-ifdef': show the contents of all #ifdefs.
(defalias 'show-ifdefs #[nil "\303 \210\304\211\207" [hif-outside-read-only buffer-read-only hide-ifdef-hiding hif-show-all nil] 2 (#$ . 24468) nil])
#@94 Utility for hide and show `ifdef-block'.
Return as (TOP . BOTTOM) the extent of ifdef block.
(defalias 'hif-find-ifdef-block #[nil "\301\212\302 \210\303 \204\304 \204\305 \210`\306 \210`S)\212\302 \210\307 \204'\310 \210\304 \2035\306 \210\310 \210\202'`S^*B\207" [max-bottom nil beginning-of-line hif-looking-at-else hif-looking-at-ifX up-ifdef hif-ifdef-to-endif hif-looking-at-endif hif-find-next-relevant] 3 (#$ . 24697)])
#@75 Hide the ifdef block (true or false part) enclosing or before the cursor.
(defalias 'hide-ifdef-block #[nil "\204\300\306!\210\307 \310	@	A\"\210\n\203!\311	@!\210\311	AT!\210\312)\f\206)
\211\207" [hide-ifdef-mode top-bottom hide-ifdef-lines hide-ifdef-hiding hide-ifdef-read-only hif-outside-read-only 1 hif-find-ifdef-block hide-ifdef-region hif-hide-line t buffer-read-only] 3 (#$ . 25141) nil])
#@75 Show the ifdef block (true or false part) enclosing or before the cursor.
(defalias 'show-ifdef-block #[nil "\302 	\203\303\212@b\210\304 )\212ATb\210\305 \210`)\"\202&\303@SA\")\207" [top-bottom hide-ifdef-lines hif-find-ifdef-block hif-show-ifdef-region line-beginning-position hif-end-of-line] 3 (#$ . 25556) nil])
#@50 A global assoc list of pre-defined symbol lists.
(defvar hide-ifdef-define-alist nil (#$ . 25888))
#@67 Compress the define list ENV into a list of defined symbols only.
(defalias 'hif-compress-define-list #[(env) "\304	\304\211\203 @\305\n@!\203\n@BA\211\204\n\304+\207" [new-defs env def --dolist-tail-- nil hif-lookup] 3 (#$ . 25993)])
#@51 Set the association for NAME to `hide-ifdef-env'.
(defalias 'hide-ifdef-set-define-alist #[(name) "\303	!B\nB\211\207" [name hide-ifdef-env hide-ifdef-define-alist hif-compress-define-list] 3 (#$ . 26249) "SSet define list: "])
#@60 Set `hide-ifdef-env' to the define list specified by NAME.
(defalias 'hide-ifdef-use-define-alist #[(name) ";\203	\305!\306	\"\211\203\307\310\nA\"\202 \311\312\"\210\f\205&\313 )\207" [name hide-ifdef-define-alist define-list hide-ifdef-env hide-ifdef-hiding intern assoc mapcar #[(arg) "\301B\207" [arg t] 2] error "No define list for %s" hide-ifdefs] 4 (#$ . 26485) (list (completing-read "Use define list: " (mapcar #'(lambda (x) (symbol-name (car x))) hide-ifdef-define-alist) nil t))])
(provide 'hideif)
F1l3 Manager
