| Current Path : /usr/share/emacs/24.3/lisp/progmodes/ |
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/progmodes/hideif.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:25 2024
;;; 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 \302B\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) "\212b\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 "rq\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 "\301d\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\302d\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\302e\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\303W\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\303W\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\302W\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\303W\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\214b\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 )\212ATb\210\305 \210`)\"\202& \303@SA\")\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)