;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\306\310&\207" [require lisp-mode custom-declare-group lfe nil "LFE support." :group lisp languages] 8) (defvar prettify-symbols-alist nil) #@59 Prettfy symbols alist user in Lisp Flavoured Erlang mode. (defconst lfe--prettify-symbols-alist '(("lambda" . 955)) (#$ . 277)) #@60 Syntax table in use in Lisp Flavoured Erlang mode buffers. (defvar lfe-mode-syntax-table (byte-code "\302!\303\304\305 #\210\303\306\307 #\210 )\207" [lisp-mode-syntax-table table copy-syntax-table modify-syntax-entry 91 "(] " 93 ")[ "] 4) (#$ . 411)) #@40 Keymap for Lisp Flavoured Erlang mode. (defvar lfe-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210)\207" [map lisp-mode-shared-map make-sparse-keymap set-keymap-parent define-key "[" lfe-insert-brackets] 4) (#$ . 673)) #@50 Abbrev table used in Lisp Flavoured Erlang mode. (defvar lfe-mode-abbrev-table nil (#$ . 910)) #@42 *Hook for customizing Inferior LFE mode. (defvar lfe-mode-hook nil (#$ . -1011)) #@76 Enclose following `ARG' sexps in brackets. Leave point after open-bracket. (defalias 'lfe-insert-brackets #[(&optional arg) "\301\302\303#\207" [arg insert-pair 91 93] 4 (#$ . 1098) "P"]) #@109 Major mode for editing Lisp Flavoured Erlang. It's just like `lisp-mode'. Other commands: \{lfe-mode-map} (defalias 'lfe-mode #[nil "\304 \210\305\306\307 \210\310 \210\311\n!\210\312\313\314!\207" [major-mode mode-name lfe-mode-map imenu-case-fold-search kill-all-local-variables lfe-mode "LFE" lfe-mode-variables lfe-font-lock-setup use-local-map t run-mode-hooks lfe-mode-hook] 2 (#$ . 1294) nil]) #@26 Variables for LFE modes. (defalias 'lfe-mode-variables #[nil "\306!\210 \307\304!\210 \310P\307\305!\210\f\307\311!\210\312 \307\313!\210\314 \307\315!\210\316 \307\317!\210\320\307\321!\210\322\307\323!\210\312\307\324!\210\325\307\326!\210\327\307\330!\210\331\307\332!\210\333\307\334!\210\335\307\336!\210\337\307\340!\210\341 \307\323!\210\312\307\342!\210\"\343L\210\307\344!\210'$\307\345!\210\312%\307\346!\210(\211&\207" [lfe-mode-syntax-table lfe-mode-abbrev-table local-abbrev-table page-delimiter paragraph-start paragraph-separate set-syntax-table make-local-variable "\\|$" paragraph-ignore-fill-prefix t fill-paragraph-function lisp-fill-paragraph adaptive-fill-mode nil normal-auto-fill-function lisp-mode-auto-fill indent-line-function lisp-indent-line parse-sexp-ignore-comments outline-regexp ";;;;* \\|(" outline-level lisp-outline-level comment-start ";" comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *" comment-add 1 comment-column 40 comment-indent-function lisp-comment-indent lisp-indent-function lfe-indent-function imenu-generic-expression multibyte-syntax-as-symbol prettify-symbols-alist lisp-imenu-generic-expression lfe--prettify-symbols-alist] 2 (#$ . 1706)]) #@40 Expressions to highlight in LFE modes. (defconst lfe-font-lock-keywords '(("(\\(def\\(?:module\\|opaque\\|record\\|spec\\|type\\)\\)\\>[ ]*(?\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-type-face nil t)) ("(\\(def\\(?:ine\\|m\\(?:acro\\|ethod\\)\\|syntax\\|un\\)\\)\\>[ ]*(?\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t)) ("(\\(def\\(?:flavor\\|struct\\)\\|endflavor\\)\\>[ ]*(?\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-type-face nil t)) ("(\\(define-\\(?:function-spec\\|module\\|opaque-type\\|record\\|type\\)\\)\\>[ ]*(?\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-type-face nil t)) ("(\\(define-\\(?:function\\|macro\\|syntax\\)\\)\\>[ ]*(?\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t)) ("(\\(\\+\\+\\*?\\|a\\(?:fter\\|ndalso\\)\\|b\\(?:c\\|inary-comp\\)\\|c\\(?:a\\(?:ll\\|se\\|tch\\)\\|ond\\)\\|d\\(?:bg-ms\\|o\\)\\|e\\(?:ts-ms\\|\\(?:val-when-compi\\|xtend-modu\\)le\\)\\|f\\(?:let\\(?:\\*\\|rec\\)?\\|un\\(?:call\\)?\\)\\|if\\|l\\(?:ambda\\|c\\|et\\(?:\\*\\|-\\(?:function\\|macro\\)\\|rec-function\\)?\\|ist-comp\\)\\|ma\\(?:crolet\\|tch-\\(?:lambda\\|spec\\)\\)\\|orelse\\|prog[12n]\\|qlc\\|receive\\|syntaxlet\\|t\\(?:able-ms\\|r\\(?:ace-ms\\|y\\)\\)\\|when\\|[:?]\\)\\>" 1 font-lock-keyword-face) ("(\\(def\\(?:setup\\|te\\(?:ardown\\|st\\(?:cases?\\|gen\\|skip\\)?\\)\\)\\)\\>[ ]*(?\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t)) ("(\\(is_\\(?:atom\\|b\\(?:i\\(?:nary\\|tstring\\)\\|oolean\\)\\|f\\(?:loat\\|unction\\)\\|integer\\|list\\|map\\|number\\|p\\(?:id\\|ort\\)\\|re\\(?:cord\\|ference\\)\\|tuple\\)\\)\\>" 1 font-lock-builtin-face) ("(\\(/=\\|=\\(?:/=\\|:=\\|[<=]\\)\\|>=\\|abs\\|b\\(?:i\\(?:nary\\|t_size\\)\\|yte_size\\)\\|c\\(?:a\\(?:\\(?:a[ad]\\|d[ad]\\|[ad]\\)?r\\)\\|d\\(?:\\(?:a[ad]\\|d[ad]\\|[ad]\\)?r\\)\\|ons\\)\\|element\\|f\\(?:loat\\|unction\\)\\|hd\\|iolist_size\\|l\\(?:ength\\|ist\\*?\\)\\|m\\(?:a\\(?:ke_ref\\|p\\(?:-\\(?:get\\|set\\|update\\)\\)?\\)\\|ref\\|set\\|upd\\)\\|round\\|setelement\\|t\\(?:l\\|r\\(?:ef\\|unc\\)\\|set\\|uple\\(?:_size\\)?\\)\\|[*+/<>-]\\)\\>" 1 font-lock-builtin-face)) (#$ . 2955)) #@44 Configures font-lock for editing LFE code. (defalias 'lfe-font-lock-setup #[nil "\301\300!\210\302\211\207" [font-lock-defaults make-local-variable (lfe-font-lock-keywords nil nil (("+-*/.<>=!?$%_&~^:@" . "w")) beginning-of-defun (font-lock-mark-block-function . mark-defun) (font-lock-syntactic-face-function . lisp-font-lock-syntactic-face-function))] 2 (#$ . 5148)]) (byte-code "\302\303\304\305#\210\306\307\211\203 @\302\310\"\210 A\211\204*\311\312!\207" [lfe-ext --dolist-tail-- add-to-list auto-mode-alist ("\\.lfe\\(s\\|sh\\)?\\'" . lfe-mode) t (".beam" ".jam" ".vee") nil completion-ignored-extensions provide lfe-mode] 5) #@44 *Functions to run when LFE mode is loaded. (defvar lfe-load-hook nil (#$ . -5797)) (run-hooks 'lfe-load-hook)