;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\301\302\"\203A\303\304\305\"\210\303\306\307\"\210\303\310\311\"\210\303\312\313\"\210\303\314\315\"\210\303\316\317\"\210\303\320\321\"\210\303\322\323\"\210\303\324\325\"\210\303\326\327\"\210\303\330\331\"\210\202x\303\304\332\"\210\303\306\333\"\210\303\310\334\"\210\303\312\335\"\210\303\314\336\"\210\303\316\337\"\210\303\320\340\"\210\303\322\341\"\210\303\324\342\"\210\303\326\343\"\210\303\330\344\"\210\345\346!\203\206\303\347\346\"\210\202\213\303\347\350\"\210\345\351!\203\231\303\352\351\"\210\202\236\303\352\353\"\210\354\355!\203\254\356\357\355\"\210\202\261\356\357\360\"\210\301\207" [emacs-version string-match "X[Ee]macs" defalias matlab-make-overlay make-extent matlab-overlay-put set-extent-property matlab-overlay-get extent-property matlab-delete-overlay delete-extent matlab-overlay-start extent-start-position matlab-overlay-end extent-end-position matlab-previous-overlay-change previous-extent-change matlab-next-overlay-change next-extent-change matlab-overlays-at #[(pos) "\301\302!\205 \302\303\211#\207" [pos fboundp extent-list nil] 4] matlab-cancel-timer delete-itimer matlab-run-with-idle-timer #[(secs repeat function &rest args) "\304\305\306 \n\205\n \307\211 @&\210\310\311\305!\205\"\305\306 \n\205! $!\207" [function secs repeat args apply start-itimer "matlab" t error fboundp] 9] make-overlay overlay-put overlay-get delete-overlay overlay-start overlay-end previous-overlay-change next-overlay-change overlays-at cancel-timer run-with-idle-timer fboundp set-face-underlined matlab-set-face-underline set-face-underline-p set-face-bold matlab-set-face-bold set-face-bold-p boundp fill-column defvaralias matlab-fill-column default-fill-column] 3) (defalias 'matlab-called-interactively-p-helper #[nil "\300\301!\207" [called-interactively-p interactive] 2]) (byte-code "\300\301!\203\302\303\304\"\210\202\302\303\305\"\210\300\306!\203!\302\307\306\"\210\202&\302\307\310\"\210\300\311!\2039\302\312\311\"\210\302\313\314\"\210\202Z\300\315!\203L\302\312\315\"\210\302\313\316\"\210\202Z\302\312\317\320B\"\210\302\313\317\321B\"\210\300\322!\203h\302\323\322\"\210\202m\302\323\324\"\210\325\326!\203\327\330!\210\302\331\332\"\210\202\220\302\331\333\"\210\334\331\335\336#\210\337\331\340\341#\210\300\342!\203\236\302\343\342\"\210\202\243\302\343\344\"\210\300\207" [fboundp called-interactively-p defalias matlab-called-interactively-p matlab-called-interactively-p-helper interactive-p read-only-mode matlab-read-only-mode toggle-read-only point-at-bol matlab-point-at-bol matlab-point-at-eol point-at-eol line-beginning-position line-end-position macro #[nil "\212\300 \210`)\207" [beginning-of-line] 1] #[nil "\212\300\210`)\207" [nil] 1] set-keymap-parent matlab-set-keymap-parent #[(keymap parent) " \244\207" [keymap comint-mode-map] 2 "Set KEYMAP's parent to be PARENT."] locate-library "subr-x" require subr-x matlab-string-trim string-trim #[(string &optional regexp) " \206\304\305\306\n\307Q \"\203 \310\225\311O\305\312\n\313Q \"\203( \310\211\224O *\207" [string regexp regexp_ out "[ \n ]+" string-match "\\`\\(?:" "\\)" 0 nil "\\(?:" "\\)\\'"] 4 "Trim STRING of leading string matching REGEXP.\n\nREGEXP defaults to \"[ \\t\\n\\r]+\"."] function-put speed -1 put byte-optimizer byte-compile-inline-expand obarray-make matlab-obarray-make #[(sz) "\301\302\"\207" [sz make-vector 0] 3]] 4) #@104 Find the executable PROGRAM on the exec path, following any links. Return the base directory it is in. (defalias 'matlab-find-executable-directory #[(program) "\306 \306\211\203? @\307\f\n\"\310 !\2037\311 !\2037\312 !\211\f@\211 ;\2034\313 !\2026\n*) A\211\204\n*)\207" [dir exec-path P --dolist-tail-- program nm nil expand-file-name file-exists-p file-executable-p file-attributes file-name-directory fa lnk] 4 (#$ . 3508)]) #@60 Method for displaying COMPLETIONS with a COMMON-SUBSTRING. (defalias 'matlab-display-completion-list #[(completions common-substring) "\305W\204\305U\203 \306W\203\n D\202\nC\307\310\f\")\207" [emacs-major-version emacs-minor-version completions common-substring args 24 4 apply display-completion-list] 3 (#$ . 3960)]) (byte-code "\300\301!\210\302\303!\204\304\303\305\"\210\3061\300\307!0\210\202!\210\304\310\311\"\210\3121A\300\313!\210\302\314!\2044\304\315\316\"\210\302\317!?\205?\304\317\320\"0\207\210\321\322!\207" [require font-lock fboundp font-lock-ensure defalias font-lock-fontify-buffer (error) pulse pulse-momentary-highlight-region #[(start end &optional face) "\300\207" [nil] 1 "Compat impl of pulse command."] (error) eieio cl-defgeneric cl-defmethod defmethod cl-call-next-method call-next-method message "EIEIO not available. Only MATLAB editing enabled."] 3) #@122 Locate the emacsclient correspoinding to the current emacs binary defined by `invocation-name' in `invocation-directory' (defalias 'matlab-find-emacsclient #[nil "\304 \305\267\202=\306\n\304P!\203\n\304P\202`\306\n\307P!\203`\n\307P\202`\306\n\310P!\2035\n\310P\202`\311\312\n\"\210\202` \313\232\203R\306\n\304P!\203R\n\304P\202`\306\n\314 Q!\203`\n\314 Q)\207" [ec system-type invocation-directory invocation-name "emacsclient" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (darwin 8 windows-nt 38)) file-exists-p "bin/emacsclient" "emacsclientw.exe" error "unable to locate emacsclientw.exe. It should be in %s" "emacs" "emacsclient."] 4 (#$ . 4871)]) (provide 'matlab-compat)