;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\301]\302\303!\210\302\304!\210\302\305!\207" [max-lisp-eval-depth 500 require j-font-lock j-console j-help] 2) #@18 `j-mode' version (defconst j-mode-version "1.1.1" (#$ . 213)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\302\312\313\314\304\315&\207" [custom-declare-group j-mode nil "A mode for J" :group languages :prefix "j-" custom-declare-variable j-mode-hook "Hook called by `j-mode'" :type hook j] 8) #@25 Keymap for J major mode (defvar j-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210)\207" [map make-sparse-keymap define-key "!" j-console "" j-console-execute-buffer "" j-console-execute-region "\f" j-console-execute-line "h" j-help-lookup-symbol "" j-help-lookup-symbol-at-point] 4) (#$ . 528)) #@39 Drop-down menu for j-mode interaction (defvar j-mode-menu nil (#$ . 927)) #@13 J Mode menu (defvar j-mode-menu nil (#$ . 1007)) (easy-menu-do-define 'j-mode-menu j-mode-map "J Mode menu" '("J" ["Start J Console" j-console t] ["Execute Buffer" j-console-execute-buffer t] ["Execute Region" j-console-execute-region t] ["Execute Line" j-console-execute-line t] "---" ["J Symbol Look-up" j-help-lookup-symbol t] ["J Symbol Dynamic Look-up" j-help-lookup-symbol-at-point t] ["Help on J-mode" describe-mode t])) #@26 Major mode for editing J (defalias 'j-mode #[nil "\306 \210\307!\210\310\311\312 !\210\313\304!\210\314\313\305!\210\315\313\316!\210\317\313\320!\210\321\322\323!\207" [j-mode-map mode-name major-mode j-font-lock-syntax-table comment-start comment-start-skip kill-all-local-variables use-local-map "J" j-mode set-syntax-table make-local-variable "NB. " "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\)NB. *" font-lock-comment-start-skip "NB. *" font-lock-defaults (j-font-lock-keywords nil nil nil nil (font-lock-syntactic-face-function . j-font-lock-syntactic-face-function)) run-mode-hooks j-mode-hook] 2 (#$ . 1441) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [add-to-list auto-mode-alist ("\\.ij[rstp]$" . j-mode) provide j-mode] 3)