;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require matlab matlab-shell matlab-netshell semantic/symref semantic/symref/list] 2) #@41 Keymap used by matlab mode maintainers. (defvar matlab-maint-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)\207" [km make-sparse-keymap define-key [f8] matlab-maint-run-tests [f9] matlab-maint-compile-matlab-emacs [f10] matlab-maint-reload-mode [f7] matlab-maint-symref-this [f5] matlab-maint-show-info] 4) (#$ . 252)) #@32 MATLAB Maintainer's Minor Mode (defvar matlab-maint-menu nil (#$ . 650)) (easy-menu-do-define 'matlab-maint-menu matlab-maint-mode-map "MATLAB Maintainer's Minor Mode" '("MMaint" ["Compile" matlab-maint-compile-matlab-emacs t] ["Clean" matlab-maint-compile-clean t] ["Run Tests" matlab-maint-run-tests t] ["Pick Emacs to run" matlab-maint-pick-emacs t] ["Toggle IO Logging" matlab-maint-toggle-io-tracking :style toggle :selected matlab-shell-io-testing] ["Display logger frame" matlab-maint-toggle-logger-frame :style toggle :selected (and matlab-maint-logger-frame (frame-live-p matlab-maint-logger-frame))])) #@115 Non-nil if Matlab-Maint minor mode is enabled. Use the command `matlab-maint-minor-mode' to change this variable. (defvar matlab-maint-minor-mode nil (#$ . 1269)) (make-variable-buffer-local 'matlab-maint-minor-mode) #@590 Minor mode for matlab-mode maintainrs. This is a minor mode. If called interactively, toggle the `Matlab-Maint minor mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `matlab-maint-minor-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'matlab-maint-minor-mode #[(&optional arg) "\305  \306=\203\n?\202 \247\203 \307W\203\310\202\311\312\303!\2032\313\302 \"\n\2032\302 B\314\315\n\203<\316\202=\317\"\210\320\321!\203b\305 \203Q\305 \232\203b\322\323\324\n\203]\325\202^\326\f#\210))\327 \210\n\207" [#1=#:last-message arg matlab-maint-minor-mode local-minor-modes local current-message toggle 1 nil t boundp delq run-hooks matlab-maint-minor-mode-hook matlab-maint-minor-mode-on-hook matlab-maint-minor-mode-off-hook called-interactively-p any " in current buffer" message "Matlab-Maint minor mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 1493) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar matlab-maint-minor-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\210\303\314\315\316#\207" [matlab-maint-mode-map matlab-maint-minor-mode-hook variable-documentation put "Hook run after entering or leaving `matlab-maint-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode matlab-maint-minor-mode " MMaint" global-matlab-maint-minor-mode globalized-minor-mode t] 6) (defvar matlab-maint-minor-mode-major-mode nil nil) (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313& \207" [make-variable-buffer-local matlab-maint-minor-mode-major-mode custom-declare-variable global-matlab-maint-minor-mode nil "Non-nil if Global Matlab-Maint minor mode is enabled.\nSee the `global-matlab-maint-minor-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-matlab-maint-minor-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10) #@651 Toggle Matlab-Maint minor mode in all buffers. With prefix ARG, enable Global Matlab-Maint minor mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Matlab-Maint minor mode is enabled in all buffers where `(lambda nil Should we turn on in this buffer? Only if in the project. (let ((dir (expand-file-name default-directory)) (ml (file-name-directory (expand-file-name (locate-library matlab))))) (when (string= ml (substring dir 0 (min (length dir) (length ml)))) (matlab-maint-minor-mode 1))))' would do it. See `matlab-maint-minor-mode' for more information on Matlab-Maint minor mode. (defalias 'global-matlab-maint-minor-mode #[(&optional arg) "\306 \307\303 \310=\203\311\303!?\202\" \247\203! \312W\203!\313\202\"\314\"\210\315\302!\2039\316\303\n\"\311\303!\2039\303\nB \203O\317\320\321\"\210\317\322\323\"\210\317\324\325\"\210\202^\326\320\321\"\210\326\322\323\"\210\326\324\325\"\210\327 \313\211\203\253 @r\fq\210 \203\232\330,!\331\330\332\333!!!-.-.\334.G-G^O\230\203\226\335\312!\210*\202\243\203\243\335\336!\210) A\211\204g*\337\340\311\303!\203\270\341\202\271\342\"\210\343\344!\203\346\345\303!\210\306 \203\321\306 \232\203\346\346/\347\350\311\303!\203\340\351\202\341\352/#\210))\353 \210\311\303!\207" [#1=#:last-message arg global-minor-modes global-matlab-maint-minor-mode buf --dolist-tail-- current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook global-matlab-maint-minor-mode-enable-in-buffers find-file-hook global-matlab-maint-minor-mode-check-buffers change-major-mode-hook global-matlab-maint-minor-mode-cmhh remove-hook buffer-list expand-file-name file-name-directory locate-library "matlab" 0 matlab-maint-minor-mode -1 run-hooks global-matlab-maint-minor-mode-hook global-matlab-maint-minor-mode-on-hook global-matlab-maint-minor-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Matlab-Maint minor mode %sabled%s" "en" "dis" force-mode-line-update default-directory ml dir local] 6 (#$ . 4076) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar global-matlab-maint-minor-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [global-matlab-maint-minor-mode-map global-matlab-maint-minor-mode-hook variable-documentation put "Hook run after entering or leaving `global-matlab-maint-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-matlab-maint-minor-mode boundp] 6) (defvar matlab-maint-minor-mode-set-explicitly nil nil) (make-variable-buffer-local 'matlab-maint-minor-mode-set-explicitly) (defalias 'matlab-maint-minor-mode-set-explicitly #[nil "\301\211\207" [matlab-maint-minor-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put matlab-maint-minor-mode-set-explicitly definition-name global-matlab-maint-minor-mode add-hook matlab-maint-minor-mode-hook] 4) (defvar global-matlab-maint-minor-mode-buffers nil) (defalias 'global-matlab-maint-minor-mode-enable-in-buffers #[nil "\306 \306\211\205\206 @\307\n!\203~r\nq\210\f\204z =\204z\203U\310\311!\210\312!\313\312\314\315!!!\316GG^O\230\203Q\310\317!\210*\202z\312!\313\312\314\315!!!\316GG^O\230\203y\310\317!\210*) A\211\204\f\306+\207" [global-matlab-maint-minor-mode-buffers buffers buf --dolist-tail-- matlab-maint-minor-mode-set-explicitly matlab-maint-minor-mode-major-mode nil buffer-live-p matlab-maint-minor-mode -1 expand-file-name file-name-directory locate-library "matlab" 0 1 major-mode default-directory ml dir] 6]) (put 'global-matlab-maint-minor-mode-enable-in-buffers 'definition-name 'global-matlab-maint-minor-mode) (defalias 'global-matlab-maint-minor-mode-check-buffers #[nil "\300 \210\301\302\303\"\207" [global-matlab-maint-minor-mode-enable-in-buffers remove-hook post-command-hook global-matlab-maint-minor-mode-check-buffers] 3]) (put 'global-matlab-maint-minor-mode-check-buffers 'definition-name 'global-matlab-maint-minor-mode) (defalias 'global-matlab-maint-minor-mode-cmhh #[nil "p\211 \235\203 \210\202 B)\302\303\304\"\207" [#1=#:x global-matlab-maint-minor-mode-buffers add-hook post-command-hook global-matlab-maint-minor-mode-check-buffers] 4]) (put 'global-matlab-maint-minor-mode-cmhh 'definition-name 'global-matlab-maint-minor-mode) #@48 Show info about line in current matlab buffer. (defalias 'matlab-maint-show-info #[nil "\301=\205\302 \207" [major-mode matlab-mode matlab-show-line-info] 2 (#$ . 8718) nil]) #@46 Open a symref buffer on symbol under cursor. (defalias 'matlab-maint-symref-this #[nil "\303 \210\304 \210\305 \211\204\306\307!\210\310\311\211@\262\"\210\211@\262\312 !\313\n \"\210\314 +\207" [ct name res save-buffer semantic-fetch-tags semantic-current-tag error "Place cursor inside tag to be searched for" message "Gathering References for %s.." semantic-symref-find-references-by-name semantic-symref-produce-list-on-results semantic-symref-list-expand-all] 5 (#$ . 8902) nil]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\207" [custom-declare-variable matlab-maint-compile-opts '("emacs" "emacs24" "emacs25" "emacs26") "Various emacs versions we can use to compile with." :group matlab-maint :type (repeat (string :tag "Emacs Command: ")) matlab-maint-compile-emacs "emacs" "The EMACS to pass into make." string] 8) #@40 Select the Emacs to use for compiling. (defalias 'matlab-maint-pick-emacs #[(emacscmd) "\211\207" [emacscmd matlab-maint-compile-emacs] 2 (#$ . 9781) (list (completing-read "Emacs to compile MATLAB: " matlab-maint-compile-opts nil t (car matlab-maint-compile-opts)))]) #@40 Run make for the matlab-emacs project. (defalias 'matlab-maint-compile-matlab-emacs #[nil "\212\301\302!\210\303\230\203\304\305!\202\304\306P!)\207" [matlab-maint-compile-emacs matlab-maint-set-buffer-to "matlab.el" "emacs" compile "make" "make EMACS="] 3 (#$ . 10058) nil]) #@40 Run make for the matlab-emacs project. (defalias 'matlab-maint-compile-clean #[nil "\212\300\301!\210\302\303!)\207" [matlab-maint-set-buffer-to "matlab.el" compile "make clean"] 2 (#$ . 10346) nil]) #@111 Run the tests for matlab mode. With universal ARG, ask for the code to be run with output tracking turned on. (defalias 'matlab-maint-run-tests #[(arg) "\302 \203\303 \210\212\304\305!\210\204 \203\306\307!\210\202 \306\310!\210)\311\312!\210\313 \210db\207" [arg matlab-shell-io-testing buffer-file-name save-buffer matlab-maint-set-buffer-to "tests/Makefile" compile "make TESTDEBUG=1" "make" switch-to-buffer "*compilation*" delete-other-windows] 2 (#$ . 10553) "P"]) #@61 Reload matlab mode, and refresh displayed ML buffers modes. (defalias 'matlab-maint-reload-mode #[nil "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307 !\"\210\310\311!\207" [load-library "matlab-syntax" "matlab-scan" "matlab" mapc #[(b) "rq\210 \302=\205\303\304\"\210\302 )\207" [b major-mode matlab-mode message "Updating matlab mode in %S"] 3] buffer-list selected-frame message "loading done"] 4 (#$ . 11038) nil]) #@82 Set the current buffer to FILE found in matlab-mode's source. Return the buffer. (defalias 'matlab-maint-set-buffer-to #[(file) "\303\304\305!!\306 \"\307\n!q*\207" [ml file newf file-name-directory locate-library "matlab" expand-file-name find-file-noselect] 3 (#$ . 11475)]) #@42 Toggle tracking of IO with MATLAB Shell. (defalias 'matlab-maint-toggle-io-tracking #[nil "?\301\302\203 \303\202\304\"\207" [matlab-shell-io-testing message "MATLAB Shell IO logging %s" "enabled" "disabled"] 3 (#$ . 11761) nil]) #@35 Frame displaying log information. (defvar matlab-maint-logger-frame nil (#$ . 12003)) #@46 Display a frame showing various log buffers. (defalias 'matlab-maint-toggle-logger-frame #[nil "\203\303!\203\304!\210\305\211\207\306 \307 p\310\216\311\312\"\210\313 \210\314\315!\210\316 \205:\317 \210\320\321!\210\314\322\316 !!+\207" [matlab-maint-logger-frame #1=#:old-buffer #2=#:old-frame frame-live-p delete-frame nil make-frame selected-frame #[nil "\302!\203 \303\304\"\210\305 !\205 q\207" [#2# #1# frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord delete-other-windows switch-to-buffer "*Messages*" matlab-netshell-client split-window-horizontally other-window 1 process-buffer] 3 (#$ . 12095) nil]) (provide 'matlab-maint)