bison-mode.elc

;ELC
;;; Compiled by philipp@philipp-desktop on Tue Apr 13 20:22:52 2010
;;; from file /home/philipp/elisp/bison-mode.el
;;; in Emacs version 22.2.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 "`bison-mode.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\300\301!\210\300\302!\207" [require derived make-regexp] 2)
#@50 commands which can declare a token or state type
(defvar bison--declarers '("%union" "%token" "%type" "%left" "%right" "%nonassoc") (#$ . 648))
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204!\303\305\306	\307Q\"\210\301\207" [current-load-list bison--word-constituent-re default-boundp set-default "\\(\\sw\\|_\\)" bison--production-re "^" "+:"] 5)
#@63 section before c-declarations-section, if that section exists
(defvar bison--pre-c-decls-section 0 (#$ . 1030))
#@76 section denoted by %{ and $} for c-declarations at the top of a bison file
(defvar bison--c-decls-section 1 (#$ . 1148))
#@34 section before the rules section
(defvar bison--bison-decls-section 2 (#$ . 1275))
#@70 section delimited by %%'s where productions and rules are enumerated
(defvar bison--grammar-rules-section 3 (#$ . 1364))
#@56 section after the second %% where c-code can be placed
(defvar bison--c-code-section 4 (#$ . 1491))
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\307B\302\307!\204-\303\307\310\"\210\301\207" [current-load-list bison--c-decls-section-opener default-boundp set-default "%{" bison--c-decls-section-closer "%}" bison--grammar-rules-section-delimeter "%%"] 3)
#@55 column for rule and production separators "|" and ";"
(defvar bison-rule-separator-column 8 (#$ . 1903))
#@58 column for beginning enumeration of a production's rules
(defvar bison-rule-enumeration-column 16 (#$ . 2014))
#@68 columnn in which tokens' and states' types should be when declared
(defvar bison-decl-type-column 8 (#$ . 2131))
#@88 column in which tokens and states are listed when declared,
as with %token, %type, ...
(defvar bison-decl-token-column 24 (#$ . 2250))
#@155 non-nil means all electric keys will be disabled,
nil means that a bison-electric-* key will be on or off based on the individual
key's electric variable
(defvar bison-all-electricity-off nil (#$ . 2392))
#@37 non-nil means use an electric colon
(defvar bison-electric-colon-v t (#$ . 2603))
#@36 non-nil means use an electric pipe
(defvar bison-electric-pipe-v t (#$ . 2691))
#@42 non-nil means use an electric open-brace
(defvar bison-electric-open-brace-v t (#$ . 2777))
#@43 non-nil means use an electric close-brace
(defvar bison-electric-close-brace-v t (#$ . 2875))
#@41 non-nil means use an electric semicolon
(defvar bison-electric-semicolon-v t (#$ . 2975))
#@39 non-nil means use an electric percent
(defvar bison-electric-percent-v t (#$ . 3071))
#@41 non-nil means use an electric less-than
(defvar bison-electric-less-than-v t (#$ . 3163))
#@44 non-nil means use an electric greater-than
(defvar bison-electric-greater-than-v t (#$ . 3259))
#@36 Basic highlighting for Bison mode.
(defvar bison-font-lock-keywords-1 c-font-lock-keywords (#$ . 3361))
#@36 Gaudy highlighting for Bison mode.
(defvar bison-font-lock-keywords-2 (byte-code "\302\303\304!\305Q\306BC	\"\207" [bison--declarers bison-font-lock-keywords-1 append "^\\(" make-regexp "\\)" (1 font-lock-keyword-face)] 4) (#$ . 3471))
#@48 Default expressions to highlight in Bison mode
(defvar bison-font-lock-keywords bison-font-lock-keywords-2 (#$ . 3714))
#@48 return a new list with the same elements as LS
(defalias 'copy-list #[(ls) "\204\301\207@\302A!B\207" [ls nil copy-list] 3 (#$ . 3840)])
(defalias 'same-line-p #[(pt1 pt2 &optional bol eol) "\206\n\212\304 \210`)	\206\212\305\210`)\211\nX\205+X\205+	\nY\205+	Y*\207" [bol eol pt1 pt2 beginning-of-line nil] 3])
#@61 Delete all spaces and tabs around point, leaving no spaces.
(defalias 'just-no-space #[nil "\300\301x\210`\300\301w\210`|\210\302\207" [" 	" nil t] 3 (#$ . 4175) "*"])
#@79 return t if there is nothing but whitespace between pt1 and pt2 not
inclusive
(defalias 'white-space-separation #[(pt1 pt2) "\212Tb\210\302\303	\304#)?\207" [pt1 pt2 re-search-forward "[^ 	\n]" t] 4 (#$ . 4349)])
#@91 return t if there is whitespace between the beginning of the line and the
current (point)
(defalias 'previous-white-space-p #[nil "\212`\301 \210\302\303\304#\205\304*\207" [current-point beginning-of-line re-search-forward "\\s " t] 4 (#$ . 4569)])
#@87 return t if there are non-whitespace characters between beginning of line
and (point)
(defalias 'previous-non-ws-p #[nil "\212`\301 \210\302\303\304#*\207" [current-point beginning-of-line re-search-forward "[^ 	]" t] 4 (#$ . 4829)])
#@61 return t if there are non-whitespace characters on the line
(defalias 'following-non-ws-p #[nil "\212`\301\210\302\303\304#*\207" [current-point nil re-search-backward "[^ 	]+" t] 4 (#$ . 5071)])
#@73 return t if the line consists of nothiing but whitespace, nil otherwise
(defalias 'line-of-whitespace-p #[nil "\212\301\210`\302 \210\303\304\305#*?\207" [eol nil beginning-of-line re-search-forward "[^ 	\n]" t] 4 (#$ . 5276)])
#@53 goto and return pt of next non-whitespace character
(defalias 'goto-next-non-ws #[nil "\300\207" ["goto and return pt of next non-whitespace character"] 1 (#$ . 5513)])
(byte-code "\302\303N\204\f\304\302\303\305#\210\306\307!\204\304\307\310\311#\210\307B\312\307!\204(\313\307\314 \"\210\306\315!\2044\304\315\310\311#\210\315B\312\315!\204D\313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^\313\301\317\301\320\"\210	\"\210\304\311\321\322#\207" [current-load-list bison-mode-abbrev-table bison-mode-hook variable-documentation put "Hook run when entering Bison mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp bison-mode-map definition-name bison-mode default-boundp set-default make-sparse-keymap bison-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent flex-mode] 5)
#@216 Major mode for editing bison/yacc files



In addition to any hooks its parent mode `flex-mode' might have run,
this mode runs the hook `bison-mode-hook', as the final step
during initialization.

\{bison-mode-map}
(defalias 'bison-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\324!\210\325\f!\210@A\326\327\330\"\210\331\327!\210\332\333\334\"\210\331\335!\210\336\337!\210\340\337!\210\341\337!\210\324!\210\342\343\344#\210\342\345\346#\210\342\347\350#\210\342\351\352#\210\342\353\354#\210\342\355\356#\210\342\357\360#\210\342\361\362#\210\342\363\364#\210\306\365!\210\3665\306\367!\210\306\370!\210\3717\3728\306\373!\210\374;\306\375!\210\376=)\377\201B!\203\325\201B\201C!\207\201D\201C!\207" [delay-mode-hooks major-mode mode-name bison-mode-map bison-mode-syntax-table parent make-local-variable t flex-mode bison-mode "Bison" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table set-default c-basic-offset 4 make-variable-buffer-local c-set-offset knr-argdecl-intro 0 c-offsets-alist c-toggle-auto-hungry-state -1 c-toggle-auto-state c-toggle-hungry-state define-key ":" bison-electric-colon "|" bison-electric-pipe "{" bison-electric-open-brace "}" bison-electric-close-brace ";" bison-electric-semicolon "%" bison-electric-percent "<" bison-electric-less-than ">" bison-electric-greater-than [tab] bison-indent-line indent-line-function bison-indent-new-line comment-start comment-end "/*" "*/" font-lock-keywords nil font-lock-defaults ((bison-font-lock-keywords bison-font-lock-keywords-1 bison-font-lock-keywords-2) nil nil nil) fboundp bison-mode-abbrev-table local-abbrev-table run-mode-hooks bison-mode-hook run-hooks] 6 (#$ . 6436) nil])
#@46 Return the section that user is currently in
(defalias 'bison--section-p #[nil "\212`\301 \210\302!*\207" [bound beginning-of-buffer bison--section-p-helper] 2 (#$ . 8366)])
(defalias 'bison--section-p-helper #[(bound) "\306\307P	\310#\2032\306\307\nP	\310#\203/\306\307P	\310#\203,\306\307P	\310#\203*\f\207
\207\n\207\207\306\307P	\310#\203J\306\307P	\310#\203H\f\207
\207\306\307P\311\310#\203W\f\207\306\307P\311\310#\203d\n\207\f\207" [bison--c-decls-section-opener bound bison--c-decls-section-closer bison--grammar-rules-section-delimeter bison--c-code-section bison--grammar-rules-section re-search-forward "^" t nil bison--bison-decls-section bison--c-decls-section bison--pre-c-decls-section] 4])
#@62 return t if the (point) rests immediately after a production
(defalias 'bison--production-p #[nil "\212`\303 \210\304	\305#\211\205\306 ?\205\nU+\207" [current-point bison--production-re position beginning-of-line re-search-forward t previous-white-space-p] 5 (#$ . 9102)])
#@74 return and goto the point of the nearest production opener above (point)
(defalias 'bison--find-production-opener #[nil "\301\302\303#\207" [bison--production-re re-search-backward nil t] 4 (#$ . 9390)])
#@87 return the position of the beginning of the next production,
or nil if there isnt one
(defalias 'bison--find-next-production #[nil "\212\301\302\303#\205
\304 \210`)\207" [bison--production-re re-search-forward nil t beginning-of-line] 4 (#$ . 9601)])
#@130 return the position of the end of the grammar rules (assuming we are within
the grammar rules section), or nil if there isnt one
(defalias 'bison--find-grammar-end #[nil "\212\301\302P\303\304#\205\305 \210`)\207" [bison--grammar-rules-section-delimeter re-search-forward "^" nil t beginning-of-line] 4 (#$ . 9862)])
#@136 return the position of the beginning of the grammar rules (assuming we are
within the grammar rules section), or nil if there isnt one
(defalias 'bison--find-grammar-begin #[nil "\212\301\302P\303\304#\205\f`)\207" [bison--grammar-rules-section-delimeter re-search-backward "^" nil t] 4 (#$ . 10189)])
#@256 is used by bison-electric-* functions to determine actions
return t if within a production, nil if not

a point is within a production if there is some non whitespace text before
either the beginnings of another production or the end of the grammar rules
(defalias 'bison--within-started-production-p #[nil "\212\304 \206\305 \211\205&\306\307\310	!\311\310\n!\312\260\313#\211\205%U?)*\207" [bound comment-start comment-end sval bison--find-next-production bison--find-grammar-end re-search-forward "\\(\\s \\|" regexp-quote "\\(.\\|\n\\)*" "\\)+" t] 7 (#$ . 10500)])
#@81 return t if the (point) is within the sexp marked by the re's STARTER and
ENDER
(defalias 'bison--within-some-sexp-p #[(starter ender) "\212`\303	\304\305#\205\306\225b\210\307\n\305#?*\207" [current-point starter ender re-search-backward nil t 0 re-search-forward] 4 (#$ . 11085)])
#@68 return t if the point is within a c comment delimited by "/*" "*/"
(defalias 'bison--within-c-comment-p #[nil "\302\303!\303	!\"\207" [comment-start comment-end bison--within-some-sexp-p regexp-quote] 4 (#$ . 11378)])
#@87 
start from the beginning of the buffer and toggle state as un-escaped "'s are
found.
(defalias 'bison--within-string-p #[(&optional point) "\206`\302\212\303 \210\304\305\306#\203	?\202\f	+\207" [point in-p nil beginning-of-buffer re-search-forward "[^\\]\"" t] 4 (#$ . 11603)])
#@68 return t if the point is within an sexp delimited by braces ({,})

(defalias 'bison--within-braced-c-expression-p #[(section) "\212\301`\")\207" [section bison--within-braced-c-expression-p-h] 3 (#$ . 11899)])
#@75 
Notes:
save excursion is done higher up, so i dont concern myself here.

(defalias 'bison--within-braced-c-expression-p-h #[(section low-pt) "	U\203\306\207\nU\203\212\307\310!)\311\f\")\207
U\2032\212\307\312\306\313#\206*e)\311\f\")\207
U\203H\212\314 )\211\205F\311\f\")\207U\205P\313\207" [section bison--pre-c-decls-section bison--c-decls-section opener low-pt bison--bison-decls-section nil search-backward "%{" bison--within-braced-c-expression-p-h-h "%}" t bison--find-production-opener bison--grammar-rules-section bison--c-code-section] 5 (#$ . 12116)])
#@139 
Notes:
HIGH-PT goes toward (point-min), LOW-PT goes toward (point-max)
save excursion is done higher up, so i dont concern myself here.

(defalias 'bison--within-braced-c-expression-p-h-h #[(high-pt low-pt) "`\306\307\306	\2041\310\311\f\312\n$\2031\313\225b\210\314 \204#\315 \203)\nT\202\312\211\211\203\f\205K\306\316\317\217\211\203I
V\205J\312\202J\312),\207" [pt done count success high-pt end-pt nil 1 re-search-backward "[^%]{" t 0 bison--within-c-comment-p bison--within-string-p (byte-code "\300 \210`\207" [forward-sexp] 1) ((error)) low-pt] 6 (#$ . 12711)])
#@101 return t if the current line is a bison declaration starter
(i.e. has a %type, %token, %right, ...)
(defalias 'bison--bison-decl-opener-p #[(bol eol) "\212b\210\303\304\305\306	!!P\n\307#)\207" [bol bison--declarers eol re-search-forward "^" make-regexp copy-list t] 5 (#$ . 13311)])
#@73 return t if the current line is a line that introduces a new production
(defalias 'bison--production-opener-p #[(bol eol) "\212b\210\303	\n\304#)\207" [bol bison--production-re eol re-search-forward t] 4 (#$ . 13602)])
#@72 return the position of next semicolon not within braces, nil otherwise
(defalias 'bison--find-bison-semicolon #[nil "\212\300\301\302\303#\205\304\305 !\204`\202\306 )\207" [search-forward ";" nil t bison--within-braced-c-expression-p bison--section-p bison--find-bison-semicolon] 4 (#$ . 13828)])
#@118 return t if the (point) is within the body of a production

this procedure will fail if it is in a production header
(defalias 'bison--within-production-body-p #[(section) "\212	U\205`\304\305\306#\205\306))\207" [section bison--grammar-rules-section current-point bison--production-re re-search-backward nil t] 4 (#$ . 14139)])
#@82 return t if the current line contains a "|" used to designate a rule
alternative
(defalias 'bison--production-alternative-p #[(bol eol section) "\212b\210\303\304	\305#\205\306\n!?)\207" [bol eol section search-forward "|" t bison--within-braced-c-expression-p] 4 (#$ . 14481)])
(defalias 'bison--handle-indent-c-sexp #[(section indent-column bol) "\304\305\306#\211\2033\212	b\210\307\n!)\203\310 \2025\311 	U\2055	U?\2055\312 \210\313 \210j\2025\310 )\207" [bol o-brace section indent-column re-search-backward "[^%]{" t bison--within-braced-c-expression-p c-indent-line current-indentation back-to-indentation just-no-space] 5])
#@84 Indent a fresh line of bison code

assumes indenting a new line, i.e. at column 0

(defalias 'bison-indent-new-line #[(&optional c-sexp) "\306 	\206\n\307!\211\203D\nU\203?\310\212\311y\210\212\312 \210`)\212\313\210`)\314\f\"\205:\315\316
!\210\316\317!SBC+!\202\240\310 \202\240U\203P\310 \202\240U\203]j\202\240\nU\203\234\212\212\320 )\206m\321 \322\323\324#\211\203\212\307!\203\206\202\227\325\202\227\212\320 )\203\226\202\227\325+j\202\240U*\207" [section c-sexp bison--grammar-rules-section eol bol bison--production-re bison--section-p bison--within-braced-c-expression-p c-indent-line -1 beginning-of-line nil bison--production-opener-p defun-block-intro re-search-forward "[^ 	]" bison--find-production-opener bison--find-grammar-begin search-backward ";" t 0 bison--pre-c-decls-section bison--bison-decls-section bison-decl-token-column bound prev-semi bison-rule-enumeration-column bison--c-code-section] 5 (#$ . 15133) nil])
#@30 Indent a line of bison code

(defalias 'bison-indent-line #[nil "d`Z\306\212\307 \210`)\212\310\210`)\311 \312\f!\313 \211'\203)\314
!\202=\f(U\206=\f)U\203U
\203C\315\f\316\n#\202=\317 \316U?\205=\320 \210\321 \210\301\202=\f*U\203&
\322\n\"\211+\203\340+b\210\323w\210\324\325!\203\213\212\326 \203\207\327u\210\321 \210\330 \210\314\331!\210)\202\333\331,\324\332!\203\267\310,i-U\204\250\321 \210-j\210\202\267\333\332.\334Q\331#\203\267\331,,\203\332\323w\203\332\324\335.\336Q!\203\332i/U\204\332\321 \210/j\210)	 \202\"

\203\354\315\f\316\n#\202\"
\320 \210\324.!\203
i/U\204 
\321 \210/j\210\202 
\324\337!\203
i\316U\204 
\321 \210\202 
\324\3400!!\210	 )\202=\f1U\2034\341\n\"\203\211
\307 \210\3332!\210\326 \203\204
i3V\203U
\321 \210\330 \2103j\210\202\204
\212\333.!\210i\21143TV\203s
\342u\210\321 \2103j\210\202\203
43TW\203\203
\342u\2103j\210*	 \202=\343\n\f#\203\336
\320 \210i5U\204\242
\321 \2105j\210\327u\210\326 \203\331
\212\333.!\210i\21143TV\203\310
\342u\210\321 \2103j\210\202\330
43TW\203\330
\342u\2103j\210*	 \202=
\203\356
\315\f3\n#\210	 \202=\344\f!\203\n\320 \210i3U\204\321 \2103j\210	 \202=\317 6\212\345\337\n\331#)6=\205063U?\2050\320 \210\321 \2103j\210	 )\202=\f7U\205=\346 .\207" [pos reset-pt bol eol section c-sexp #[nil "dZ`V\205\fdZb\207" [pos] 2] beginning-of-line nil bison--section-p bison--within-braced-c-expression-p line-of-whitespace-p bison-indent-new-line bison--handle-indent-c-sexp 0 current-indentation back-to-indentation just-no-space bison--bison-decl-opener-p " 	" looking-at "{" following-non-ws-p 1 newline t "<" re-search-forward "+>" "\\(" "\\|'\\)" "}" regexp-quote bison--production-opener-p -1 bison--production-alternative-p bison--within-production-body-p search-backward c-indent-line ws-line bison--pre-c-decls-section bison--c-decls-section bison--bison-decls-section opener complete-type bison-decl-type-column bison--word-constituent-re bison-decl-token-column comment-start bison--grammar-rules-section bison--production-re bison-rule-enumeration-column col bison-rule-separator-column cur-ind bison--c-code-section] 5 (#$ . 16129) nil])
#@394 If the colon <:> delineates a production,
   then insert a semicolon on the next line in the BISON-RULE-SEPARATOR-COLUMN,
	put the cursor in the BISON-RULE-ENUMERATION-COLUMN for the beginning
	of the rule
   else just run self-insert-command
A colon delineates a production by the fact that it is immediately preceded by
a word(alphanumerics or '_''s), and there is no previous white space.

(defalias 'bison-electric-colon #[(arg) "\306\307!!\210	\205I\n?\205I\310 U\205I\311 \205I\312 ?\205I\212\313 \210\fj\210\314c\210)\212\315\316\212\317 \210`)\320#\203=\321 \210)i
W\204G\313 \210
j\207" [arg bison-electric-colon-v bison-all-electricity-off bison--grammar-rules-section bison-rule-separator-column bison-rule-enumeration-column self-insert-command prefix-numeric-value bison--section-p bison--production-p bison--within-started-production-p newline ";" re-search-backward "\\s " beginning-of-line t just-no-space] 4 (#$ . 18356) "P"])
#@211 If the pipe <|> is used as a rule separator within a production,
   then move it into BISON-RULE-SEPARATOR-COLUMN
	indent to BISON-RULE-ENUMERATION-COLUMN on the same line
   else just run self-insert-command

(defalias 'bison-electric-pipe #[(arg) "\203&	\204&\n\306 U\203&\307 \203&\310 \210\311 \210j\210\312\313\f!!\210
j\207\312\313\f!!\207" [bison-electric-pipe-v bison-all-electricity-off bison--grammar-rules-section bison-rule-separator-column arg bison-rule-enumeration-column bison--section-p line-of-whitespace-p beginning-of-line just-no-space self-insert-command prefix-numeric-value] 3 (#$ . 19316) "P"])
#@172 used for the opening brace of a C action definition for production rules,
if there is only whitespace before (point), then put open-brace in
bison-rule-enumeration-column
(defalias 'bison-electric-open-brace #[(arg) "\203I	\204I\306 \211U\203+\307\n!\204+\310 \204+i\fU\204H\311 \210\fj\210\202H\n
U\203H\307\n!\204H\310 \204Hi\312U\204H\311 \210\312j\210)\313\314
!!\207" [bison-electric-open-brace-v bison-all-electricity-off section bison--grammar-rules-section bison-rule-enumeration-column bison--bison-decls-section bison--section-p bison--within-braced-c-expression-p previous-non-ws-p just-no-space 0 self-insert-command prefix-numeric-value arg] 4 (#$ . 19949) "P"])
#@139 If the close-brace "}" is used as the c-declarations section closer
in "%}", then make sure the "%}" indents to the beginning of the line
(defalias 'bison-electric-close-brace #[(arg) "\304\305!!\210	\205(\n?\205(\306\307`\310Z\311#\205(\312 U\203&\313 \210\310u\207\314u\207" [arg bison-electric-close-brace-v bison-all-electricity-off bison--c-decls-section self-insert-command prefix-numeric-value search-backward "%}" 2 t bison--section-p just-no-space 1] 4 (#$ . 20647) "P"])
#@291 if the semicolon is used to end a production, then place it in 
bison-rule-separator-column

a semicolon is deemed to be used for ending a production if it is not found
within braces

this is just self-insert-command as i have yet to write the actual
bison-electric-semicolon function yet

(defalias 'bison-electric-semicolon #[(arg) "\301\302!!\207" [arg self-insert-command prefix-numeric-value] 3 (#$ . 21141) "P"])
#@95 if the percent is a declarer in the bison declaration's section,
then put it in the 0 column

(defalias 'bison-electric-percent #[(arg) "\203&	\204&\305 \211U\203%\306\n!\204%\307 \204%i\310U\204%\311 \210)\312\313\f!!\207" [bison-electric-percent-v bison-all-electricity-off section bison--bison-decls-section arg bison--section-p bison--within-braced-c-expression-p previous-non-ws-p 0 just-no-space self-insert-command prefix-numeric-value] 4 (#$ . 21567) "P"])
#@139 if the less-than is a type declarer opener for tokens in the bison
declaration section, then put it in the bison-decl-type-column column

(defalias 'bison-electric-less-than #[(arg) "\203!	\204!\305 \nU\203!\306\212\307 \210`)`\"\203!\310 \210j\210\311\312\f!!\207" [bison-electric-less-than-v bison-all-electricity-off bison--bison-decls-section bison-decl-type-column arg bison--section-p bison--bison-decl-opener-p beginning-of-line just-no-space self-insert-command prefix-numeric-value] 3 (#$ . 22048) "P"])
#@132 if the greater-than is a type declarer closer for tokens in the bison
declaration section, then indent to bison-decl-token-column

(defalias 'bison-electric-greater-than #[(arg) "\306\307!!\210	\205G\n?\205G`\212\310 \210`)\311 
U\205F\312`\"\205F\313\314\315#\205F\316\314\317Q\f\315#\205F\320 ?\205F\321 \210j*\207" [arg bison-electric-greater-than-v bison-all-electricity-off bol current-pt bison--bison-decls-section self-insert-command prefix-numeric-value beginning-of-line bison--section-p bison--bison-decl-opener-p search-backward "<" t re-search-forward "+>" following-non-ws-p just-no-space bison--word-constituent-re bison-decl-token-column] 4 (#$ . 22574) "P"])
(provide 'bison-mode)