;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:51:22 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/progmodes/m4-mode.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.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 "`m4-mode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'm4 nil "m4 code editing commands for Emacs." :prefix "m4-" :group 'languages) #@33 File name of the m4 executable. (custom-declare-variable 'm4-program '(cond ((file-exists-p "/usr/local/bin/m4") "/usr/local/bin/m4") ((file-exists-p "/usr/bin/m4") "/usr/bin/m4") ((file-exists-p "/bin/m4") "/bin/m4") ((file-exists-p "/usr/ccs/bin/m4") "/usr/ccs/bin/m4") (t "m4")) '(#$ . 727) :type 'file :group 'm4) #@34 Options to pass to `m4-program'. (custom-declare-variable 'm4-program-options 'nil '(#$ . 1051) :type '(repeat string) :group 'm4) #@43 Default font-lock-keywords for `m4 mode'. (defvar m4-font-lock-keywords '(("\\(\\b\\(m4_\\)?dnl\\b\\|^\\#\\).*$" . font-lock-comment-face) ("\\$[*#@0-9]" . font-lock-variable-name-face) ("\\$\\@" . font-lock-variable-name-face) ("\\$\\*" . font-lock-variable-name-face) ("\\b\\(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\\)\\)\\b" . font-lock-keyword-face) ("\\b\\(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\\)\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(_undefine\\|exit\\|wrap\\)\\|aketemp\\)\\|p\\(atsubst\\|opdef\\|ushdef\\)\\|regexp\\|s\\(hift\\|include\\|ubstr\\|ys\\(cmd\\|val\\)\\)\\|tra\\(ceo\\(ff\\|n\\)\\|nslit\\)\\|undivert\\)\\)\\b" . font-lock-keyword-face)) (#$ . 1188)) #@28 *Hook called by `m4-mode'. (custom-declare-variable 'm4-mode-hook 'nil '(#$ . -2518) :type 'hook :group 'm4) #@39 Syntax table used while in `m4-mode'. (defvar m4-mode-syntax-table nil (#$ . 2633)) (byte-code "\304 \305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\317#\210\305\321\322#\210\305\323\322#\210\305\324\322#\210\305\324\322#\210\303 B\325\303!\204a\326 \327\n\330\331#\210\327\n\332\333#\210\327\n\334\335#\210\n)\304\207" [m4-mode-syntax-table current-load-list map m4-mode-map make-syntax-table modify-syntax-entry 96 "('" 39 ")`" 35 "<\n" 10 ">#" 123 "_" 125 42 "w" 95 34 boundp make-sparse-keymap define-key "" m4-m4-buffer "" m4-m4-region "" comment-region] 4) #@39 Abbrev table used while in `m4-mode'. (defvar m4-mode-abbrev-table nil (#$ . 3269)) (byte-code "\204 \301\300\302\"\210\302\207" [m4-mode-abbrev-table define-abbrev-table nil] 3) #@44 Send contents of the current buffer to m4. (defalias 'm4-m4-buffer #[nil "\301ed\302\303%\210\304\302!\207" [m4-program shell-command-on-region "*m4-output*" nil switch-to-buffer-other-window] 6 (#$ . 3456) nil]) #@44 Send contents of the current region to m4. (defalias 'm4-m4-region #[nil "\301`\302 \303\304%\210\305\303!\207" [m4-program shell-command-on-region mark "*m4-output*" nil switch-to-buffer-other-window] 6 (#$ . 3676) nil]) #@54 A major mode to edit m4 macro files. \{m4-mode-map}  (defalias 'm4-mode #[nil "\306 \210\307!\210\310\301!\210\311\310\302!\210\312 \310\313!\210\314\315\316 \317!\210\320\321!\207" [m4-mode-map comment-start parse-sexp-ignore-comments m4-mode-abbrev-table local-abbrev-table major-mode kill-all-local-variables use-local-map make-local-variable "#" t font-lock-defaults m4-mode "m4" (m4-font-lock-keywords nil) set-syntax-table run-hooks m4-mode-hook mode-name m4-mode-syntax-table] 2 (#$ . 3905) nil]) (provide 'm4-mode)