ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/progmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/progmodes/m4-mode.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\302\303\304\305\306\307\310\311& \210\312\313\314\315\316\317\320\321\310\301& \210\312\322\302\323\320\324\310\301&\207" [custom-declare-group m4 nil "m4 code editing commands for Emacs." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :prefix "m4-" :group languages custom-declare-variable m4-program "m4" "File name of the m4 executable.\nIf m4 is not in your PATH, set this to an absolute file name." :version "24.4" :type file m4-program-options "Options to pass to `m4-program'." (repeat string)] 10)
#@43 Default `font-lock-keywords' for M4 mode.
(defvar m4-font-lock-keywords '(("\\(\\_<\\(m4_\\)?dnl\\_>\\).*$" . font-lock-comment-face) ("\\$[*#@0-9]" . font-lock-variable-name-face) ("\\$\\@" . font-lock-variable-name-face) ("\\$\\*" . font-lock-variable-name-face) ("\\_<\\(m4_\\)?\\(builtin\\|change\\(com\\|quote\\|word\\)\\|d\\(e\\(bug\\(file\\|mode\\)\\|cr\\|f\\(ine\\|n\\)\\)\\|iv\\(ert\\|num\\)\\|nl\\|umpdef\\)\\|e\\(rrprint\\|syscmd\\|val\\)\\|f\\(ile\\|ormat\\)\\|gnu\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(exit\\|wrap\\)\\|aketemp\\)\\|p\\(atsubst\\|opdef\\|ushdef\\)\\|regexp\\|s\\(hift\\|include\\|ubstr\\|ys\\(cmd\\|val\\)\\)\\|tra\\(ceo\\(ff\\|n\\)\\|nslit\\)\\|un\\(d\\(efine\\|ivert\\)\\|ix\\)\\)\\_>" . font-lock-keyword-face)) (#$ . 962))
#@27 Hook called by `m4-mode'.
(custom-declare-variable 'm4-mode-hook nil '(#$ . 1783) :type 'hook :group 'm4)
#@39 Syntax table used while in `m4-mode'.
(defvar m4-mode-syntax-table (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\314#\210\302\316\317#\210\302\320\314#\210\302\321\314#\210)\207" [table make-syntax-table modify-syntax-entry 96 "('" 39 ")`" 35 "<\n" 10 ">#" 123 "." 125 95 "_" 42 34] 4) (#$ . 1895))
#@50 Return non-nil if POS is inside a quoted string.
(defalias 'm4--quoted-p #[(pos) "\304\305\212\306 !)8\304\211\203# @\211f\307=\203 \310 A\211\204 *)\207" [quoted pos o --dolist-tail-- nil 9 syntax-ppss 96 t] 4 (#$ . 2276)])
(defconst m4-syntax-propertize #[(start end) "b\210` W\205/ \305\306 \307#\205/ \310\224\310\225\311\310\224!\205 \312 \n\203+ \313\f \314\n$\210+\202 \207" [start end syntax me mb re-search-forward "#" t 0 m4--quoted-p (1) put-text-property syntax-table] 5])
(defvar m4-mode-map (byte-code "\302 \302 \303 \304\305#\210\303 \306\307#\210\303 \310\311#\210\303 \312\313B#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210 *\207" [menu-map map make-sparse-keymap define-key "" m4-m4-buffer "" m4-m4-region "" comment-region [menu-bar m4-mode] "M4" [m4c] (menu-item "Comment Region" comment-region :help "Comment Region") [m4b] (menu-item "M4 Buffer" m4-m4-buffer :help "Send contents of the current buffer to m4") [m4r] (menu-item "M4 Region" m4-m4-region :help "Send contents of the current region to m4")] 5))
#@44 Send contents of the current buffer to m4.
(defalias 'm4-m4-buffer #[nil "\302ed\303\304 B\305#\306\307%\210\310\306!\207" [m4-program m4-program-options shell-command-on-region mapconcat identity " " "*m4-output*" nil switch-to-buffer-other-window] 7 (#$ . 3350) nil])
#@44 Send contents of the current region to m4.
(defalias 'm4-m4-region #[nil "\302`\303 \304\305 B\306#\307\310%\210\311\307!\207" [m4-program m4-program-options shell-command-on-region mark mapconcat identity " " "*m4-output*" nil switch-to-buffer-other-window] 7 (#$ . 3627) nil])
#@54 Return the name of the M4 function at point, or nil.
(defalias 'm4-current-defun-name #[nil "\212\300\301\302\303#\205\f \304\305!)\207" [re-search-backward "^\\(\\(m4_\\)?define\\|A._DEFUN\\)(\\[?\\([A-Za-z0-9_]+\\)" nil t match-string-no-properties 3] 4 (#$ . 3913)])
#@159 Hook run after entering m4 mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar m4-mode-hook nil (#$ . 4190))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp m4-mode-map put definition-name m4-mode] 4)
(defvar m4-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" [m4-mode-map variable-documentation put purecopy "Keymap for `m4-mode'." boundp m4-mode-syntax-table definition-name m4-mode] 5)
(defvar m4-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [m4-mode-syntax-table variable-documentation put purecopy "Syntax table for `m4-mode'." m4-mode-abbrev-table definition-name m4-mode] 5)
(defvar m4-mode-abbrev-table (progn (define-abbrev-table 'm4-mode-abbrev-table nil) m4-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [m4-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `m4-mode'." m4-mode derived-mode-parent prog-mode] 5)
#@205 A major mode to edit m4 macro files.
In addition to any hooks its parent mode `prog-mode' might have run,
this mode runs the hook `m4-mode-hook', as the final step
during initialization.
\{m4-mode-map}
(defalias 'm4-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#\325\"\204V #$=\204V \326#\325$C#\210\327 !\210\330\f!\210#$\306\331!\210\332\306\333!\210\307\306\334!\210\335 \306\336!\210% \306\337!\210\340 )\341\342!\207" [delay-mode-hooks major-mode mode-name m4-mode-map m4-mode-syntax-table parent make-local-variable t prog-mode m4-mode "m4" 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 comment-start "#" parse-sexp-ignore-comments add-log-current-defun-function m4-current-defun-name syntax-propertize-function font-lock-defaults (m4-font-lock-keywords nil) run-mode-hooks m4-mode-hook m4-mode-abbrev-table local-abbrev-table m4-syntax-propertize] 6 (#$ . 5350) nil])
(provide 'm4-mode)
Kontol Shell Bypass