;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require matlab matlab-shell view] 2) #@56 These are keywords we also want to put mouse-faces on. (defvar matlab-shell-topic-mouse-face-keywords '(("^\\(\\w+/\\w+\\)[ ]+-" 1 font-lock-reference-face) ("^[ ]+\\(\\w+\\)[ ]+-" 1 font-lock-function-name-face) ("[ ]+See also " ("\\(\\w+\\)\\([,.]\\| and\\|$\\) *" nil nil (1 font-lock-reference-face)))) (#$ . 178)) #@57 Keywords useful for highlighting a MATLAB TOPIC buffer. (defvar matlab-shell-topic-font-lock-keywords (append matlab-shell-topic-mouse-face-keywords '(("^[^:\n]+:$" 0 font-lock-keyword-face) ("^[ ]+\\([^.\n]+[a-zA-Z.]\\)$" 1 'underline))) (#$ . 507)) #@36 Keywords for regular help buffers. (defvar matlab-shell-help-font-lock-keywords (append matlab-shell-topic-mouse-face-keywords '(("[ ]\\([A-Z]+\\)\\s-*=\\s-*\\([A-Z]+[0-9]*\\)(" (1 font-lock-variable-name-face) (2 font-lock-function-name-face)) ("[ ]\\([A-Z]+[0-9]*\\)(" (1 font-lock-function-name-face)) ("[ ]\\([A-Z]+[0-9]*\\)(" ("'?\\(\\w+\\)'?\\([,)]\\) *" nil nil (1 font-lock-variable-name-face))) ("\\<\\([A-Z]+[0-9]*\\)\\>" 1 font-lock-reference-face))) (#$ . 765)) (byte-code "\300\301!\204 \302\301\303\"\210\300\207" [fboundp view-major-mode defalias view-mode] 3) #@34 Keymap used in MATLAB help mode. (defvar matlab-shell-help-mode-map (byte-code "\304 \305\306\307#\210\305\310\311#\210\305\312 #\210\313\314\n\"\203%\305\315\316#\210\2021\305\317\316#\210\305\320\316#\210\321 \"\210)\207" [km matlab-help-map emacs-version view-mode-map make-sparse-keymap define-key [return] matlab-shell-help-choose "q" bury-buffer [(control h) (control m)] string-match "XEmacs" [button2] matlab-shell-help-click [mouse-2] [mouse-1] set-keymap-parent] 4) (#$ . 1351)) #@24 MATLAB shell Help menu (defvar matlab-shell-help-mode-menu nil (#$ . 1857)) (easy-menu-do-define 'matlab-shell-help-mode-menu matlab-shell-help-mode-map "MATLAB shell Help menu" '("MATLAB Help" ["Describe This Command" matlab-shell-help-choose t] "----" ["Describe Command" matlab-shell-describe-command t] ["Describe Variable" matlab-shell-describe-variable t] ["Command Apropos" matlab-shell-apropos t] "----" ["Exit" bury-buffer t])) #@48 Syntax table used in `matlab-shell-help-mode'. (defvar matlab-shell-help-mode-syntax-table (make-syntax-table) (#$ . 2300)) (defvar matlab-shell-help-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [matlab-shell-help-mode-hook variable-documentation put "Hook run after entering M-Help mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp matlab-shell-help-mode-map definition-name matlab-shell-help-mode] 4) (defvar matlab-shell-help-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\300!\204#\303\300\307\310#\210\311\312\300\313\"\210!\210\300\302N\2041\303\300\302\304\314!#\210\303\310\315\316#\207" [matlab-shell-help-mode-abbrev-table matlab-shell-help-mode-map variable-documentation put purecopy "Keymap for `matlab-shell-help-mode'." boundp definition-name matlab-shell-help-mode (lambda (def-tmp-var) (defvar matlab-shell-help-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `matlab-shell-help-mode'." derived-mode-parent view-major-mode] 5) #@154 Major mode for viewing MATLAB help text. Entry to this mode runs the normal hook `matlab-shell-help-mode-hook'. Commands: \{matlab-shell-help-mode-map} (defalias 'matlab-shell-help-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\321\"\204;\f =\204;\322\f\321 C#\210\323 !\210\324!\210\f\306\325!\210\326\327\330!\203a\203a\204a\331\332!\210\333 \210\334 \210)\335\336!\207" [delay-mode-hooks major-mode mode-name matlab-shell-help-mode-map matlab-shell-help-mode-abbrev-table local-abbrev-table make-local-variable t view-major-mode matlab-shell-help-mode "M-Help" mode-class put keymap-parent set-keymap-parent current-local-map abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table font-lock-defaults ((matlab-shell-help-font-lock-keywords) t nil ((95 . "w"))) boundp global-font-lock-mode font-lock-mode 1 matlab-shell-help-mouse-highlight-subtopics font-lock-ensure run-mode-hooks matlab-shell-help-mode-hook matlab-shell-help-mode-syntax-table] 5 (#$ . 3478) nil]) #@97 Click on an item in a MATLAB help buffer we want more information on. Must be bound to event E. (defalias 'matlab-shell-help-click #[(e) "\301!\210\302 \207" [e mouse-set-point matlab-shell-help-choose] 2 (#$ . 4566) "e"]) #@208 Choose the help to expand on that is under the cursor. This can fill the help buffer with new information. If the help is a command, use `matlab-shell-describe-command' instead of changing the help buffer. (defalias 'matlab-shell-help-choose #[nil "\303\211`\212\304 \210\305\306!\203\307\310!\202E\305\311!\203$\307\310!\202E\305\312!\2045\212\313u\210\305\314!)\203Eb\210\315v\210\305\316!\203E\307\310!) \204N\n\205V\317 \206T\n\227!+\207" [p fun topic nil beginning-of-line looking-at "^\\w+/\\(\\w+\\)[ ]+-" match-string 1 "^[ ]+\\(\\(\\w\\|_\\)+\\)[ ]+-" "^[ ]+See also" -2 ",$" -1 "\\(\\(\\w\\|_\\)+\\)\\([.,]\\| and\\|\n\\)" matlab-shell-describe-command] 3 (#$ . 4797) nil]) #@61 Put a `mouse-face' on all clickable targets in this buffer. (defalias 'matlab-shell-help-mouse-highlight-subtopics #[nil "\212\304\211\205Seb\210\305\n@@\306\304#\203K\n@A@\211\247\203,\307 \224 \225\310\311$\210\202G\305 @\306\304#\203G\307\312 8@\224\312 8@\225\310\311$\210\202,)\202\f\nA\211\204 \306+\207" [matlab-shell-topic-mouse-face-keywords inhibit-read-only el cd t re-search-forward nil put-text-property mouse-face highlight 3] 6 (#$ . 5510)]) #@107 A value of `mode-motion-hook' which will highlight topics under the mouse. EVENT is the user mouse event. (defalias 'matlab-shell-topic-highlight-line #[(event) "\306\307!\205 \307!\211\205\306\310!\205\310! \205u =?\205u\212\311 \312\216 q\210\306\313!\2036\313!\210\n\204F\306\314!\205t\314 !\202t\nb\210\315\210`\316 \210\317\320!\204]\317\321!\203k\306\322!\205t\322 `\n#\202t\306\314!\205t\314 !+*\207" [event buffer point mouse-grabbed-buffer #1=#:wconfig mode-motion-extent fboundp event-buffer event-point current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] mode-motion-ensure-extent-ok detach-extent nil beginning-of-line looking-at "^\\w+/\\(\\w+\\)[ ]+-" "^[ ]+\\(\\(\\w\\|_\\)+\\)[ ]+-" set-extent-endpoints] 5 (#$ . 5987)]) (provide 'matlab-topic)