;ELC ;;; Compiled by kwzh@gnu.org on Fri Apr 10 04:22:15 1998 ;;; from file /home/gd/gnu/emacs/lisp/progmodes/m4-mode.el ;;; in Emacs version 20.2.91.1 ;;; with bytecomp version 2.38 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (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")) '(#$ . 637) :type 'file :group 'm4) #@34 Options to pass to `m4-program'. (custom-declare-variable 'm4-program-options 'nil '(#$ . 961) :type '(repeat string) :group 'm4) (byte-code "ÂÀ!„ÃÀ B‡" [m4-font-lock-keywords current-load-list boundp (("\\(\\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) "Default font-lock-keywords for m4 mode.")] 2) #@28 *Hook called by `m4-mode'. (custom-declare-variable 'm4-mode-hook 'nil '(#$ . -2457) :type 'hook :group 'm4) #@30 syntax table used in m4 mode (defvar m4-mode-syntax-table nil (#$ . 2572)) (byte-code "Ä ÅÆÇ#ˆÅÈÉ#ˆÅÊË#ˆÅÌÍ#ˆÅÎÏ#ˆÅÐÏ#ˆÅÑÒ#ˆÅÓÒ#ˆÅÔÒ#ˆÅÔÒ#ˆÕÂ!„]Ö × ØÙ#ˆ× ÚÛ#ˆ× ÜÝ#ˆ ) Bć" [m4-mode-syntax-table map m4-mode-map current-load-list 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) (defalias 'm4-end-m4 #[(process event) "šƒ\nÃÄ!‡ÃÅÆ #!‡" [event process "kill\n" princ "m4 process done" format "Process: %s had the event `%s'"] 5]) (defalias 'm4-start-m4 #[nil "Á‰Ã\"Ä\"!ˆÅÆÇ!È\"‡" [m4-program-options eval append (start-process "m4process" "*m4 output*" m4-program) ("-e") set-process-sentinel get-process "m4process" m4-end-m4] 5]) #@43 send contents of the current buffer to m4 (defalias 'm4-m4-buffer #[nil "À ˆÁÂed#ˆÃÂ!ˆÄÅ!ˆÆÂ!‡" [m4-start-m4 process-send-region "m4process" process-send-eof switch-to-buffer-other-window "*m4 output*" delete-process] 4 (#$ . 3373) nil]) #@43 send contents of the current region to m4 (defalias 'm4-m4-region #[nil "À ˆÁÂ`à #ˆÄÂ!ˆÅÆ!‡" [m4-start-m4 process-send-region "m4process" mark process-send-eof switch-to-buffer-other-window "*m4 output*"] 4 (#$ . 3617) nil]) #@54 A major mode to edit m4 macro files. \{m4-mode-map}  (defalias 'm4-mode #[nil "Æ ˆÇ!ˆÈÁ!ˆÉÈÂ!ˆÊÈÅ!ˆËÌÍÎ!ˆÏÐ!‡" [m4-mode-map comment-start parse-sexp-ignore-comments major-mode mode-name font-lock-defaults kill-all-local-variables use-local-map make-local-variable "#" t m4-mode "m4" (m4-font-lock-keywords nil) set-syntax-table run-hooks m4-mode-hook m4-mode-syntax-table] 2 (#$ . 3848) nil]) (provide 'm4-mode)