%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\"\210\300\303\302\"\210\304\305\306\307\310\311%\210\312\313\306\314\315\316%\210\317\320\321\322#\210\317\323\324\325#\210\317\326\327\330#\210\317\331\332\333#\207" [autoload sieve-manage "sieve" sieve-upload custom-declare-group sieve nil "Sieve." :group languages custom-declare-variable sieve-mode-hook "Hook run in sieve mode buffers." :type hook custom-declare-face sieve-control-commands ((((type tty) (class color)) (:foreground "blue" :weight light)) (((class grayscale) (background light)) (:foreground "LightGray" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "Orchid")) (((class color) (background dark)) (:foreground "LightSteelBlue")) (t (:bold t))) "Face used for Sieve Control Commands." sieve-action-commands ((((type tty) (class color)) (:foreground "blue" :weight bold)) (((class color) (background light)) (:foreground "Blue")) (((class color) (background dark)) (:foreground "LightSkyBlue")) (t (:inverse-video t :bold t))) "Face used for Sieve Action Commands." sieve-test-commands ((((type tty) (class color)) (:foreground "magenta")) (((class grayscale) (background light)) (:foreground "LightGray" :bold t :underline t)) (((class grayscale) (background dark)) (:foreground "Gray50" :bold t :underline t)) (((class color) (background light)) (:foreground "CadetBlue")) (((class color) (background dark)) (:foreground "Aquamarine")) (t (:bold t :underline t))) "Face used for Sieve Test Commands." sieve-tagged-arguments ((((type tty) (class color)) (:foreground "cyan" :weight bold)) (((class grayscale) (background light)) (:foreground "LightGray" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "Purple")) (((class color) (background dark)) (:foreground "Cyan")) (t (:bold t))) "Face used for Sieve Tagged Arguments."] 6)
(defconst sieve-font-lock-keywords '(("\\<\\(els\\(?:e\\|if\\)\\|if\\|require\\|stop\\)\\>" quote sieve-control-commands) ("\\<\\(discard\\|fileinto\\|keep\\|re\\(?:\\(?:dir\\|j\\)ect\\)\\)\\>" quote sieve-action-commands) ("\\<\\(a\\(?:ddress\\|\\(?:ll\\|ny\\)of\\)\\|body\\|e\\(?:nvelope\\|xists\\)\\|false\\|header\\|not\\|\\(?:siz\\|tru\\)e\\)\\>" quote sieve-test-commands) ("\\Sw+:\\sw+" quote sieve-tagged-arguments)))
#@44 Syntax table in use in sieve-mode buffers.
(defvar sieve-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\317#\210\302\321\317#\210\302\322\317#\210\302\323\317#\210\302\324\317#\210\302\325\317#\210\302\326\317#\210\302\327\330#\210\302\331\332#\210)\207" [st make-syntax-table modify-syntax-entry 92 "\\" 10 "> " 12 35 "< " 47 ". 14" 42 ". 23b" 43 "." 45 61 37 60 62 38 124 95 "_" 39 "\""] 4) (#$ . 2776))
#@29 Key map used in sieve mode.
(defvar sieve-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [map make-sparse-keymap define-key "\f" sieve-upload "" sieve-upload-and-kill "
" sieve-manage] 4) (#$ . 3326))
#@13 Sieve Menu.
(defvar sieve-mode-menu nil (#$ . 3579))
(easy-menu-do-define 'sieve-mode-menu sieve-mode-map "Sieve Menu." '("Sieve" ["Upload script" sieve-upload t] ["Manage scripts on server" sieve-manage t]))
(defalias 'sieve-syntax-propertize #[(beg end) "b\210\306 !\210 \211b\210` W\205` \307\310 \311#\205` \312\224\204& \313\224\203 \312\224\2034 \314\312\224\312\225\315\316$\210\313\224\203 \313\224\313\225\212\317\320\321\224!8)?\205J \322 \203X \314
\f\315 $\210\306 !\210+\202 *\207" [beg end start syntax me mb sieve-syntax-propertize-text re-search-forward "\\_<text:[ ]*\\(?:#.*\\(.\\)\\)?\\(\n\\)" t 1 2 put-text-property syntax-table (12) 8 syntax-ppss 0 (15)] 6])
(defalias 'sieve-syntax-propertize-text #[(end) "\302 \3038\304=\205 \305\306 \307#\205 \310\311\224\311\225\312\313$)\207" [ppss end syntax-ppss 3 t re-search-forward "^\\.\\(\n\\)" move put-text-property 1 syntax-table (15)] 5])
(defvar sieve-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [sieve-mode-hook variable-documentation put "Hook run after entering Sieve mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp sieve-mode-map definition-name sieve-mode] 4)
(defvar sieve-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [sieve-mode-abbrev-table sieve-mode-map variable-documentation put purecopy "Keymap for `sieve-mode'." boundp sieve-mode-syntax-table definition-name sieve-mode (lambda (#1=#:def-tmp-var) (defvar sieve-mode-syntax-table #1#)) make-syntax-table "Syntax table for `sieve-mode'." (lambda (#1#) (defvar sieve-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `sieve-mode'." derived-mode-parent c-mode] 5)
#@311 Major mode for editing Sieve code.
This is much like C mode except for the syntax of comments. Its keymap
inherits from C mode's and it has the same variables for customizing
indentation. It has its own abbrev table and its own syntax table.
Turning on Sieve mode runs `sieve-mode-hook'.
\{sieve-mode-map}
(defalias 'sieve-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,P\306\333!\210\306\334!\210\335 \306\336!\210\337 \306\340!\210\341 \306\342!\210\343\"\306\344!\210\345$\346\347\211-#\210)\350\351!\207" [delay-mode-hooks major-mode mode-name sieve-mode-map sieve-mode-syntax-table parent make-local-variable t c-mode sieve-mode "Sieve" 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 paragraph-start "$\\|" paragraph-separate comment-start "#" comment-end "" comment-start-skip "#+ *" syntax-propertize-function sieve-syntax-propertize font-lock-defaults (sieve-font-lock-keywords nil nil ((95 . "w"))) easy-menu-add-item nil run-mode-hooks sieve-mode-hook sieve-mode-abbrev-table local-abbrev-table page-delimiter sieve-mode-menu] 6 (#$ . 5633) nil])
(provide 'sieve-mode)
Zerion Mini Shell 1.0