Lines Matching defs:mode
1 ;;; sieve-mode.el --- Sieve code editing commands for Emacs
27 ;; This file contain editing mode functions and font-lock support for
28 ;; editing Sieve scripts. It sets up C-mode with support for
30 ;; strongly influenced by awk-mode.el.
35 ;; (setq auto-mode-alist (cons '("\\.siv\\'" . sieve-mode) auto-mode-alist))
54 (autoload 'c-mode "cc-mode")
63 (defcustom sieve-mode-hook nil
64 "Hook run in sieve mode buffers."
149 (defvar sieve-mode-syntax-table nil
150 "Syntax table in use in sieve-mode buffers.")
152 (if sieve-mode-syntax-table
154 (setq sieve-mode-syntax-table (make-syntax-table))
155 (modify-syntax-entry ?\\ "\\" sieve-mode-syntax-table)
156 (modify-syntax-entry ?\n "> " sieve-mode-syntax-table)
157 (modify-syntax-entry ?\f "> " sieve-mode-syntax-table)
158 (modify-syntax-entry ?\# "< " sieve-mode-syntax-table)
159 (modify-syntax-entry ?/ "." sieve-mode-syntax-table)
160 (modify-syntax-entry ?* "." sieve-mode-syntax-table)
161 (modify-syntax-entry ?+ "." sieve-mode-syntax-table)
162 (modify-syntax-entry ?- "." sieve-mode-syntax-table)
163 (modify-syntax-entry ?= "." sieve-mode-syntax-table)
164 (modify-syntax-entry ?% "." sieve-mode-syntax-table)
165 (modify-syntax-entry ?< "." sieve-mode-syntax-table)
166 (modify-syntax-entry ?> "." sieve-mode-syntax-table)
167 (modify-syntax-entry ?& "." sieve-mode-syntax-table)
168 (modify-syntax-entry ?| "." sieve-mode-syntax-table)
169 (modify-syntax-entry ?_ "_" sieve-mode-syntax-table)
170 (modify-syntax-entry ?\' "\"" sieve-mode-syntax-table))
174 (defvar sieve-mode-map
180 "Key map used in sieve mode.")
184 (defvar sieve-mode-menu nil
185 "Menubar used in sieve mode.")
187 ;; Code for Sieve editing mode.
190 (define-derived-mode sieve-mode c-mode "Sieve"
191 "Major mode for editing Sieve code.
192 This is much like C mode except for the syntax of comments. Its keymap
193 inherits from C mode's and it has the same variables for customizing
196 Turning on Sieve mode runs `sieve-mode-hook'."
206 (easy-menu-add-item nil nil sieve-mode-menu))
210 (easy-menu-define sieve-mode-menu sieve-mode-map
216 (provide 'sieve-mode)
219 ;; sieve-mode.el ends here