;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require mouseme ess-dde ess-trns] 2) #@64 Popup a menu of functions to run on selected string or region. (defalias 'ess-mouse-me #[nil "\300\301!\207" [ess-mouse-me-helper #[(name) "\302\303\304\305\306 !!D !\"\206\307\310!\207" [mouse-me-build-menu-function name x-popup-menu (0 0) get-buffer-window get-buffer buffer-name error "No command to run"] 5]] 2 (#$ . 178) nil]) #@72 Determine the string to use to process EVENT and call FUNC to get cmd. (defalias 'ess-mouse-me-helper #[(func) "\306\211\211\211\211\211\211\211\307 \310\216\212`\311\312!` \203U\2030\2047\313=\203U\f ^\211Y\203U\f ]\211X\203U \n{\202\212 \211<\203qA@\3148@\202\212\fb\210\315\316!!\204\203\317u\210\202t`\320!+\203\235;\203\241\321\230\203\241\322\323!\210!\211<\203\260\324 ! \325N\211\326\267\202\310 \n\"\202\314 !\202\314 !.\207" [mmtype cmd end beg mouse sm nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] mark t mouse-drag-region 2 looking-at regexp-quote -1 search-forward "" error "No string to pass to function" eval mouse-me-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (region 186 string 193)) sp name save-match-data-internal transient-mark-mode mark-active last-command mouse-me-get-string-function func] 9 (#$ . 519)]) #@793 *Command menu used by `mouse-me-build-menu'. A alist of elements where each element is either a cons cell or a string. If a cons cell the car is a string to be displayed in the menu and the cdr is either a function to call passing a string to, or a list which evals to a function to call passing a string to. If the element is a string it makes a non-selectable element in the menu. To make a separator line use a string consisting solely of hyphens. The function returned from this menu will be called with one string argument. Or if the function has the symbol property `mouse-me-type' and if its value is the symbol `region' it will be called with the beginning and ending points of the selected string. If the value is the symbol `string' it will be called with one string argument. (custom-declare-variable 'ess-S-mouse-me-menu-commands-alist ''("S-Plus 4 and 6 GUI under Windows" ("Edit.data" . ess-mouse-me-Edit\.data) "----" ("print" . ess-mouse-me-print) ("summary" . ess-mouse-me-summary) ("plot" . ess-mouse-me-plot) ("show" . ess-mouse-me-show) ("help" . ess-display-help-on-object) ("args" . ess-mouse-me-args) "----" ("Browser on" . ess-mouse-me-browser-on) ("Browser off" . ess-mouse-me-browser-off)) '(#$ . -1538) :type '(repeat sexp) :group 'mouseme) (defalias 'ess-mouse-me-Edit\.data #[(string) "\301\302\303\304\211\211&\207" [string ess-mouse-me-eval-expanded "Edit.data(" ")" nil] 7]) (defalias 'ess-mouse-me-print #[(string) "\301\302\211\303\304 \305&\207" [string ess-mouse-me-eval-expanded "" nil ess-ddeclient-p t] 7]) (defalias 'ess-mouse-me-summary #[(string) "\301\302\303\304\305 \306&\207" [string ess-mouse-me-eval-expanded "summary(" ")" nil ess-ddeclient-p t] 7]) (defalias 'ess-mouse-me-plot #[(string) "\301\302\303#\210\304\207" [string ess-mouse-me-eval-expanded "plot(" ")" nil] 4]) (defalias 'ess-mouse-me-show #[(string) "\301\302\303#\210\304\207" [string ess-mouse-me-eval-expanded "show(" ")" nil] 4]) (defalias 'ess-mouse-me-args #[(string) "\301\302\303\304\305 \306&\207" [string ess-mouse-me-eval-expanded "args(" ")" nil ess-ddeclient-p t] 7]) (defalias 'ess-mouse-me-browser-on #[(string) "\302\303O\304\232\203\305\306 \307Q!\207\310 \311\312#\210\313\207" [ess-dialect string 0 1 "R" ess-eval-linewise "debug(" ")" ess-mouse-me-eval-expanded "trace(" ", exit=browser)" nil] 4]) (defalias 'ess-mouse-me-browser-off #[(string) "\302\303O\304\232\203\305\306 \307Q!\207\310 \311\307#\210\312\207" [ess-dialect string 0 1 "R" ess-eval-linewise "undebug(" ")" ess-mouse-me-eval-expanded "untrace(" nil] 4]) #@424 Send the expanded STRING to the inferior-ess process using `ess-command' after first concating the HEAD and TAIL. Put answer in COMMANDS-BUFFER if specified and not using ddeclient, otherwise in "tmp-buffer". In either case the buffer containing the answer is renamed to the value of the constructed command. If PAGE is non-nil and using ddeclient, expand the string one more time by embedding it in a "page()" command. (defalias 'ess-mouse-me-eval-expanded #[(string &optional head tail commands-buffer page value-returned) "\306\211\n\f\204\307 \204\310 !\204\"\311\312!!\" Q\313 \203Y#\203;\314\310Q\202<\315\316!\210\317 !\"\210$\203~\320\321!\210\322\323 @!\210\202~\324 \210\322!!\210\325\326 !p\"\210 \317\327P!\"\210$\204~\322\323 A@!\210$\205\244%\203\231\330\331\306\332#\203\231\333\334\306\332#\210\202\210\335\326 !!\210 \336!,\207" [scommand page-scommand ess-local-process-name lproc-name ess-local-customize-alist ess-mouse-customize-alist nil "summary(" ")" get-buffer-create "tmp-buffer" ess-ddeclient-p "page(" set-buffer-file-coding-system undecided-dos ess-command sleep-for 2 switch-to-buffer buffer-list ess-make-buffer-current ess-setq-vars-local eval "\n" search-forward " " t replace-match "" ess-transcript-mode rename-buffer head tail commands-buffer string page value-returned ess-microsoft-p] 5 (#$ . 4121) nil]) (byte-code "\300\301!\210\302\303!\207" [provide ess-mouse make-variable-buffer-local mouse-me-menu-commands] 2) (defalias 'ess-S-mouse-me-menu-commands #[nil "\303\232\205 \211\207" [ess-language ess-S-mouse-me-menu-commands-alist mouse-me-menu-commands "S"] 2]) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\207" [add-hook ess-mode-hook ess-S-mouse-me-menu-commands inferior-ess-mode-hook ess-transcript-mode-hook] 3)