;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require ess-custom ess-inf ess-utils] 2) #@72 Message returned if \[ess-r-args-get] cannot find a list of arguments. (defvar ess-r-args-noargsmsg "No args found." (#$ . 182)) (make-obsolete-variable 'ess-r-args-noargsmsg "Use `eldoc-mode' instead." "ESS 18.10") #@58 A prefix string that is shown before the arguments list. (defvar ess-r-args-show-prefix "ARGS: " (#$ . 404)) (make-obsolete-variable 'ess-r-args-show-prefix "Use `eldoc-mode' instead." "ESS 18.10") #@111 How ess-r-args-show should show the argument list. Possible values are: 'message' (the default) or 'tooltip'. (defvar ess-r-args-show-as 'message (#$ . 609)) (make-obsolete-variable 'ess-r-args-show-as "Use `eldoc-mode' instead." "ESS 18.10") #@107 List of functions names which should *not* trigger \[ess-r-args-show]; Defaults to `ess-S-non-functions'. (defvar ess-r-args-keep-silent ess-S-non-functions (#$ . 859)) (make-obsolete-variable 'ess-r-args-keep-silent "Use `eldoc-mode' instead." "ESS 18.10") #@57 Non-nil means re-assign "(" to \[ess-r-args-auto-show]. (defvar ess-r-args-electric-paren nil (#$ . 1123)) (make-obsolete-variable 'ess-r-args-electric-paren "Use `eldoc-mode' instead." "ESS 18.10") #@135 Returns the name of the R function assuming point is currently within the argument list or nil if no possible function name is found. (defalias 'ess-r-args-current-function #[nil "\212\3021 \303\304!0\210\202\210\305\306!\210`\307\310!\210\311`\"\312\313 \"\205% +\207" [posend rfunname (error) up-list -1 message "Can't find opening parenthesis." backward-sexp 1 buffer-substring-no-properties posix-string-match "^[a-zA-Z0-9_.]+$"] 3 (#$ . 1329)]) (make-obsolete 'ess-r-args-current-function "See `eldoc-mode'" "ESS 18.10") #@348 Returns string of arguments and their default values of R function FUNCTION or nil if no possible function name found. Calls `ess-r-args-current-function' if no argument given. If TRIM is non-nill remove tabs and newlines and replace ' = ' with '=' (useful for display in minibuffer to avoid window and buffer readjustments for multiline string). (defalias 'ess-r-args-get #[(&optional function trim) "\204\302 \205\" \204\303\304!\205\"\305\306!\210\307\310\311!A@\312#\207" [function ess-current-process-name ess-r-args-current-function called-interactively-p any ess-force-buffer-current "R process to use: " mapconcat #[(arg) "@\301AQ\207" [arg "="] 3] ess-function-arguments ", "] 4 (#$ . 1869)]) (make-obsolete 'ess-r-args-get "See `eldoc-mode'" "ESS 18.10") #@121 Show arguments and their default values of R function. Calls \[ess-r-args-current-function] if called without argument. (defalias 'ess-r-args-show #[(&optional function) "\305\306!\210\204 \307 \305\310\"\210\205= \311= \312\n?\"P\305\313\f\"\210\f\205<\n\2043\314\f!\202<\315\311!\210\316\f\317\320#*\207" [function ess-r-args-show-as tt ess-r-args-show-prefix args ess-message "(ess-r-args-show): start" ess-r-args-current-function ".... function='%s'" tooltip ess-r-args-get "(ess-r-args-show): args='%s'" message require ess-tooltip-show-at-point 0 30] 4 (#$ . 2653) "*"]) (make-obsolete 'ess-r-args-show "See `eldoc-mode'" "ESS 18.10") #@156 Typically assigned to "(": If there's an ess-process, automatically show arguments and their default values of an R function. Built on \[ess-r-args-show]. (defalias 'ess-r-args-auto-show #[nil "\302c\210?\205 \205\303 !\205\304 \207" [eldoc-mode ess-local-process-name "(" ess-get-process ess-r-args-show] 2 (#$ . 3313) nil]) (make-obsolete 'ess-r-args-auto-show "See `eldoc-mode'" "ESS 18.10") #@112 Insert arguments and their default values of function. Calls ess-r-args-current-function if no argument given. (defalias 'ess-r-args-insert #[(&optional function) "\204\303 \205\304!`\211c\210 b*\207" [function pointpos args ess-r-args-current-function ess-r-args-get] 3 (#$ . 3722) "*"]) (byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete ess-r-args-insert "See `eldoc-mode'" "ESS 18.10" provide ess-r-args] 4)