| 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/meta-mode.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:28 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/meta-mode.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\310\311&\207" [require easymenu custom-declare-group meta-font nil "Major mode for editing Metafont or MetaPost sources." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :group languages] 8)
#@64 Default expressions to highlight in Metafont or MetaPost mode.
(defvar meta-font-lock-keywords (byte-code "\300\301\302\303\304\305\306\307\310\311B\312\313\314R\315B\312\313\316\317\320\260\321B\312\313\322R\323B\312\313\324R\325B\326\327B\312\313Q\330B\312\313Q\330B\312\313Q\330B\312\313\316R\331B\332\333B\257 \207" ["\\(input\\|generate\\)" "\\(begin\\(char\\|fig\\|graph\\|logochar\\)\\|\\cmchar\\|dcchar\\|ecchar\\)" "\\(end\\(char\\|fig\\|graph\\)\\)" "\\(def\\|let\\|mode_def\\|vardef\\)" "\\(primarydef\\|secondarydef\\|tertiarydef\\)" "\\(expr\\|primary\\|s\\(econdary\\|uffix\\)\\|te\\(rtiary\\|xt\\)\\)" "\\(boolean\\|color\\|n\\(ewinternal\\|umeric\\)\\|p\\(a\\(ir\\|th\\)\\|en\\|icture\\)\\|string\\|transform\\)" "\\(and\\|b\\(egingroup\\|ye\\)\\|d\\(ef\\|ownto\\)\\|e\\(lse\\(\\|if\\)\\|nd\\(\\|def\\|for\\|group\\|input\\)\\|rr\\(help\\|message\\)\\|x\\(it\\(if\\|unless\\)\\|pandafter\\)\\)\\|f\\(alse\\|i\\|or\\(\\|ever\\|suffixes\\)\\)\\|generate\\|i\\(ff?\\|n\\(ner\\|put\\|terim\\)\\)\\|known\\|let\\|m\\(essage\\|ode_def\\)\\|n\\(ot\\|umspecial\\)\\|o\\(r\\|uter\\)\\|re\\(ad\\(from\\|string\\)\\|lax\\)\\|s\\(ave\\|cantokens\\|pecial\\|tep\\)\\|t\\(hru\\|rue\\)\\|u\\(n\\(known\\|til\\)\\|pto\\)\\|vardef\\|w\\(ithin\\|rite\\)\\)" "\\(btex\\|verbatimtex\\)[ \f]+\\(.*\\)[ \f]+\\(etex\\)" ((1 font-lock-keyword-face) (2 font-lock-string-face) (3 font-lock-keyword-face)) "\\<" "\\>" "[ \f]+\\(\\sw+\\|\\s_+\\|\\s.+\\)" ((1 font-lock-keyword-face) (2 font-lock-function-name-face)) "[ \f]+\\(\\sw+\\)" "[ \f]*\\(\\sw+\\|\\s.+\\)" "[ \f]*\\(\\sw+\\)" ((1 font-lock-keyword-face) (2 font-lock-variable-name-face nil t) (3 font-lock-function-name-face nil t) (4 font-lock-variable-name-face nil t)) "\\([ \f]+\\(\\sw+\\)\\)*" ((1 font-lock-type-face) (font-lock-match-meta-declaration-item-and-skip-to-next (goto-char (match-end 1)) nil (1 font-lock-variable-name-face nil t))) "\\([ \f]+\\(\\sw+\\|\\s_+\\)\\)*" ((1 font-lock-type-face) (font-lock-match-meta-declaration-item-and-skip-to-next (goto-char (match-end 1)) nil (1 font-lock-variable-name-face nil t))) "\\(expr\\)[ \f]+\\(\\sw+\\)[ \f]+\\(of\\)[ \f]+\\(\\sw+\\)" ((1 font-lock-type-face) (2 font-lock-variable-name-face) (3 font-lock-keyword-face nil t) (4 font-lock-variable-name-face nil t)) font-lock-keyword-face ((1 font-lock-keyword-face) (2 font-lock-constant-face)) "|\\([^|]+\\)|" (1 font-lock-constant-face t)] 21) (#$ . 827))
(defalias 'font-lock-match-meta-declaration-item-and-skip-to-next #[257 "\300\301!\2054 \302 \303\304\305\306\307\310!\311\"\312\313%DC\216\314\303\304\305\315\307\310!\316\"\312\313%D\317\303\320\314EDC\217)\262\207" [looking-at "[ \f]*\\(\\sw+\\|\\s_+\\)" match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" #1=#:err "\214e\300}\210\301\225b\210\302\303!\204 \304`\301\"\206 db\210\202 \305\225b)\207" [1 looking-at "[ \f]*\\(\\(,\\)\\|;\\|=\\|$\\)" scan-sexps 2] error #[257 "\300\207" [t] 2 "\n\n(fn IGNORED)"]] 10 "\n\n(fn LIMIT)"])
#@53 List of primitives common to Metafont and MetaPost.
(defconst meta-common-primitives-list '("ASCII" "addto" "also" "and" "angle" "atleast" "batchmode" "begingroup" "boolean" "boundarychar" "char" "charcode" "chardp" "charexists" "charext" "charht" "charic" "charlist" "charwd" "contour" "controls" "cosd" "curl" "cycle" "day" "decimal" "def" "delimiters" "designsize" "directiontime" "doublepath" "dump" "else" "elseif" "end" "enddef" "endfor" "endgroup" "endinput" "errhelp" "errmessage" "errorstopmode" "everyjob" "exitif" "expandafter" "expr" "extensible" "false" "fi" "floor" "fontdimen" "fontmaking" "for" "forever" "forsuffixes" "headerbyte" "hex" "if" "inner" "input" "interim" "intersectiontimes" "jobname" "kern" "known" "length" "let" "ligtable" "makepath" "makepen" "message" "mexp" "mlog" "month" "newinternal" "nonstopmode" "normaldeviate" "not" "nullpen" "nullpicture" "numeric" "oct" "odd" "of" "or" "outer" "pair" "path" "pausing" "pen" "pencircle" "penoffset" "picture" "point" "postcontrol" "precontrol" "primary" "primarydef" "quote" "randomseed" "readstring" "reverse" "rotated" "save" "scaled" "scantokens" "scrollmode" "secondary" "secondarydef" "shifted" "shipout" "show" "showdependencies" "showstats" "showstopping" "showtoken" "showvariable" "sind" "skipto" "slanted" "special" "sqrt" "step" "str" "string" "subpath" "substring" "suffix" "tension" "tertiary" "tertiarydef" "text" "time" "to" "tracingcapsules" "tracingchoices" "tracingcommands" "tracingequations" "tracingmacros" "tracingonline" "tracingoutput" "tracingrestores" "tracingspecs" "tracingstats" "tracingtitles" "transform" "transformed" "true" "turningnumber" "uniformdeviate" "unknown" "until" "vardef" "warningcheck" "withpen" "xpart" "xscaled" "xxpart" "xypart" "year" "ypart" "yscaled" "yxpart" "yypart" "zscaled") (#$ . 3888))
#@46 List of primitives only defined in Metafont.
(defconst metafont-primitives-list '("at" "autorounding" "chardx" "chardy" "cull" "display" "dropping" "fillin" "from" "granularity" "hppp" "inwindow" "keeping" "numspecial" "openwindow" "proofing" "smoothing" "totalweight" "tracingedges" "tracingpens" "turningcheck" "vppp" "withweight" "xoffset" "yoffset") (#$ . 5717))
#@46 List of primitives only defined in MetaPost.
(defconst metapost-primitives-list '("arclength" "arctime" "bluepart" "bounded" "btex" "clip" "clipped" "color" "dashed" "dashpart" "etex" "filled" "fontpart" "fontsize" "greenpart" "infont" "linecap" "linejoin" "llcorner" "lrcorner" "miterlimit" "mpxbreak" "pathpart" "penpart" "prologues" "readfrom" "redpart" "setbounds" "stroked" "textpart" "textual" "tracinglostchars" "truecorners" "ulcorner" "urcorner" "verbatimtex" "withcolor" "within" "write") (#$ . 6090))
#@55 List of macros common to plain Metafont and MetaPost.
(defconst meta-common-plain-macros-list '("abs" "bot" "bye" "byte" "ceiling" "clear_pen_memory" "clearit" "clearpen" "clearxy" "counterclockwise" "cutdraw" "decr" "dir" "direction" "directionpoint" "div" "dotprod" "downto" "draw" "drawdot" "erase" "exitunless" "fill" "filldraw" "flex" "gobble" "hide" "incr" "interact" "interpath" "intersectionpoint" "inverse" "label" "labels" "lft" "loggingall" "magstep" "makelabel" "max" "min" "mod" "numtok" "penlabels" "penpos" "penstroke" "pickup" "range" "reflectedabout" "relax" "rotatedabout" "rotatedaround" "round" "rt" "savepen" "shipit" "softjoin" "solve" "stop" "superellipse" "takepower" "tensepath" "thru" "top" "tracingall" "tracingnone" "undraw" "undrawdot" "unfill" "unfilldraw" "unitvector" "upto" "whatever") (#$ . 6608))
#@48 List of macros only defined in plain Metafont.
(defconst metafont-plain-macros-list '("beginchar" "change_width" "culldraw" "cullit" "cutoff" "define_blacker_pixels" "define_corrected_pixels" "define_good_x_pixels" "define_good_y_pixels" "define_horizontal_corrected_pixels" "define_pixels" "define_whole_blacker_pixels" "define_whole_pixels" "define_whole_vertical_blacker_pixels" "define_whole_vertical_pixels" "endchar" "fix_units" "font_coding_scheme" "font_extra_space" "font_identifier" "font_normal_shrink" "font_normal_space" "font_normal_stretch" "font_quad" "font_size" "font_slant" "font_x_height" "gfcorners" "good.bot" "good.lft" "good.rt" "good.top" "good.x" "good.y" "grayfont" "hround" "imagerules" "italcorr" "labelfont" "lowres_fix" "makebox" "makegrid" "maketicks" "mode_lowres" "mode_proof" "mode_setup" "mode_smoke" "nodisplays" "notransforms" "openit" "penrazor" "pensquare" "proofoffset" "proofrule" "proofrulethickness" "screenchars" "screenrule" "screenstrokes" "showit" "slantfont" "smode" "titlefont" "vround") (#$ . 7446))
#@48 List of macros only defined in plain MetaPost.
(defconst metapost-plain-macros-list '("arrowhead" "bbox" "beginfig" "buildcycle" "center" "cutafter" "cutbefore" "dashpattern" "dotlabel" "dotlabels" "drawarrow" "drawdblarrow" "drawoptions" "endfig" "image" "label" "off" "on" "thelabel") (#$ . 8503))
#@58 List of macros only defined in MetaPost "graph" package.
(defconst metapost-graph-macros-list '("augment" "auto.x" "auto.y" "autogrid" "begingraph" "endgraph" "format" "frame" "gdata" "gdotlabel" "gdraw" "gdrawarrow" "gdrawdblarrow" "gfill" "glabel" "grid" "itick" "otick" "plot" "setcoords" "setrange") (#$ . 8809))
#@58 List of macros only defined in MetaPost "boxes" package.
(defconst metapost-boxes-macros-list '("boxit" "boxjoin" "bpath" "circleit" "drawboxed" "drawboxes" "drawunboxed" "fixpos" "fixsize" "pic" "rboxit") (#$ . 9132))
#@53 List of known symbols to complete in Metafont mode.
(defvar metafont-symbol-list (append meta-common-primitives-list metafont-primitives-list meta-common-plain-macros-list metafont-plain-macros-list) (#$ . 9357))
#@53 List of known symbols to complete in MetaPost mode.
(defvar metapost-symbol-list (append meta-common-primitives-list metapost-primitives-list meta-common-plain-macros-list metapost-plain-macros-list metapost-graph-macros-list metapost-boxes-macros-list) (#$ . 9576))
#@65 List of known symbols to complete in Metafont or MetaPost mode.
(defvar meta-symbol-list nil (#$ . 9849))
#@66 Flag indicating whether `meta-symbol-list' has been initialized.
(defvar meta-symbol-changed nil (#$ . 9961))
#@442 List of ways to perform completion in Metafont or MetaPost mode.
Each entry is a list with the following elements:
1. Regexp matching the preceding text.
2. A number indicating the subgroup in the regexp containing the text.
3. A function returning an alist of possible completions.
4. Text to append after a successful completion (if any).
Or alternatively:
1. Regexp matching the preceding text.
2. Function to do the actual completion.
(defvar meta-complete-list nil (#$ . 10078))
#@88 Add entries to list of known symbols in Metafont or MetaPost mode.
(fn &rest ENTRIES)
(defalias 'meta-add-symbols #[128 "\203\n \211 B\211\207\302\211 B\211\207" [meta-symbol-changed meta-symbol-list t] 3 (#$ . 10570)])
#@143 Return value of list of known symbols in Metafont or MetaPost mode.
If the list was changed, sort the list and remove duplicates first.
(fn)
(defalias 'meta-symbol-list #[0 "\203P \302\303\304!\210\305\306\307\310\311 \"\"\312\"\211\211\203K \211A\203K \211@A@@@\230\2043 A\262\202F \211GGV\203@ A\241\210\211AA\241\210\266\202 \210\303\313!\210 \207" [meta-symbol-changed meta-symbol-list nil message "Preparing completion list..." sort mapcar meta-listify apply append meta-car-string-lessp "Preparing completion list... done"] 7 (#$ . 10802)])
(defalias 'meta-listify #[257 "\211<\203 \207\211C\207" [] 2 "\n\n(fn A)"])
(defalias 'meta-car-string-lessp #[514 "@@\231\207" [] 4 "\n\n(fn A B)"])
(defalias 'meta-completions-at-point #[0 "\301\203 @\262A\262\302@e`\303Z]\"\203 \301\262\202 \211A@\247\203V \211A@\3048\224\225\3058 \306\307G!?\205O \310\311\312\313\314\f!\315\"\316\317%\257\266\205\202Y \211A@\207" [meta-complete-list nil looking-back 200 3 2 :exit-function zerop make-byte-code 514 "\211\301>\205 \302\303\300!!\203 \304\225b\207\300c\207" vconcat vector [(sole finished) looking-at regexp-quote 0] 5 "\n\n(fn S FINISHED)"] 17 "\n\n(fn)"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\311\312DD\313\314\315\316\317&\210\306\320\310\311\321DD\322\314\323\316\317&\210\306\324\310\311\325DD\326\314\327\316\317&\210\306\330\310\311\331DD\332\314\323\316\317&\210\306\333\310\311\334DD\335\314\323\316\317&\210\306\336\310\311\337DD\340\314\323\316\317&\210\306\341\310\311\342DD\343\314\323\316\317&\207" [defalias meta-complete-symbol completion-at-point nil make-obsolete "24.1" custom-declare-variable meta-indent-level funcall function #[0 "\300\207" [2] 1 "\n\n(fn)"] "Indentation of begin-end blocks in Metafont or MetaPost mode." :type integer :group meta-font meta-left-comment-regexp #[0 "\300\207" ["%%+"] 1 "%%+\n\n(fn)"] "Regexp matching comments that should be placed on the left margin." regexp meta-right-comment-regexp #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Regexp matching comments that should be placed on the right margin." (choice regexp (const :tag "None" nil)) meta-ignore-comment-regexp #[0 "\300\207" ["%[^%]"] 1 "%[^%]\n\n(fn)"] "Regexp matching comments whose indentation should not be touched." meta-begin-environment-regexp #[0 "\300\207" ["\\(begin\\(char\\|fig\\|gr\\(aph\\|oup\\)\\|logochar\\)\\|def\\|for\\(\\|ever\\|suffixes\\)\\|if\\|mode_def\\|primarydef\\|secondarydef\\|tertiarydef\\|vardef\\)"] 1 "\n\n(fn)"] "Regexp matching the beginning of environments to be indented." meta-end-environment-regexp #[0 "\300\207" ["\\(end\\(char\\|def\\|f\\(ig\\|or\\)\\|gr\\(aph\\|oup\\)\\)\\|fi\\)"] 1 "\n\n(fn)"] "Regexp matching the end of environments to be indented." meta-within-environment-regexp #[0 "\300\207" ["\\(else\\(\\|if\\)\\)"] 1 "\n\n(fn)"] "Regexp matching keywords within environments not to be indented."] 8)
#@74 Return the indentation for a comment in Metafont or MetaPost mode.
(fn)
(defalias 'meta-comment-indent #[0 "\203\f \302!\203\f i\207\303\304x\210n\203 \305\202 iT ]\207" [meta-left-comment-regexp comment-column looking-at " \f " nil 0] 2 (#$ . 13749)])
#@72 Indent the line containing point as Metafont or MetaPost source.
(fn)
(defalias 'meta-indent-line #[0 "\300 \301 U\204 \212\302 \303 \210`|\210\211j\210)iW\205 \303 \207" [meta-indent-calculate current-indentation line-beginning-position back-to-indentation] 3 (#$ . 14013) nil])
#@78 Return the indentation of current line of Metafont or MetaPost source.
(fn)
(defalias 'meta-indent-calculate #[0 "\212\306 \210\203 \307!\203 \310\202] \203 \307 !\203 \n\202] \203/ \307 !\203/ \311 \202] \312 e=\203: \310\202] \313\314\f\315Q!\203J \316
Z\202] \313\314\315Q!\203[ \316
Z\202] \316 )\207" [meta-left-comment-regexp meta-right-comment-regexp comment-column meta-ignore-comment-regexp meta-end-environment-regexp meta-indent-level back-to-indentation looking-at 0 current-indentation point-at-bol meta-indent-looking-at-code "\\<" "\\>" meta-indent-current-indentation meta-within-environment-regexp] 4 (#$ . 14304)])
#@41 Tell if the point is in a string.
(fn)
(defalias 'meta-indent-in-string-p #[0 "\301\302 8\206
\303`\304\"=\207" [font-lock-string-face 3 syntax-ppss get-text-property face] 3 (#$ . 14956)])
#@81 Same as `looking-at' but checks that the point is not in a string.
(fn REGEXP)
(defalias 'meta-indent-looking-at-code #[257 "\300 ?\205 \301!\207" [meta-indent-in-string-p looking-at] 3 (#$ . 15155)])
#@59 Go to the previous line of code, skipping comments.
(fn)
(defalias 'meta-indent-previous-line #[0 "\301\302x\210\303\304 !\210\305!\205$ o?\205$ \301\302x\210o\204 \303\304 !\210\202 \207" [comment-start "\n \f " nil move-to-column current-indentation looking-at] 2 (#$ . 15365)])
#@76 Tell if the current line of code ends with an unfinished expression.
(fn)
(defalias 'meta-indent-unfinished-line #[0 "\212\304\210`\305\306 \307#\203 \310 \204 `\262\202 \211b\266\305\311\306 \307#\203G \310 \2034 \305\311\306 \307#\204& \304f\312U\203A \304u\210\202J \313 \210\202J \313 \210\314\315\316!\317 \320\317\n\320\317 \321\260 !?\205` \307)\207" [comment-start meta-end-environment-regexp meta-begin-environment-regexp meta-within-environment-regexp nil search-backward point-at-bol t meta-indent-in-string-p ";" 59 beginning-of-line meta-indent-looking-at-code "[ \f]*\\($\\|" regexp-quote "\\|\\<" "\\>" "\\>\\)"] 12 (#$ . 15656)])
#@67 Return the indentation wanted for the current line of code.
(fn)
(defalias 'meta-indent-current-indentation #[0 "\303 \212\304 \210\305\306\307\310 \307\260!?\205 \311 \210\312 )\203! \n\202\" \313\\\207" [meta-end-environment-regexp meta-within-environment-regexp meta-indent-level meta-indent-current-nesting back-to-indentation looking-at "\\<" "\\>" "\\|\\<" meta-indent-previous-line meta-indent-unfinished-line 0] 8 (#$ . 16318)])
#@76 Return the indentation according to the nearest environment keyword.
(fn)
(defalias 'meta-indent-current-nesting #[0 "\212\214~\210\303 \210\304C\305\306\307\304\310\311\312!\313\"\314\315%D\215\203L \303 \210\316@\317 \320 \321\322\323\322 \324\260!\2038 \n\202H \212\325 \210\326 )\203G \n[\202H \304$\202M \304\262*\207" [meta-end-environment-regexp meta-within-environment-regexp meta-indent-level back-to-indentation 0 found funcall make-byte-code "\305\306 \307\310\n\307\310 \307\260 \311\312#\205H \313 \204 \314\315 8\204 \311f\316U\203/ \300\211@\f\\\240\210\202 \311f\317U\203@ \300\211@\fZ\240\210\202 \320\321\312\"\210\202 \207" vconcat vector [meta-end-environment-regexp meta-begin-environment-regexp meta-within-environment-regexp meta-indent-level re-search-backward "(\\|)\\|\\<" "\\>" "\\|\\<" nil t meta-indent-in-string-p 4 syntax-ppss 40 41 throw found] 10 "\n\n(fn)" + current-indentation meta-indent-level-count meta-indent-looking-at-code "\\<" "\\>\\|" "\\>" meta-indent-previous-line meta-indent-unfinished-line] 12 (#$ . 16765)])
#@76 Count indentation change for begin-end commands in the current line.
(fn)
(defalias 'meta-indent-level-count #[0 "\212\214\303`\212\304\305\306\307#\210\310u\210`)}\210\304\311\306\307#\203B \212\303\224b\210\312\313\314Q!\2030 \211 \\\262\202> \312\313\n\314Q!\203> \211 Z\262)\202 \211\262*\207" [meta-begin-environment-regexp meta-indent-level meta-end-environment-regexp 0 re-search-forward "[^\\\\\"]%\\|\n\\|\\'" nil t -1 "\\<\\sw+\\>\\|(\\|)" meta-indent-looking-at-code "\\<" "\\>"] 6 (#$ . 17842)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\207" [custom-declare-variable meta-begin-defun-regexp funcall function #[0 "\300\207" ["\\(begin\\(char\\|fig\\|logochar\\)\\|def\\|mode_def\\|primarydef\\|secondarydef\\|tertiarydef\\|vardef\\)"] 1 "\n\n(fn)"] "Regexp matching beginning of defuns in Metafont or MetaPost mode." :type regexp :group meta-font meta-end-defun-regexp #[0 "\300\207" ["\\(end\\(char\\|def\\|fig\\)\\)"] 1 "\n\n(fn)"] "Regexp matching the end of defuns in Metafont or MetaPost mode."] 8)
#@272 Move backward to beginning of a defun in Metafont or MetaPost code.
With numeric argument, do it that many times.
Negative arg -N means move forward to Nth following beginning of defun.
Returns t unless search stops due to beginning or end of buffer.
(fn &optional ARG)
(defalias 'meta-beginning-of-defun #[256 "\211\203\n \211\301U\203
\302\262\211\203 \211\301W\203 m\204 \302u\210\303\304\305Q\306\307$\2057 \301\224b\210\310\306x\210\311\306x\210\307\207" [meta-begin-defun-regexp 0 1 re-search-backward "\\<" "\\>" nil t "%" " \f"] 6 (#$ . 18934) "p"])
#@261 Move forward to end of a defun in Metafont or MetaPost code.
With numeric argument, do it that many times.
Negative argument -N means move back to Nth preceding end of defun.
Returns t unless search stops due to beginning or end of buffer.
(fn &optional ARG)
(defalias 'meta-end-of-defun #[256 "\211\203\n \211\301U\203
\302\262\211\301W\203 o\204 \303y\210\304\305\306Q\307\310$\205< \301\225b\210\311\307w\210\312\307w\210\313\314!\203; \302y\210\310\207" [meta-end-defun-regexp 0 1 -1 re-search-forward "\\<" "\\>" nil t ";" " \f" looking-at "\n"] 6 (#$ . 19508) "p"])
#@87 Comment out active region as Metafont or MetaPost source.
(fn BEG END &optional ARG)
(defalias 'meta-comment-region #[770 "\300#\207" [comment-region] 7 (#$ . 20094) "r"])
#@71 Uncomment active region as Metafont or MetaPost source.
(fn BEG END)
(defalias 'meta-uncomment-region #[514 "\300\301#\207" [comment-region -1] 6 (#$ . 20276) "r"])
#@204 Comment out current environment as Metafont or MetaPost source.
With prefix argument, uncomment the environment.
The environment used is the one that contains point or follows point.
(fn &optional ARG)
(defalias 'meta-comment-defun #[256 "\212\300 \203\n `\202 d\301 \203 `\202 e\302#\266\202)\207" [meta-end-of-defun meta-beginning-of-defun comment-region] 7 (#$ . 20451) "P"])
#@69 Uncomment current environment as Metafont or MetaPost source.
(fn)
(defalias 'meta-uncomment-defun #[0 "\300\301!\207" [meta-comment-defun -1] 2 (#$ . 20843) nil])
#@72 Indent the active region as Metafont or MetaPost source.
(fn BEG END)
(defalias 'meta-indent-region #[514 "\300\301#\207" [indent-region nil] 6 (#$ . 21014) "r"])
#@72 Indent the whole buffer contents as Metafont or MetaPost source.
(fn)
(defalias 'meta-indent-buffer #[0 "\212\300ed\301#)\207" [indent-region nil] 4 (#$ . 21186) nil])
#@144 Indent the current environment as Metafont or MetaPost source.
The environment indented is the one that contains point or follows point.
(fn)
(defalias 'meta-indent-defun #[0 "\212\300 \203\n `\202 d\301 \203 `\202 e\302\303#\266\202)\207" [meta-end-of-defun meta-beginning-of-defun indent-region nil] 6 (#$ . 21362) nil])
#@139 Put mark at end of the environment, point at the beginning.
The environment marked is the one that contains point or follows point.
(fn)
(defalias 'meta-mark-defun #[0 "\300`!\210\301 \210\300`\302\303#\210\304 \207" [push-mark meta-end-of-defun nil t meta-beginning-of-defun] 4 (#$ . 21698) nil])
(define-abbrev-table 'meta-mode-abbrev-table nil "Abbrev table used in Metafont or MetaPost mode.")
#@49 Syntax table used in Metafont or MetaPost mode.
(defvar meta-common-mode-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\305#\210\301\310\305#\210\301\311\305#\210\301\312\313#\210\301\314\313#\210\301\315\313#\210\301\316\313#\210\301\317\313#\210\301\320\313#\210\301\321\313#\210\301\322\313#\210\301\323\313#\210\301\324\313#\210\301\325\313#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\345#\210\301\346\347#\210\211\207" [make-syntax-table modify-syntax-entry 95 "w" 35 "_" 64 36 63 33 38 "." 43 45 47 42 46 58 61 60 62 124 40 "()" 41 ")(" 91 "(]" 93 ")[" 123 "(}" 125 "){" 37 "<" 10 ">" 92 "\\"] 5) (#$ . 22103))
(byte-code "\300\301\302\303#\210\304\211\203( \211@\301N\203! \302N\204! \305\302\301N#\210A\266\202\202 \210\306\301\302\307#\207" [defvaralias meta-mode-map meta-common-mode-map nil (saved-value saved-variable-comment) put make-obsolete-variable "24.1"] 7)
#@43 Keymap used in Metafont or MetaPost mode.
(defvar meta-common-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\311#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\211\207" [make-sparse-keymap define-key "\201" meta-beginning-of-defun "\205" meta-end-of-defun "\210" meta-mark-defun "\221" meta-indent-defun "e" "r" meta-indent-region "b" meta-indent-buffer "%" meta-comment-defun ";" meta-comment-region ":" meta-uncomment-region "\211" completion-at-point] 5) (#$ . 23149))
#@41 Menu used in Metafont or MetaPost mode.
(defvar meta-mode-menu nil (#$ . 23763))
(byte-code "\301\302\303\304\305\306\307\310\311\312\313\307\314\315\316\317\307\320\257$\207" [meta-common-mode-map easy-menu-do-define meta-mode-menu "Menu used in Metafont or MetaPost mode." "Meta" ["Forward Environment" meta-beginning-of-defun t] ["Backward Environment" meta-end-of-defun t] "--" ["Indent Line" meta-indent-line t] ["Indent Environment" meta-indent-defun t] ["Indent Region" meta-indent-region :active (meta-mark-active)] ["Indent Buffer" meta-indent-buffer t] ["Comment Out Environment" meta-comment-defun t] ["Uncomment Environment" meta-uncomment-defun t] ["Comment Out Region" meta-comment-region :active (meta-mark-active)] ["Uncomment Region" meta-uncomment-region :active (meta-mark-active)] ["Complete Symbol" completion-at-point t]] 19)
#@79 Return whether the mark and region are currently active in this buffer.
(fn)
(defalias 'meta-mark-active #[0 "\301\300!\203 \207\302 \207" [mark-active boundp mark] 2 (#$ . 24619)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\311&\210\300\320\302\303\321DD\322\306\307\310\311&\210\312\323N\204J \324\312\323\325\326!#\210\327\330!\204V \324\330\331\332#\210\300\207" [custom-declare-variable meta-mode-load-hook funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Hook evaluated when first loading Metafont or MetaPost mode." :type hook :group meta-font meta-common-mode-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Hook evaluated by both `metafont-mode' and `metapost-mode'." metafont-mode-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Hook evaluated by `metafont-mode' after `meta-common-mode-hook'." metapost-mode-hook #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Hook evaluated by `metapost-mode' after `meta-common-mode-hook'." variable-documentation put purecopy "Hook run when entering -Meta-common- mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp meta-common-mode-map definition-name meta-common-mode] 8)
(defvar meta-common-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [meta-common-mode-map variable-documentation put purecopy "Keymap for `meta-common-mode'." boundp meta-common-mode-syntax-table definition-name meta-common-mode] 5)
(defvar meta-common-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [meta-common-mode-syntax-table variable-documentation put purecopy "Syntax table for `meta-common-mode'." meta-common-mode derived-mode-parent prog-mode] 5)
#@245 Common initialization for Metafont or MetaPost mode.
In addition to any hooks its parent mode `prog-mode' might have run,
this mode runs the hook `meta-common-mode-hook', as the final step
during initialization.
\{meta-common-mode-map}
(fn)
(defalias 'meta-common-mode #[0 "\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\2035 \211\321 =\203; \322\f\323 \"\210\210\324 !\210\325\f!\210
2\306\326!\2103\327P\306\330!\2103\327P\306\331!\210\307\306\332!\210\333\306\334!\210\335 \306\336!\210\337 \306\340!\210\341 \342\343\344\"\210\306\345!\210\307%\346\347\350\341\307$\210\306\351!\210\352)\306\353!\210\354+\306\355!\210\356-\3574!\210)\360\361!\207" [delay-mode-hooks major-mode mode-name meta-common-mode-map meta-common-mode-syntax-table meta-mode-abbrev-table make-local-variable t prog-mode meta-common-mode "-Meta-common-" 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 paragraph-start "\\|$" paragraph-separate paragraph-ignore-fill-prefix comment-start-skip "%+[ \f]*" comment-start "%" comment-end "" comment-multi-line nil modify-syntax-entry 12 "_ " parse-sexp-ignore-comments add-hook completion-at-point-functions meta-completions-at-point comment-indent-function meta-comment-indent indent-line-function meta-indent-line font-lock-defaults (meta-font-lock-keywords nil nil ((95 . "w")) nil (font-lock-comment-start-regexp . "%")) easy-menu-add run-mode-hooks meta-common-mode-hook local-abbrev-table page-delimiter meta-mode-menu] 5 (#$ . 26531) nil])
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [metafont-mode-hook variable-documentation put purecopy "Hook run when entering Metafont mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp metafont-mode-map definition-name metafont-mode] 5)
(defvar metafont-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [metafont-mode-map variable-documentation put purecopy "Keymap for `metafont-mode'." boundp metafont-mode-syntax-table definition-name metafont-mode] 5)
(defvar metafont-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [metafont-mode-syntax-table variable-documentation put purecopy "Syntax table for `metafont-mode'." metafont-mode-abbrev-table definition-name metafont-mode] 5)
(defvar metafont-mode-abbrev-table (progn (define-abbrev-table 'metafont-mode-abbrev-table nil) metafont-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [metafont-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `metafont-mode'." metafont-mode derived-mode-parent meta-common-mode] 5)
#@234 Major mode for editing Metafont sources.
In addition to any hooks its parent mode `meta-common-mode' might have run,
this mode runs the hook `metafont-mode-hook', as the final step
during initialization.
\{metafont-mode-map}
(fn)
(defalias 'metafont-mode #[0 "\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\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
%=\204R \326
\325%C#\210\327 !\210\330\f!\210
%\306\331!\210\332\306\333!\210\332\334\335&\"\210\306\336!\210\337\340\331E\341\342DD )\343\344!\207" [delay-mode-hooks major-mode mode-name metafont-mode-map metafont-mode-syntax-table metafont-mode-abbrev-table make-local-variable t meta-common-mode metafont-mode "Metafont" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table meta-symbol-list nil meta-symbol-changed apply meta-add-symbols meta-complete-list "\\<\\(\\sw+\\)" 1 "" ispell-complete-word run-mode-hooks metafont-mode-hook local-abbrev-table metafont-symbol-list] 5 (#$ . 29556) nil])
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [metapost-mode-hook variable-documentation put purecopy "Hook run when entering MetaPost mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp metapost-mode-map definition-name metapost-mode] 5)
(defvar metapost-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [metapost-mode-map variable-documentation put purecopy "Keymap for `metapost-mode'." boundp metapost-mode-syntax-table definition-name metapost-mode] 5)
(defvar metapost-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [metapost-mode-syntax-table variable-documentation put purecopy "Syntax table for `metapost-mode'." metapost-mode-abbrev-table definition-name metapost-mode] 5)
(defvar metapost-mode-abbrev-table (progn (define-abbrev-table 'metapost-mode-abbrev-table nil) metapost-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [metapost-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `metapost-mode'." metapost-mode derived-mode-parent meta-common-mode] 5)
#@234 Major mode for editing MetaPost sources.
In addition to any hooks its parent mode `meta-common-mode' might have run,
this mode runs the hook `metapost-mode-hook', as the final step
during initialization.
\{metapost-mode-map}
(fn)
(defalias 'metapost-mode #[0 "\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\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
%=\204R \326
\325%C#\210\327 !\210\330\f!\210
%\306\331!\210\332\306\333!\210\332\334\335&\"\210\306\336!\210\337\340\331E\341\342DD )\343\344!\207" [delay-mode-hooks major-mode mode-name metapost-mode-map metapost-mode-syntax-table metapost-mode-abbrev-table make-local-variable t meta-common-mode metapost-mode "MetaPost" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table meta-symbol-list nil meta-symbol-changed apply meta-add-symbols meta-complete-list "\\<\\(\\sw+\\)" 1 "" ispell-complete-word run-mode-hooks metapost-mode-hook local-abbrev-table metapost-symbol-list] 5 (#$ . 32103) nil])
(byte-code "\300\301!\210\302\303!\207" [provide meta-mode run-hooks meta-mode-load-hook] 2)