;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 cl-lib info ess-mode ess-inf ess-utils] 2) #@54 Stores the frame used for displaying R help buffers. (defvar ess--help-frame nil (#$ . 218)) #@311 Return non-nil if BUFFER looks like a bogus ESS help buffer. Return the pair (match-beg. match-end) which can be used in error message. NR-FIRST is the number of characters at the start of the buffer to examine when deciding if the buffer if bogus. If nil, the first 150 characters of the buffer are searched. (defalias 'ess--help-get-bogus-buffer-substring #[(buffer &optional nr-first) "\204\306r q\210e\307\310\211d Z\311W\206J\307\211?\206J b\210\312\313\307#\206J b\210\312\314\307#\206J b\210\312\315\307#\206J b\210\312\316\307#\317\320\321\n #!\210\n\205e \203c\322\224\322\225{\202e\323 -\207" [nr-first buffer res searching case-fold-search PM 150 t nil 80 re-search-forward "Error in help" "^cat: .*--" "no documentation .+" "^help .*not found" ess-write-to-dribble-buffer format " |--> %s [searching %s]\n" 0 buffer-string] 5 (#$ . 318)]) (defalias 'ess-help-get-local-help-buffers #[nil "\300 \210\301\302\303 \"\207" [ess-force-buffer-current cl-remove-if-not #[(buffer) "\305\306Q\307\n!\211G GV\205 \310 GO \f\230\205\n+\207" [ess-current-process-name pattern buffer name candidate "*help[" "](" buffer-name 0] 4] buffer-list] 3]) #@77 Type of help file, help, index, vingettes etc. Local in `ess-help' buffers. (defvar ess-help-type nil (#$ . 1501)) (make-variable-buffer-local 'ess-help-type) #@118 Name of the object the help is displayed for. Is name of the package for package index. Local in `ess-help' buffers. (defvar ess-help-object nil (#$ . 1667)) (make-variable-buffer-local 'ess-help-object) #@553 Display documentation for OBJECT in another window. If prefix arg is given, force an update of the cached help topics and query the ESS process for the help file instead of reusing an existing buffer if it exists. Uses the variable `inferior-ess-help-command' for the actual help command. Prompts for the object name based on the cursor location for all cases except the S-Plus GUI. With S-Plus on Windows (both GUI and in an inferior Emacs buffer) the GUI help window is used. If COMMAND is suplied, it is used instead of `inferior-ess-help-command'. (defalias 'ess-display-help-on-object #[(object &optional command) "\306!\203  \n\"\207\307 \310\311\312\313 #\314\260\315\f!\316\f! \203/\204/\317 !\203Vrq\210\320\321!!\210 \322\323\324 \n\"\210+\325!?\205b\326!+\207" [ess-display-help-on-object-function object command ess-current-process-name hb-name old-hb-p fboundp "*help[" "](" replace-regexp-in-string "^\\?\\|`" "" ")*" get-buffer get-buffer-create ess--help-get-bogus-buffer-substring ess-setq-vars-local eval help t ess--flush-help-into-current-buffer ess--help-kill-bogus-buffer-maybe ess--switch-to-help-buffer tbuffer current-prefix-arg ess-local-process-name ess-local-customize-alist #1=#:alist #2=#:lpn ess-help-object ess-help-type buffer-read-only] 7 (#$ . 1878) (progn (ess-force-buffer-current) (if current-prefix-arg (progn (ess-process-put 'sp-for-help-changed\? t))) (list (ess-find-help-file "Help on")))]) (defalias 'ess-help 'ess-display-help-on-object) (defalias 'ess-build-help-command #[(object) "\303!\203\n !\207\304\n \"\207" [ess-build-help-command-function object inferior-ess-help-command fboundp format] 3]) (defalias 'ess--flush-help-into-current-buffer #[(object &optional command dont-ask) "\306\211ed|\210\307 \210\n\203&\310\n\311\306\312#)\266\203\203&\313\n\f\"\202'\n\314\n\2060\315\f!p\"\210)\316 \210 \317\230\204@\320 \210eb\210\321\311!\210\311\211*\207" [inhibit-read-only inhibit-modification-hooks command inhibit-changing-match-data object ess-language t ess-help-mode "%s" nil string-match format ess-command ess-build-help-command ess-help-underline "STA" ess-nuke-help-bs set-buffer-modified-p truncate-lines] 7]) #@70 Internal, try to kill bogus BUFFER with message. Return t if killed. (defalias 'ess--help-kill-bogus-buffer-maybe #[(buffer) "\205\"\303 !\211\205!\304\305\306\307 !\"!\210\310\311\312\313\314\n#\"\210\315 !)\207" [ess-help-kill-bogus-buffers buffer bog-mes ess--help-get-bogus-buffer-substring ess-write-to-dribble-buffer format "(ess-help: kill bogus buffer %s ..\n" buffer-name message "%s" replace-regexp-in-string "\n" "" kill-buffer] 7 (#$ . 4114)]) #@60 Displaying html help where available, using \[browse-url]. (defalias 'ess-display-help-in-browser #[nil "\306\211\211\211\307\310\f\"\203\311\202\312\203!\313\314\f\"\202^ \203,\315=\2042\313\316!\202^ \203?\317\320 \"!\202^\321\322!\210\n\203S\322\323\320\n \"!@!\202^\324 !\205^\322 !!,\207" [not-implemented fun-get-file-path com-get-file-path com-html-help ess-dialect ess-help-object nil string-match "^R" "help('%s', help_type='html')\n" t message "Sorry, not implemented for %s " help "No help topic found" ess-command format require browse-url ess-get-words-from-vector functionp ess-help-type] 5 (#$ . 4580) nil]) #@175 Provide help on object at the beginning of line. It's intended to be used in R-index help pages. Load the package if necessary. It is bound to RET and C-m in R-index pages. (defalias 'ess--button-action #[(&optional button) "\304!\305\n!\205 \n !\306 \"*\207" [button string ess-build-help-command-function command button-label fboundp ess-display-help-on-object] 3 (#$ . 5235) nil]) #@48 Prompt for package name and display its index. (defalias 'ess-display-package-index #[nil "\306  \307\211\211\211\211\211\211\211\211 !\"#$%&\310\311'\"\2037\312\313\314\315\316\202P\310\317'\"\203J\320\321\322\323\202P\324\325'\"\210\203l(\203l)\326=\203l\327\330(\"!@#\327 !!#\204~\331 !\235@#\332\333!\307\211\211\211#&#\334\330\f#\" \330\335'##\336\307\211\n#&.\f\207" [ess-local-customize-alist ess-local-process-name reg-start reg-keyword com-package-index com-packages buffer-name nil string-match "^R" "sub('package:', '', .ess.findFUN('%s'))\n" ".packages(all.available=TRUE)\n" ".ess.help(package='%s', help.type='text')\n" "^\\([^ \n:]+\\)" "^Index:" "julia" "_ess_list_categories()\n" "_ess_print_index(\"%s\")\n" "^\\(.*+\\):$*" ":" error "Not implemented for %s " help ess-get-words-from-vector format ess-read-object-name-default ess-completing-read "Index of" ess--display-indexed-help-page "*help[%s](index:%s)*" index com-package-for-object not-implemented all-packs buff pack pname alist object ess-dialect ess-help-object ess-help-type] 12 (#$ . 5631) nil]) (byte-code "\300\301\302\"\210\303\301\302\304#\207" [defalias ess-display-index ess-display-package-index make-obsolete "ESS[12.09]"] 4) #@416 Internal function to display help pages with linked actions ;; COMMAND to produce the indexed help page ;; ITEM-REGEXP -- first subexpression is highlighted ;; TITLE of the help page ;; HELP-TYPE to be stored in `ess-help-type' local variable ;; ACTION is a function with no argument (default is `ess--button-action') ;; HELP-ECHO ;; REG-START gives the start location from where to search linkifying (defalias 'ess--display-indexed-help-page #[(command item-regexp title help-type &optional action help-echo reg-start help-object) "\306\307  \310\n! r q\210!\311\312 !!\210\313\"\f\314#ed|\210\315 \210\316$ \"\210\317 \210\320\314!\210eb\210%\203H\321%\314\306#\210&\203|\212\321&\314\306#\203{\322\323\224\323\225\324\325\326\206e\327\330\331\323\224\323\225\"\332\306\333\206u\334&\f\210\202N)\306#'(\314))\335 !?\205\221\336 !-\207" [ess-local-customize-alist ess-local-process-name title buff pname alist t buffer-name get-buffer-create ess-setq-vars-local eval "\\(^\\s-.*\n\\)\\|\\(^\n\\)" nil ess-help-mode ess-command ess-help-underline set-buffer-modified-p re-search-forward make-text-button 1 mouse-face highlight action ess--button-action help-object buffer-substring-no-properties follow-link help-echo "help on object" ess--help-kill-bogus-buffer-maybe ess--switch-to-help-buffer object inhibit-modification-hooks ess-help-object ess-help-sec-regex buffer-read-only command reg-start item-regexp help-type ess-help-type truncate-lines] 13 (#$ . 6911) nil]) #@70 Create an ess-apropos buffer with a *linked* list of apropos topics. (defalias 'ess-display-help-apropos #[(&optional pattern) "\305\211\n\306\267\202\307\310\202$\311\312\202$\313\314\202$\315\316\n\"\210\317\320 \"\320\321\f #\322$*\207" [regexp com ess-dialect pattern ess-current-process-name nil #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("R" 10 "julia" 17 "stata" 24)) "help.search('%s')\n" "^\\([^ \n:]+::[^ \n:]+\\)[ \n]+" "apropos(\"%s\")\n" "^\\(\\(\\w\\|\\s_\\)+\\)(" "hsearch %s\n" "^[ ]*[0-9]+\\.[ ]+\\(.+\\)$" error "Not implemented for dialect %s" ess--display-indexed-help-page format "*ess-apropos[%s](%s)*" appropos] 7 (#$ . 8437) "sPattern: "]) #@69 Create an ess-demos buffer with a *linked* list of available demos. (defalias 'ess-display-demos #[nil "\304\211\n\305\232\203\306\307\202\310\311\n\"\210\312 \313\314 \"\315\316%*\207" [regexp com ess-dialect ess-current-process-name nil "R" "demo()\n" "^\\([^ \n:]+\\) +" error "Not implemented for dialect %s" ess--display-indexed-help-page format "*ess-demos[%s]*" demos ess--action-demo] 6 (#$ . 9173) nil]) #@175 Provide help on object at the beginning of line. It's intended to be used in R-index help pages. Load the package if necessary. It is bound to RET and C-m in R-index pages. (defalias 'ess--action-demo #[(&optional button) "\304!\n\305\232\203\306\307 \"\202\310\311\n\"\312 !\210\313 *\207" [button string ess-dialect command button-label "R" format "demo('%s')\n" error "Not implemented for dialect %s" ess-eval-linewise ess-switch-to-end-of-ESS] 3 (#$ . 9603) nil]) #@175 Display vignettes if available for the current dialect. With (prefix) ALL non-nil, use `vignette(*, all=TRUE)`, i.e., from all installed packages, which can be *very* slow. (defalias 'ess-display-vignettes #[(&optional all) "\302\232\203\n\303 !\207\304\305\"\207" [ess-dialect all "R" ess-R-display-vignettes message "Sorry, not implemented for %s"] 3 (#$ . 10086) "P"]) #@165 Display R vignettes in ess-help-like buffer.. With (prefix) ALL non-nil, use `vignette(*, all=TRUE)`, i.e., from all installed packages, which can be *very* slow. (defalias 'ess-R-display-vignettes #[(&optional all) "r\306\307\310\203\f\311\202 \312\"!q\210eb\210\313\314\315\316#\205/\317\224b\210\3201-\321\322p!!0\202/\210\315)\n\f\323@!A\324\307\325B\"!C\316DrCq\210\315Eed|\210\326\321 !!\210\327F\330G H\331 \210\332\315!\210eb\210 \315I\211J\203\273J@\211I@K\307\333\334K\335\336#\"c\210IA\315L\211J\203\261J@LA\203DM\337Y\203x\340@!\211N\242O>\204\275\341\342\343ND\"\210NA@PN\242O>\204\324\341\342\343ND\"\210\344N8QN\242O>\204\353\341\342\343ND\"\210\345N8RN\242O>\204\341\342\343ND\"\210\346N8SN\242O>\204\341\342\343ND\"\210\347N8TN\242O>\2040\341\342\343ND\"\210\350N8UN\242O>\204G\341\342\343ND\"\210\351N8VP\210Q\210R\210S\210T\210U\210V\210\352PQRSTLA@&.\202H\340@!\211N\242O>\204\216\341\342\343ND\"\210NA@PN\242O>\204\245\341\342\343ND\"\210\344N8QN\242O>\204\274\341\342\343ND\"\210\345N8RN\242O>\204\323\341\342\343ND\"\210\346N8SN\242O>\204\352\341\342\343ND\"\210\347N8TN\242O>\204\341\342\343ND\"\210\350N8UN\242O>\204\341\342\343ND\"\210\351N8VP\210Q\210R\210S\210T\210U\210V\210\352PQSLA@$.\202HLA@W\353\354\355\356\357A\203X\360\202Y\361\362\316\363\364\344L8!\365K\366W\367\344L8Q& \210\370c\210\353\371\355\356\357\360\362\316\366W\367\345L8Q& \210\370c\210\353\372\355\356\357\360\362\316\366W\367\346L8Q& \210\307\373L@\"c\210)JA\211J\204\226+JA\211J\204v*eb\210\334\374\335\375#c\210m\204\316\376\377!\210\316E)\201XC!.\207" [all vslist ess-current-process-name proc-name ess-local-customize-alist alist ess-command format ".ess_vignettes(%s)\n" "TRUE" "" re-search-forward "(list" nil t 0 (error) eval read file-remote-p get-buffer-create "*[%s]vignettes*" ess-setq-vars-local "^\\w+:$" vignettes ess-help-mode set-buffer-modified-p "\n\n%s:\n\n" propertize face underline 26 tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-make-tramp-file-name insert-text-button "Pdf" mouse-face highlight action ess--action-open-in-emacs ess--action-R-open-vignette follow-link vignette file-name-sans-extension package help-echo "/doc/" " " "Rnw" "R" " %s\n" " **** Vignettes ****\n" bold-italic delete-char 1 default-directory remote ess-dialect buff inhibit-modification-hooks buffer-read-only ess-help-sec-regex ess-help-type ess-local-process-name el --dolist-tail-- pack el2 emacs-major-version v cl-struct-tramp-file-name-tags method user domain host port localname hop path ess--switch-to-help-buffer] 18 (#$ . 10469) "P"]) (defalias 'ess--action-open-in-emacs #[(pos) "\301\302\303\304\"!!\207" [pos display-buffer find-file-noselect get-text-property help-echo] 5]) (defalias 'ess--action-R-open-vignette #[(pos) "\301\302\303\304\305\"\304\306\"#!\207" [pos ess-command format "vignette('%s', package='%s')\n" get-text-property vignette package] 7]) (byte-code "\300\301\302\"\210\303\301\302\304#\207" [defalias ess-help-quit quit-window make-obsolete "16.04"] 4) (defalias 'ess--find-displayed-help-window #[nil "\3032E\304 \305\211\205C @\306!\203;\307!\305\211\203: @\310\311\312\n!\"\313=\2033\314\303\n\"\210 A\211\204 * A\211\204 \305*0\207" [f --dolist-tail-- w win frame-list nil frame-visible-p window-list buffer-local-value major-mode window-buffer ess-help-mode throw] 5]) #@97 Switch to an ESS help BUFF. For internal use. Take into account variable `ess-help-own-frame'. (defalias 'ess--switch-to-help-buffer #[(buff) "\306=\203\307 !\310\311\nBD\312\f\n #*\207\313\f\314\"\206$ \205$\315 \211\203;\316\f\"\210\317\312\f\320 #)\202f\321=\203c\322!\203M\202P\307 !\310\311\nBD\n\312\f\n #*\202f\312\f!)\207" [ess-help-own-frame ess-help-frame-alist frame action buff ess-help-reuse-window t make-frame display-buffer-same-window reusable-frames ess--display-help get-buffer-window all-frames ess--find-displayed-help-window set-window-buffer (display-buffer-reuse-window (reusable-frames . t)) nil one frame-live-p help-win ess--help-frame] 5 (#$ . 14029)]) (defalias 'ess--display-help #[(buff &optional frame action) "\206 \305\306 \206 \nBD\307 !\203.\310 =\204.\311 !\210 \203*\312 !\210\202.\313 !\210 \2039\314\f\"\202=\315\f\")\207" [action frame ess-display-buffer-reuse-frames ess-help-pop-to-buffer buff nil reusable-frames framep selected-frame raise-frame select-frame-set-input-focus select-frame pop-to-buffer display-buffer] 3]) #@35 Search the web for documentation. (defalias 'ess-help-web-search #[nil "\204 \306\307 \"\2079\203K\202\310\211;\203\"\311 !\202&\312\313 \"\314\fC\315\"\316\n!\203:\312\n \"\202u\n;\203V\317\320\n\"\203V\312\321\n #\322\323!\210\323\n!\202u\n;\203r\317\324\n\"\204f\n\325P\312\321\n #\326\n!\202u\327\330!,\207" [ess-help-web-search-command ess-dialect com prompt resp args message "Not implemented for dialect %s" "Search for: " read-string apply ess-completing-read append nil functionp string-match "^\\(http\\|www\\)" format require browse-url "\n$" "\n" ess-eval-linewise error "Argument COMMAND must be either a function or a string"] 5 (#$ . 15143) nil]) #@26 Search manual for topic. (defalias 'ess-manual-lookup #[nil "\204 \306\307 \"\2079\203K\202\310\211\311\fC\310\"\312\n!\203,\313\n \"\202g\n;\203H\314\315\n\"\203H\313\316\n #\317\320!\210\320\n!\202g\n;\203d\314\321\n\"\204X\n\322P\313\316\n #\323\n!\202g\324\325!,\207" [ess-manual-lookup-command ess-dialect com prompt resp args message "Not implemented for dialect %s" nil append functionp apply string-match "^\\(http\\|www\\)" format require browse-url "\n$" "\n" ess-eval-linewise error "Argument COMMAND must be either a function or a string"] 5 (#$ . 15837) nil]) #@26 Search manual for topic. (defalias 'ess-reference-lookup #[nil "\204 \306\307 \"\2079\203K\202\310\211\311\fC\310\"\312\n!\203,\313\n \"\202g\n;\203H\314\315\n\"\203H\313\316\n #\317\320!\210\320\n!\202g\n;\203d\314\321\n\"\204X\n\322P\313\316\n #\323\n!\202g\324\325!,\207" [ess-reference-lookup-command ess-dialect com prompt resp args message "Not implemented for dialect %s" nil append functionp apply string-match "^\\(http\\|www\\)" format require browse-url "\n$" "\n" ess-eval-linewise error "Argument COMMAND must be either a function or a string"] 5 (#$ . 16440) nil]) #@31 Sub-keymap for ESS help mode. (defvar ess-help-sec-map nil (#$ . 17049)) #@24 ESS documentation map. (defvar ess-doc-map (byte-code "\301\302\300!\210\303\304\305#\210\303\306\305#\210\303\307\310#\210\303\311\310#\210\303\312\313#\210\303\314\313#\210\303\315\316#\210\303\317\316#\210\303\320\321#\210\303\322\321#\210\303\323\324#\210\303\325\324#\210\303\326\327#\210\303\330\327#\210\303\331\332#\210\303\333\332#\210\303\334\335#\210\303\336\335#\210)\207" [ess-doc-map nil define-prefix-command define-key "" ess-describe-object-at-point "e" "" ess-display-help-on-object "d" " " ess-display-package-index "i" "" ess-display-help-apropos "a" "" ess-display-vignettes "v" "" ess-display-demos "o" "" ess-help-web-search "w" " " ess-manual-lookup "m" "" ess-reference-lookup "r"] 4) (#$ . 17128)) #@27 Keymap for ESS help mode. (defvar ess-help-mode-map (byte-code "\303 \304!\210\305\302!\203\306\307 \n\"\"\210\310\311\312#\210\310\313\314#\210\310\315\316#\210\310\317\320#\210\310\321\322#\210\310\323\324#\210\310\325\326#\210\310\327\330#\210\310\331\332#\210\310\333\334#\210\310\335\336#\210\310\337\340#\210\310\341\342#\210\310\343\344#\210\310\345\346#\210\310\347\350#\210\310\351\352#\210\310\353\354#\210\310\355\332#\210\310\356\357#\210\310\360\357#\210\310\361\362#\210\310\363\364#\210\310\365\330#\210\310\366\367#\210\310\370\371#\210\310\372\373#\210\310\374\375#\210\310\376\377#\210\310\201@\201A#\210\310\201B\201C#\210\310\201D\201E#\210\310\201F\201E#\210\310\201G\316#\210\310\201H\201I#\210\310\201J\201K#\210\310\201L\201M#\210\310\201N\201O#\210)\207" [map button-buffer-map special-mode-map make-keymap suppress-keymap boundp set-keymap-parent make-composed-keymap define-key "q" quit-window " " next-line "h" ess-display-help-on-object "w" ess-display-help-in-browser "i" ess-display-package-index "a" ess-display-help-apropos "v" ess-display-vignettes "l" ess-eval-line-visibly-and-step "r" ess-eval-region-and-go "f" ess-eval-function-or-paragraph-and-step "n" ess-skip-to-next-section "p" ess-skip-to-previous-section "/" isearch-forward "x" ess-kill-buffer-and-go "k" kill-this-buffer "?" ess-describe-help-mode "" ess-switch-process "" ess-eval-region "\362" "" ess-eval-function "\230" "\346" ess-eval-function-and-go "\n" ess-eval-line "" "" ess-eval-region-or-function-or-paragraph-and-step [(control return)] ess-eval-region-or-line-visibly-and-step "\352" ess-eval-line-and-go "\201" ess-goto-beginning-of-function-or-para "\205" ess-goto-end-of-function-or-para "" ess-switch-to-ESS "" ess-switch-to-end-of-ESS "\f" ess-load-file "\354" "" " " ess-request-a-process "" ess-doc-map "" ess-extra-map "" ess-dev-map] 5) (#$ . 17885)) #@31 Menu used in `ess-help-mode'. (defvar ess-help-mode-menu '("ESS-help" ["Search Forward" isearch-forward t] ["Next Section" ess-skip-to-next-section t] ["Previous Section" ess-skip-to-previous-section t] ["Help on Section Skipping" ess-describe-sec-map t] ["Beginning of Buffer" beginning-of-buffer t] ["End of Buffer" end-of-buffer t] "-" ["Help on ..." ess-display-help-on-object t] ["Apropos of ..." ess-display-help-apropos t] ["Index of ..." ess-display-package-index t] ["Vignettes" ess-display-vignettes t] ["Open in Browser" ess-display-help-in-browser t] "-" ["Eval Line" ess-eval-line-and-step t] ["Eval Paragraph & step" ess-eval-paragraph-and-step t] ["Eval Region & Go" ess-eval-region-and-go t] ["Switch to ESS Process" ess-switch-to-ESS t] ["Switch to End of ESS Proc." ess-switch-to-end-of-ESS t] ["Switch _the_ Process" ess-switch-process t] "-" ["Kill Buffer" kill-this-buffer t] ["Kill Buffer & Go" ess-kill-buffer-and-go t] "-" ["Handy commands" ess-handy-commands t] ["Describe ESS-help Mode" ess-describe-help-mode t]) (#$ . 19853)) #@390 Mode for viewing ESS help files. Use SPC and DEL to page back and forth through the file. Use `n' and `p' to move to next and previous section, `s' to jump to a particular section; `s ?' for help. Use `q' to return to your ESS session; `x' to kill this buffer first. The usual commands for evaluating ESS source are available. Other keybindings are as follows: \{ess-help-mode-map} (defalias 'ess-help-mode #[nil "\306\307\310\311 !\210\312\304!\210\310 \203\313 !\210\314\315!\210\316\310!\210\317\320 \321 $\210\322 !\312\323!\210\310\"\310#\211$\203W$@#\324!\325#@!\326#\210$A\211$\204>*\324!\327\330#\210\324!\331\332#\210\324!\333\334#\210\324 \335!#\210\336\337!\207" [major-mode mode-name font-lock-mode ess-help-mode-map indent-tabs-mode ess-mode-syntax-table ess-help-mode "ESS Help" nil use-local-map make-local-variable set-syntax-table require easymenu (lambda (def-tmp-var) (defvar ess-help-mode-menu-map def-tmp-var #1="Menu keymap for ess-help mode.")) easy-menu-do-define ess-help-mode-menu-map #1# make-sparse-keymap show-trailing-whitespace define-key char-to-string ess-skip-to-help-section "?" ess-describe-sec-map ">" end-of-buffer "<" beginning-of-buffer "s" run-mode-hooks ess-help-mode-hook ess-help-mode-menu ess-help-sec-map ess-help-sec-keys-alist pair --dolist-tail--] 6 (#$ . 20914) nil]) #@246 Jump to a section heading of a help buffer. The section selected is determined by the command letter used to invoke the command, as indicated by `ess-help-sec-keys-alist'. Use \[ess-describe-sec-map] to see which keystrokes find which sections. (defalias 'ess-skip-to-help-section #[nil "`\305eb\210\306\n \"A\211\204\307\310\n\"\202.\311\312\fP\305\313#\203'\314 \202.\315\316\f\"\210 b+\207" [case-fold-search old-point last-command-event ess-help-sec-keys-alist the-sec nil assoc error "Invalid section key: %c" re-search-forward "^" t recenter message "No %s section in this help. Sorry."] 5 (#$ . 22271) nil]) #@42 Jump to next section in ESS help buffer. (defalias 'ess-skip-to-next-section #[nil "\302\303 \302\304#?\205\305\306!)\207" [case-fold-search ess-help-sec-regex nil re-search-forward no-error message "No more sections."] 4 (#$ . 22900) nil]) #@46 Jump to previous section in ESS help buffer. (defalias 'ess-skip-to-previous-section #[nil "\302\303 \302\304#?\205\305\306!)\207" [case-fold-search ess-help-sec-regex nil re-search-backward no-error message "No previous section."] 4 (#$ . 23150) nil]) #@30 Display help for `ess-mode'. (defalias 'ess-describe-help-mode #[nil "\300\301!\207" [describe-function ess-help-mode] 2 (#$ . 23412) nil]) #@61 Kill the current buffer and switch back to the ESS process. (defalias 'ess-kill-buffer-and-go #[nil "\301p!\210\205\302!\205\303\304!\207" [ess-current-process-name kill-buffer get-process ess-switch-to-ESS nil] 2 (#$ . 23558) nil]) #@31 Display help for the `s' key. (defalias 'ess-describe-sec-map #[nil "\305\306!\210r\307q\210\310db\210\311c\210 \310\211\203.\f@\312 @\313 A\314\261\210\fA\211\204*\315\316\317!\261*\207" [ess-help-sec-keys-alist keys-alist buffer-read-only cs --dolist-tail-- describe-function ess-skip-to-help-section "*Help*" nil "\n\nCurrently defined keys are:\n\nKeystroke Section\n--------- -------\n" " " " " "\n" "\nFull list of key definitions:\n" substitute-command-keys "\\{ess-help-sec-map}"] 6 (#$ . 23803) nil]) (defalias 'ess-helpobjs-at-point--read-obj #[nil "\301 \211\205\f\302\303\"??\205)\207" [obj ess-read-object-name-default string-match "[[:alpha:]]"] 4]) (defalias 'ess-unqualify-symbol #[(object) "\301\302\"\203 \303\225\304O\207\207" [object string-match "^[[:alnum:].]+::?" 0 nil] 3]) #@233 Return a list (def obj fun). Obj is a name at point, fun is the name of the function call point is in, and def is either obj or fun (in that order) which has a a help file, i.e. it is a member of slist (string-list). nil otherwise. (defalias 'ess-helpobjs-at-point #[(slist) "\304 \211\205\n\305!\3061'\212\214e`\307Z]d}\210\310\311!\210\312u\210\313 *0\202)\210\314 \235@\206? \235\203;\206?\n \235@\nE+\207" [obj unqualified-obj fun slist ess-helpobjs-at-point--read-obj ess-unqualify-symbol (error) 1000 backward-up-list 1 -1 ess-read-object-name-default nil] 4 (#$ . 24644)]) #@114 Find help, prompting for P-STRING. Note that we can't search SAS, Stata or XLispStat for additional information. (defalias 'ess-find-help-file #[(p-string) "\306 \210\307!\203  !\207\307\n!\203.\n !\310\f!\311 \312\313\314 \"\f\"\314\211\211\211 @&*\207\315\316\317 \"!\207" [ess-find-help-file-function p-string ess-get-help-topics-function ess-current-process-name help-files-list hlpobjs ess-make-buffer-current fboundp ess-helpobjs-at-point ess-completing-read append delq nil read-string format "%s: "] 8 (#$ . 25245)]) #@51 Return a list of files which have help available. (defalias 'ess-get-help-files-list #[nil "\300\301\302\303\304 \"\"\207" [apply nconc mapcar #[(str) "\302P\303 !\205 \304 !)\207" [str dirname "/.Help" file-directory-p directory-files] 2] ess-search-list] 5 (#$ . 25783)]) #@53 Return a list of aliases which have help available. (defalias 'ess-get-help-aliases-list #[nil "\300\301!\210\302\303!\210\304\305!\210\306\307!\300\310!\210\207" [message "Retrieving RDS aliases..." redisplay t ess-write-to-dribble-buffer "Processing RDS files ...\n" ess-get-words-from-vector ".ess.getHelpAliases()\n" "Retrieving RDS aliases...done"] 3 (#$ . 26066)]) #@66 Remove ASCII underlining and overstriking performed by ^H codes. (defalias 'ess-nuke-help-bs #[nil "eb\210\303\304\305\306#\203<`\307Zfg U\203\310\311!\210\2028\312U\203,\310\311!\210\2028 \312U\2038`S`T|\210*\202eb\210\305\313\314\305\306#\203R\315\224\315\225|\210\202A)eb\210\313\316\305\306#\203e\317\320!\210\202Veb\210\321\305w\210e`|\207" [preceding following case-fold-search search-forward "" nil t 2 delete-char -2 95 re-search-forward "\\bURL: " 0 "\n\n\n\n*" replace-match "\n\n" "\n"] 4 (#$ . 26443)]) #@40 Replace _^H codes with underline face. (defalias 'ess-help-underline #[nil "\212eb\210\300\301\302\303#\205\304\305!\210\306``T\307\310$\210\202)\207" [search-forward "_" nil t backward-delete-char 2 put-text-property face underline] 5 (#$ . 26983)]) #@41 Display node NODE from `ess-mode' info. (defalias 'ess-goto-info #[(node) "\301\302!\210\303 \210\304\305P!\207" [node require info split-window Info-goto-node "(ess)"] 3 (#$ . 27245)]) #@70 Commands cycled by `ess-describe-object-at-point'. Dialect specific. (defvar ess-describe-object-at-point-commands nil (#$ . 27438)) (make-variable-buffer-local 'ess-describe-at-point-commands) (defvar ess--descr-o-a-p-commands nil) #@692 Get info for object at point, & display it in an electric buffer or tooltip. If region is active use it instead of the object at point. This is an electric command (`ess--execute-electric-command'), which means that you can use the last key to cycle through the action set (in this case `C-e'). After invocation of this command all standard Emacs commands, except those containing 'window' in their names, remove the electric *ess-describe* buffer. Use `other-window' to switch to *ess-describe* window. Customize `ess-describe-at-point-method' if you wan to display the description in a tooltip. See also `ess-r-describe-object-at-point-commands' (and similar option for other dialects). (defalias 'ess-describe-object-at-point #[nil "\204 \306\307 \"\207\310 \210\311 \312 \203\313`\314 \"\206\315 \316\211\f\204+\317\320!\210\321 \322)!\323#\210\324*)+\325 \322+!\",\316\211-.,\204Y\306\326\327\330 !\"\202\243,\205d,+\f\"-.\204\225\325 \322\331\332\333\334)!\"!\211+!\"\211,\203\225,+\f\"-\335\336!\210\316\211.\203k.\204\241+/B/-,0\337\340!\2111\205\263\3411!,\342,!\203\330\3430!\203\330,9\203\323\344\345\346,!\"\204\330\3470!\210\3501/\"\211/.\207" [ess-describe-object-at-point-commands ess-dialect ess--descr-o-a-p-commands bs objname map message "Not implemented for dialect %s" ess-force-buffer-current make-sparse-keymap use-region-p buffer-substring-no-properties mark ess-symbol-at-point nil error "No object at point " define-key vector ess--describe-object-at-point t lookup-key "%s is undefined" key-description this-command-keys read-event format "Press %s to cycle" single-key-description sleep-for 0.01 read-key-sequence-vector "" key-binding commandp bufferp string-match "window" symbol-name kill-buffer append last-command-event inhibit-quit ev command out exit unread-command-events buf keys] 9 (#$ . 27678) nil]) (defalias 'ess--describe-object-at-point #[(ev objname) "\206 J\306\211A\242@\n\"\307\310!\311\312=\204\"\313\f!\210\314\315!\210\316 \317P\f\"\210r\fq\210eb\210\320\306\321 \"\322\323#c\210\324y\210`\325 \210\326\327\330\"\210)\312=\203a\331r\fq\210\332 )\333\334#\202m\313\f!\210\335\336\f! \"\210\f+\207" [ess--descr-o-a-p-commands ess-describe-object-at-point-commands objname com buf pos format get-buffer-create "*ess-describe*" nil tooltip display-buffer sit-for 0.01 ess-command "\n" propertize "%s:\n\n" face font-lock-string-face -1 special-mode local-set-key "k" kill-this-buffer ess-tooltip-show-at-point buffer-string 0 30 set-window-point get-buffer-window ess-describe-at-point-method] 4]) #@45 Submit a bug report to the ESS maintainers. (defalias 'ess-submit-bug-report #[nil "\301\302!\210\301\303!\210\304\305\306\307\310 P\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\257\330\331%)\207" [reporter-prompt-for-summary-p require ess-mode reporter t reporter-submit-bug-report "ess-bugs@r-project.org" "ess-mode " ess-version-string ess-language ess-dialect ess-ask-for-ess-directory ess-ask-about-transfile default-directory ess-keep-dump-files ess-source-directory ess-use-ido ess-use-eldoc ess-use-tracebug ess-use-auto-complete ess-use-company ess-eval-visibly-p ess-can-eval-in-background ess-local-process-name nil #[nil "\301 \210\302y\210\303c\210\304c\210\305c\210\306c\210rq\210db\210\307y\210\310`d\")c\207" [ess-dribble-buffer rfc822-goto-eoh 1 "\n\n-------------------------------------------------------\n" "This bug report will be sent to the ESS bugs email list\n" "Press C-c C-c when you are ready to send your message.\n" "-------------------------------------------------------\n\n" -100 buffer-substring-no-properties] 3]] 18 (#$ . 30309) nil]) (provide 'ess-help)