;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\316\317%\207" [require browse-url custom-declare-group idlwave-online-help nil "Online Help options for IDLWAVE mode." :group idlwave custom-declare-variable idlwave-html-help-pre-v6 funcall function #[0 "\300\207" [nil] 1 ""] "Whether pre or post-v6.0 IDL help documents are being used." :type boolean] 6)
(defvar idlwave-html-link-sep (byte-code "\203\301\207\302\207" [idlwave-html-help-pre-v6 "#" "#wp"] 1))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\307%\210\300\313\302\303\314DD\315\306\316%\210\300\317\302\303\320DD\321\306\303%\210\300\322\302\303\323DD\324\306\325%\210\300\326\302\303\327DD\330\306\331%\210\300\332\302\303\333DD\334\306\316%\210\300\335\302\303\336DD\337\306\316%\210\300\340\302\303\341DD\342\306\343%\210\300\344\302\303\345DD\346\306\347%\210\300\350\302\303\351DD\352\306\353%\210\300\354\302\303\355DD\356\306\316%\210\300\357\302\303\360DD\361\306\316%\210\300\362\302\303\363DD\364\306\365%\210\300\366\302\303\367DD\370\306\365%\210\371\372\373\374#\207" [custom-declare-variable idlwave-html-system-help-location funcall function #[0 "\300\207" ["help/online_help/"] 1 #1=""] "The directory, relative to `idlwave-system-directory', where the IDL\nHTML help files live, for IDL 6.2 and later.  This location, if found,\nis used in preference to the old `idlwave-html-help-location'." :type directory idlwave-html-help-location #[0 "\301>?\205\302\207" [system-type (ms-dos windows-nt) "/usr/local/etc/"] 2 #1#] "The directory where the idl_html_help/ dir lives.  Obsolete for IDL\n6.2 or later (see `idlwave-html-system-help-location')." idlwave-help-use-assistant #[0 "\300\207" [t] 1 #1#] "Whether to use the IDL Assistant as the help browser." boolean idlwave-help-browser-function #[0 "\207" [browse-url-browser-function] 1 #1#] "Function to use to display HTML help.\nDefaults to `browse-url-browser-function', which see." idlwave-help-browser-generic-program #[0 "\207" [browse-url-generic-program] 1 #1#] "Program to run if using `browse-url-generic-program'." (choice (const nil) string) idlwave-help-browser-generic-args #[0 "\301\300!\203\207\302\207" [browse-url-generic-args boundp #1#] 2 #1#] "Program args to use if using `browse-url-generic-program'." (repeat string) idlwave-help-browser-is-local #[0 "\300\207" [nil] 1 #1#] "Whether the browser will display locally in an Emacs window.\nSeveral browsers run and/or display inside Emacs windows, but most are\nexternal programs.  If the browser name contains \"-w3\", it is\nassumed to be local to Emacs.  For other local browsers, this variable\nmust be explicitly set non-nil in order for the variable\n`idlwave-help-use-dedicated-frame' to function." idlwave-help-use-dedicated-frame #[0 "\300\207" [t] 1 #1#] "Non-nil means, use a separate frame for Online Help if possible." idlwave-help-frame-parameters #[0 "\300\207" [((height . 32) (unsplittable . t))] 1 #1#] "The frame parameters for the special Online Help frame.\nSee also `idlwave-help-use-dedicated-frame'.\nIf you do not set the frame width here, the value specified in\n`idlw-help.el' will be used." (repeat (cons symbol sexp)) idlwave-max-popup-menu-items #[0 "\300\207" [20] 1 #1#] "Maximum number of items per pane in popup menus.\nCurrently only used for class selection during completion help." integer idlwave-extra-help-function #[0 "\300\207" [idlwave-help-with-source] 1 #1#] "The function to call for online help if the normal help fails.\nOnline help works only for system routines which are described in the\nIDL manuals.  A function may be specified to access help from other sources.\n\nThe function must accept four arguments: NAME, TYPE, CLASS, KEYWORD.\nThe Help buffer is current when this function is called, and the help\ntext should be loaded into this buffer.  If help is found, the\nfunction should return the buffer position which should be used as\n`window-start' in the help window.  Also, the variable\n`idlwave-help-mode-line-indicator' should be set to a useful string,\nwhich will be displayed in the mode line of the help window.  If\nshould also set the variable `idlwave-help-min-frame-width' to a\npositive integer.  IDLWAVE will ensure that the help frame is at least\nthat many columns wide.  Failure to find help should be indicated by\nthrowing an error.\n\nWhen this variable is non-nil, IDLWAVE will allow the mouse-3 help click\nfor every routine and keyword, even though the item may not be highlighted\nin blue (indicating the availability of system documentation).\n\nThe default value for this function is `idlwave-help-with-source' which\nloads the routine source file into the help buffer.  If you try to write\na different function which accesses a special help file or so, it is\nprobably a good idea to still call this function as a fallback." symbol idlwave-help-fontify-source-code #[0 "\300\207" [nil] 1 #1#] "Non-nil means, fontify source code displayed as help like normal code." idlwave-help-source-try-header #[0 "\300\207" [t] 1 #1#] "Non-nil means, try to find help in routine header when displaying source.\nRoutines which are not documented in the system manual use their source as\nhelp text.  When this variable is non-nil, we try to find a description of\nthe help item in the first routine doclib header above the routine definition.\nIf the variable is nil, or if we cannot find/parse the header, the routine\ndefinition is displayed instead." idlwave-help-doclib-name #[0 "\300\207" ["name"] 1 #1#] "A regexp for the heading word to search for in doclib headers\nwhich specifies the `name' section.  Can be used for localization\nsupport." regexp idlwave-help-doclib-keyword #[0 "\300\207" ["KEYWORD"] 1 #1#] "A regexp for the heading word to search for in doclib headers\nwhich specifies the `keywords' section.  Can be used for localization\nsupport." custom-declare-face idlwave-help-link ((t :inherit link)) "Face for highlighting links into IDLWAVE online help."] 6)
#@20 Obsolete variable.
(defvar idlwave-help-activate-links-aggressively nil (#$ . 6125))
#@43 The frame for display of IDL online help.
(defvar idlwave-help-frame nil (#$ . 6216))
#@38 The default width of the help frame.
(defvar idlwave-help-frame-width 102 (#$ . 6308))
#@43 Is the system online help text available?
(defvar idlwave-html-help-is-available nil (#$ . 6401))
#@60 Used for the special mode line in the `idlwave-help-mode'.
(defvar idlwave-help-mode-line-indicator "" (#$ . 6505))
(defvar idlwave-help-window-configuration nil)
(defvar idlwave-help-special-topic-words nil)
#@41 The keymap used in `idlwave-help-mode'.
(defvar idlwave-help-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\301
\314\313#\210\301
\315\316#\210\301
\317\320#\210\301
\321\322#\210\301
\323\324#\210\301
\325\326#\210\301
\327\326#\210\207" [make-sparse-keymap define-key "q" idlwave-help-quit "w" widen "
" #[257 "\300
!\207" [scroll-up] 3 "\n\n(fn ARG)" "p"] " " scroll-up-command [33554464] scroll-down-command [delete] "h" idlwave-help-find-header "H" idlwave-help-find-first-header "." idlwave-help-toggle-header-match-and-def "F" idlwave-help-fontify "\277" idlwave-help-return-to-calling-frame "x"] 5) (#$ . 6720))
#@31 Menu for Help IDLWAVE system.
(defvar idlwave-help-menu nil (#$ . 7416))
(easy-menu-do-define 'idlwave-help-menu idlwave-help-mode-map "Menu for Help IDLWAVE system." '("IDLHelp" ["Definition <-> Help Text" idlwave-help-toggle-header-match-and-def t] ["Find DocLib Header" idlwave-help-find-header t] ["Find First DocLib Header" idlwave-help-find-first-header t] ["Fontify help buffer" idlwave-help-fontify t] "--" ["Quit" idlwave-help-quit t]))
(defvar idlwave-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" [idlwave-help-mode-hook variable-documentation put "Hook run after entering IDLWAVE 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 idlwave-help-mode-map definition-name idlwave-help-mode] 4)
(defvar idlwave-help-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [idlwave-help-mode-abbrev-table idlwave-help-mode-map variable-documentation put purecopy "Keymap for `idlwave-help-mode'." boundp idlwave-help-mode-syntax-table definition-name idlwave-help-mode (lambda (#1=#:def-tmp-var) (defvar idlwave-help-mode-syntax-table #1#)) make-syntax-table "Syntax table for `idlwave-help-mode'." (lambda (#1#) (defvar idlwave-help-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `idlwave-help-mode'." derived-mode-parent special-mode] 5)
#@879 Major mode for displaying IDL Help.

This is a VIEW mode for the ASCII version of IDL Help files,
with some extras.  Its main purpose is speed - so don't
expect a fully hyper-linked help.

Scrolling:          SPC  DEL  RET
Text Searches:      Inside Topic: Use Emacs search functions
Exit:               [q]uit or mouse button 3 will kill the frame

When the hep text is a source file, the following commands are available

Fontification:      [F]ontify the buffer like source code
Jump:               [h] to function doclib header
                    [H] to file doclib header
                    [.] back and forth between header and definition

Here are all keybindings.
\{idlwave-help-mode-map}

In addition to any hooks its parent mode `special-mode' might have
run, this mode runs the hook `idlwave-help-mode-hook', as the final or
penultimate step during initialization.
(defalias 'idlwave-help-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
&=\204R\326
\325&C#\210\327!\210\330\f!\210
&\331 \210\307\211'(\332\333\334\335\336\337\257)\307*\306\340!\210\341 \306\342!\210\341\"\306\343!\210\341#)\344\345!\207" [delay-mode-hooks major-mode mode-name idlwave-help-mode-map idlwave-help-mode-syntax-table idlwave-help-mode-abbrev-table make-local-variable t special-mode idlwave-help-mode "IDLWAVE Help" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo "" mode-line-modified mode-line-buffer-identification ":  " idlwave-help-mode-line-indicator " -%-" idlwave-help-def-pos nil idlwave-help-args idlwave-help-in-header run-mode-hooks idlwave-help-mode-hook local-abbrev-table truncate-lines case-fold-search mode-line-format buffer-read-only] 7 (#$ . 9100) nil])
#@76 Return the help directory where HTML files are, or nil if that is unknown.
(defalias 'idlwave-html-help-location #[0 "\302\303 \"	;\203	G\304V\203	\206\305\306!
\203$\307!\203$
\207\211\2055\302\310\"\262
\307
!\2055\211\207" [idlwave-html-system-help-location idlwave-html-help-location expand-file-name idlwave-sys-dir 0 getenv "IDLWAVE_HELP_LOCATION" file-directory-p "idl_html_help"] 5 (#$ . 11113)])
(defvar idlwave-help-assistant-available nil)
(defalias 'idlwave-help-check-locations #[0 "\301 \302 \303!\203\211\203\303
!\204\304\305!\210\205+\306 \307=?\205+\304\310!\210\311\211\207" [idlwave-help-use-assistant idlwave-sys-dir idlwave-html-help-location file-directory-p message "HTML help location not found: try setting `idlwave-system-directory' and/or `idlwave-html-help-location'." idlwave-help-assistant-available t "Cannot locate IDL Assistant, enabling default browser." nil] 4])
#@125 Wrapper around the call to `idlwave-do-context-help1'.
It collects and prints the diagnostics messages.

(fn &optional ARG)
(defalias 'idlwave-do-context-help #[256 "p`D\305	\203\n\232\203\f
\232\203\306 \202-\211\307!\210\205-\310\311\312\313\237\314#\")\207" [idlwave-help-diagnostics idlwave-experimental last-command this-command idlwave-last-context-help-pos nil idlwave-help-select-help-frame idlwave-do-context-help1 message "%s" mapconcat identity "; "] 8 (#$ . 12043)])
(defvar idlwave-help-do-class-struct-tag nil)
(defvar idlwave-help-do-struct-tag nil)
#@82 The work-horse version of `idlwave-context-help', which see.

(fn &optional ARG)
(defalias 'idlwave-do-context-help1 #[256 "\212\306f\307=\203\310u\210\202`Sf\311=\203\312u\210\306\211\313\232\212\314\306x\210`)\212\314\306w\210`)\315\"\316
\n\317#\320\321\"\205B\322ZW\323\324!\205T\320\325\"\205T\322ZW\306\211\211\211\211\211\f\204r\204\246\204\246\326\n!\327>\204\246\330 \262\331\332 8\262\333@!\334\232\203\246\212\335 \210`)\211`{\320\336\"\203\244\337\340\341\310\"E\262\341\310\"\266\f\203\261\262\202\262\203\305\342>\204\305AC\262\202\262\320\343\"\203

\344\310\"\345
!\f\236\344\346
\"\211\205\351\347
!\350\236A\236A\351\236A@
\203\370\352
\"\262
\211C\262\266\202\262\320\353\"\203
\341\310\"\316

\317#A\211C\262\266\202\262\354=\203P
\355 \2044
\356\357e`\360Z]\317#\203P
\361\n!@\236\n\227\362P\351\236A@\211\363E\262\266\202\262\203\234
	\364\225\306O\306\211\365\331\366 8\"\211\262\203\227
\367!\262
\361!@\236\203|
\370\371!\210\317A\306
\203\214

\362PB\202\217
\362P\363\306\257\262\266\202\262\203\302
\341\310\"\n\364\225\306O\372!\210BC\306\211\211\211\257\262\266\202\262\373>\203\250	;\203\250\320\374\"\203\250\375\376\"\204\250\206\344
`Sf\307U\204\371
\212\nb\210\377\201D!)\203^\201E\n\"\262\204'\201F\201G\201H\201I\331\n8\n@\"
\226#\201J\"\210\202D:\203D\201F\201G\201KG
#\201J\"\210@\262\201L\317CC#\262\201L\317C\"\262\202\262\nf\360=\203s\201L\317C\"\262\202\262\201E\n\"\262:\203\206@\262\201L\317CC#\262\317\n\340\306F\262\201L\317C\"\262
\202\262\201L\317C\"\262\211\203\347\201M1\310\201N\201O\"0\202\210\201P1\333\201N\201O\"0\202\210\201N\201O\"\202
\203	\201Q1\375\201N\201O\"0\202\210\201N\201O\"\202\203\201N\201O\"\202\370\201R!*\266\214)\207" [idlwave-query-class idlwave-force-class-query idlwave-help-special-topic-words idlwave-current-obj_new-class idlwave-system-variables-alist idlwave-executive-commands-alist nil 47 1 61 -1 (4) "a-zA-Z0-9_$.!" buffer-substring-no-properties assoc-string t string-match "self\\." 4 fboundp idlwave-complete-structure-tag "\\`\\([^.]+\\)\\." string-to-char (33 46) idlwave-what-module-find-class 2 idlwave-where idlwave-downcase-safe "obj_new" idlwave-beginning-of-statement "OBJ_NEW([ 	]*['\"]\\([a-zA-Z][a-zA-Z0-9$_]+\\)['\"]" "init" fun match-string (function-keyword procedure-keyword) "\\`!\\([a-zA-Z0-9_]+\\)\\(\\.\\([A-Za-z0-9_]+\\)\\)?" match-string-no-properties idlwave-sintern-sysvar 3 idlwave-sintern-sysvartag tags link idlwave-substitute-link-target "^\\.\\([A-Z_]+\\)" class idlwave-in-quote re-search-backward "\\<inherits[ 	]+[A-Za-z0-9_]*\\=" 40 idlwave-sintern-class "__define" pro 0 idlwave-class-or-superclass-with-tag idlwave-current-routine idlwave-class-found-in error "No help available for system class tags" idlwave-prepare-structure-tag-completion (function-keyword procedure-keyword) "\\S-" string-search "!" looking-at idlwave-system-class-info idlwave-help-do-class-struct-tag idlwave-structtag-struct-location idlwave-help-do-struct-tag "[ 	]*=" idlwave-expand-keyword idlwave-help-diagnostics format "%s does not accept `%s' kwd" idlwave-make-full-name ding "%d matches for kwd abbrev `%s'" append (error) apply idlwave-online-help (error) (error) "Don't know which item to show help for"] 21 (#$ . 12628)])
#@141 Display online help on an item in the *Completions* buffer.
Needs additional info stored in global `idlwave-completion-help-info'.

(fn EV)
(defalias 'idlwave-do-mouse-completion-help #[257 "\305 \211@
A@\3068\3078\211\3108\3118\312\211\313	!\210\314 \262
\211\315\230\203-\316\317!\210\320\321\322#\323!\210\324\267\202\351\211\325=\204O;\203o
\203o\326\327	!\"\325\203e\330
B\"\262
\331\n\332\333$\262\210;\203

\334\335	\"\336!#\262\202

\211\325=\204\227;\203\321
\203\321\337\327	!\340\n!#\325\203\260\330
B\"\262
\331\n\332\333$\262;\203\315\334\335	\"\336!#\262\210\202

	\227\341\230\203

\f\262\342\202

\211\262\312\262
\202

9\203\375\343!\203\375\344\"\210\202

\316\345!\210\203
\204
\203
\325=\203
\316\345!\210\346	\206
\n%+\207" [idlwave-completion-help-info idlw-help-name idlw-help-kwd idlw-help-link idlwave-current-obj_new-class selected-window 2 3 4 5 nil mouse-set-point idlwave-this-word "" error "No help item selected" get-text-property 0 link select-window #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (procedure 62 function 62 routine 62 keyword 134 class 224)) t idlwave-all-method-classes idlwave-sintern-method idlwave-members-only idlwave-popup-select "Select Class" sort idlwave-find-inherited-class idlwave-sintern-routine-or-method idlwave-sintern-class idlwave-all-method-keyword-classes idlwave-sintern-keyword "obj_new" "Init" fboundp set "Cannot help with this item" idlwave-online-help] 15 (#$ . 16107)])
#@179 Highlight all completions for which help is available and attach link.
Those words in `idlwave-completion-help-links' have links.  The
`idlwave-help-link' face is used for this.
(defalias 'idlwave-highlight-linked-completions #[0 "\205~r\305\306!q\210\212\307\310\311D\n\211@\312\211\211\211eb\210\313\314\312\307#\210\313\315\312\307#\205z\316\224\262\316\225\262\317\316!\262\312\262
9\203L\320!\203L\321\"\262
\202W\203W\322\307#\262
\211\203t\211:\203j\323\324AD\"\262\312\325	#\210)
b\210\202 )\266\207*\207" [idlwave-highlight-help-links-in-completion case-fold-search idlwave-completion-help-info idlwave-completion-help-links buffer-read-only get-buffer "*Completions*" t face idlwave-help-link nil re-search-forward "possible completions are:" "\\s-\\([A-Za-z0-9_.]+\\)\\(\\s-\\|\\'\\)" 1 match-string fboundp test assoc-string append link add-text-properties] 11 (#$ . 17690)])
(add-hook 'idlwave-completion-setup-hook 'idlwave-highlight-linked-completions)
#@45 The frame to return to from the help frame.
(defvar idlwave-help-return-frame nil (#$ . 18693))
#@61 Exit IDLWAVE Help buffer.  Kill the dedicated frame if any.
(defalias 'idlwave-help-quit #[0 "\2037\305 	=\2037\n\2033\306!\2033\307\310!\210\311\312!\2032\305 =\2042\211\312\\\211\262\313W\204\210\314	!\207\315\f!\203F\316\f!\210\317\320 !\207\321\322 !\207" [idlwave-help-use-dedicated-frame idlwave-help-frame idlwave-experimental idlwave-help-return-frame idlwave-help-window-configuration selected-frame frame-live-p 0 select-frame sit-for 0.1 1.0 delete-frame window-configuration-p set-window-configuration select-window previous-window kill-buffer idlwave-help-get-help-buffer] 3 (#$ . 18795) nil])
#@190 Display the help window.
Move window start to POS-OR-FUNC, if passed as a position, or call it
if passed as a function.  See `idlwave-help-use-dedicated-frame'.

(fn &optional POS-OR-FUNC)
(defalias 'idlwave-help-display-help-window #[256 "\303 \304 \203	\203\305 \210\306
!\210\202-\307
\310\"\204 \311 \312
\310\313 #\210\314\307!!\210\315 \210\203G\316!\203@ \210\202Gb\210\317\320!\210\314!\207" [window-system idlwave-help-use-dedicated-frame idlwave-help-window-configuration selected-window idlwave-help-get-help-buffer idlwave-help-show-help-frame switch-to-buffer get-buffer-window nil current-window-configuration display-buffer selected-frame select-window raise-frame functionp recenter 0] 7 (#$ . 19423)])
#@24 Select the help frame.
(defalias 'idlwave-help-select-help-frame #[0 "\302!\205\303 =?\205\303 \304!\207" [idlwave-help-frame idlwave-help-return-frame frame-live-p selected-frame select-frame] 2 (#$ . 20165)])
#@58 Select the frame from which the help frame was selected.
(defalias 'idlwave-help-return-to-calling-frame #[0 "\301!\205\302 =?\205\303!\207" [idlwave-help-return-frame frame-live-p selected-frame select-frame] 2 (#$ . 20390) nil])
#@377 Display HTML or other special help on a certain topic.
Either loads an HTML link, if LINK is non-nil, or gets special-help on
the optional arguments, if any special help is defined.  If LINK is
t, first look up the optional arguments in the routine info list to
see if a link is set for it.  Try extra help functions if necessary.

(fn LINK &optional NAME TYPE CLASS KEYWORD)
(defalias 'idlwave-online-help #[1281 "\302=\203L\303\304 \305\302&\211\203,
\203#\306
\"A\211\262\204K\307
!\262\210\202L\203K\310!\236\262
\311
\236A@\211\262\203K\312\313\314\"\"\210\210;\203U\315!\207	\203`\316$\207\317$\207" [idlwave-system-class-info idlwave-extra-help-function t idlwave-best-rinfo-assoc idlwave-routines nil idlwave-entry-find-keyword idlwave-entry-has-help idlwave-sintern-class link message "No routine info for %s, falling back on class help." idlwave-make-full-name idlwave-help-html-link idlwave-help-get-special-help idlwave-help-error] 12 (#$ . 20635)])
#@89 Call the function given by `idlwave-extra-help-function'.

(fn NAME TYPE CLASS KEYWORD)
(defalias 'idlwave-help-get-special-help #[1028 "\302 r\303 q\210\304	$*\211\203\305
!\210\202&\306$\210\307!\207" [buffer-read-only idlwave-extra-help-function selected-window idlwave-help-get-help-buffer nil idlwave-help-display-help-window idlwave-help-error select-window] 11 (#$ . 21637)])
#@43 Get HTML help on a given LINK.

(fn LINK)
(defalias 'idlwave-help-html-link #[257 "\306 	\307C
;\203\310!\204\311\312!\210\211\313\314\"!\240\210\f\203.\315!\202H
\204;\316\317\320!\"\203D\321\322\323\"!\202H\324
\242!*\207" [idlwave-help-browser-function idlwave-help-browser-generic-program browse-url-generic-program browse-url-browser-function idlwave-help-use-assistant idlwave-help-browser-is-local idlwave-html-help-location nil file-directory-p error "Invalid help location" browse-url-file-url expand-file-name idlwave-help-assistant-open-link string-match "w3" symbol-name idlwave-help-display-help-window make-closure #[0 "\301\300\242!\207" [V0 browse-url] 2] browse-url] 10 (#$ . 22043)])
#@564 Provide help for routines not documented in the IDL manuals.
Works by loading the routine source file into the help buffer.
Depending on the value of `idlwave-help-source-try-header', it
attempts to show the routine definition or the header description.
If `idlwave-help-do-class-struct-tag' is non-nil, keyword is a tag
to show help on from the class definition structure.
If `idlwave-help-do-struct-tag' is non-nil, show help from the
matching structure tag definition.

This function can be used as `idlwave-extra-help-function'.

(fn NAME TYPE CLASS KEYWORD)
(defalias 'idlwave-help-with-source #[1028 "	\306:\205A:\203@\202;\205!\211;?\307\211\211\211\203/\310\262\311\262\f\204H\312\313\314\206?\306\315 $8!\262\307\f\f\fF\307\211\307\204c;\203\266\203m#\202p\316!\262
\211\203\205\317
!\262\320 \210\321
!\210\202\244\322!\203\231\320 \210\323\307\211\211\324%\210\202\244\325


$\210eb\210$\203\301\211\204\301\326 \210\202\301\325


$\210%\203\360\212\327\330\"\203\332\331\332\224O\202\334&\262\333\307	#\205\354\334\n!)\202
\203\n
\212\250\205
b\205
\334\n!)\202
\203
e\202
\335


$\262
'\203G
\204G
\204G
\212
\2065
db\210\336


\337%\262)\204O

\203b
\340\341!\203X
\342!\206]

b\210\202m
\325


$\210`)\207" [idlwave-help-do-class-struct-tag idlwave-help-do-struct-tag case-fold-search idlwave-help-def-pos idlwave-help-args idlwave-help-in-header t nil "Init" fun idlwave-routine-source-file 3 idlwave-best-rinfo-assoc idlwave-routines find-buffer-visiting buffer-file-name erase-buffer insert-buffer-substring file-exists-p insert-file-contents replace idlwave-help-error idlwave-help-fontify string-match "[a-zA-Z0-9]\\(__\\)" 0 1 idlwave-find-class-definition idlwave-find-struct-tag idlwave-help-find-routine-definition idlwave-help-find-in-doc-header exact boundp idlwave-help-min-frame-width 80 idlwave-current-tags-buffer idlwave-help-fontify-source-code idlwave-help-mode-line-indicator idlwave-current-tags-class idlwave-help-source-try-header] 21 (#$ . 22774)])
#@170 Find the definition of routine CLASS::NAME in current buffer.
Returns the point of match if successful, nil otherwise.
KEYWORD is ignored.

(fn NAME TYPE CLASS KEYWORD)
(defalias 'idlwave-help-find-routine-definition #[1028 "\212db\210\300\301\302=\203\303\202\304=\203\305\202\306\307\310\311\n\"\227!\312\260\313\314#\2050\315\224)\207" [re-search-backward "^[ 	]*" pro "pro" fun "function" "\\(pro\\|function\\)" "[ 	]+" regexp-quote idlwave-make-full-name "[, 	
\n]" nil t 0] 12 (#$ . 24900)])
#@1418 Find the requested help in the doc-header above point.

First checks if there is a doc-lib header which describes the correct
routine.  Then tries to find the KEYWORDS section and the KEYWORD, if
given.  Returns the point which should be window start of the help
window.  If EXACT is non-nil, the full help position must be found -
down to the keyword requested.  This setting is for context help, if
the exact spot is needed.

If EXACT is nil, the position of the header is returned if it
describes the correct routine - even if the keyword description cannot
be found.  TYPE is ignored.

This function expects a more or less standard routine header.  In
particular it looks for the `NAME:' tag, either with a colon, or alone
on a line.  Then `NAME:' must be followed by the routine name on the
same or the next line.  When KEYWORD is non-nil, looks first for a
`KEYWORDS' section.  It is amazing how inconsistent this is through
some IDL libraries I have seen.  We settle for a line containing an
upper case "KEYWORD" string.  If this line is not found we search
for the keyword anyway to increase the hit-rate

When one of these sections exists we check for a line starting with any of

  /KEYWORD  KEYWORD-  KEYWORD=  KEYWORD

with spaces allowed between the keyword and the following dash or equal sign.
If there is a match, we assume it is the keyword description.

(fn NAME TYPE CLASS KEYWORD &optional EXACT)
(defalias 'idlwave-help-find-in-doc-header #[1284 "\305;\203!\306\307\227!\310\307\227!\311\312\307	\227!\313Q\314\260\202%\307\227!\315	\316\317\320\260\321\n\322Q\205E\323\307\226!\312\307\226!\324\260\205Q\325\307\226!\326Q\327\211\211\211\211\3302
\212eb\210\331\327\305#\211\262\203\372\331\f\327\305#\211\262\203\372b\210\331	\305#\211\262\203\364\203\337b\210\327\331\305#)\203\233\332\224\262\327\331\305#)\204\305\331\305#\204\305\327\331\305#)\204\305\331\305#\203\314\332\224\262
\202\337\n\203\337\333\334\335\226\"!\210\336\330\327\"\210\336\330\206\357\206\357\206\357\"\210\202^b\210\202^)\333\337!\210\336\330\327\"0)\207" [case-fold-search idlwave-help-doclib-name idlwave-help-doclib-keyword idlwave-doclib-start idlwave-doclib-end t "\\(\\(\\(" regexp-quote "::\\)?" "\\>\\)" "\\|" "\\(__define\\)?" "\\)" "\\(^;+\\*?[ 	]*" "\\([ 	]*:\\|[ 	]*$\\)[ 	]*\\(\n;+[ 	]*\\)*" "\\|^;+[ 	]*" ":[ 	]*$\\)" "^;+\\*?[ 	]*\\([-A-Z_ ]*" "[-A-Z_ ]*\\)\\(:\\|[ 	]*\n\\)" "^;+[ 	]+\\(/" "[ 	]*[-=:\n]\\)" "^;+[ 	]+" "\\>" nil exit re-search-forward 0 idlwave-help-diagnostics format "Could not find description of kwd %s" throw "Could not find doclib header"] 19 (#$ . 25421)])
#@112 Add a diagnostics string to the list.
When DING is non-nil, ring the bell as well.

(fn STRING &optional DING)
(defalias 'idlwave-help-diagnostics #[513 "\301\300!\205
B\211\205\302 \207" [idlwave-help-diagnostics boundp ding] 4 (#$ . 28104)])
#@22 

(fn &optional ARG)
(defalias 'idlwave-help-toggle-header-top-and-def #[256 "\303\203
\303	\262
\202.\304\n@\nA@\305\n8\303$\262
\211\203#\306\202.\307\310\311\305\n8\n@\"\"\210\211\2058\211b\210\312\313!\207" [idlwave-help-in-header idlwave-help-def-pos idlwave-help-args nil idlwave-help-find-in-doc-header 2 t error "Cannot find doclib header for routine %s" idlwave-make-full-name recenter 0] 7 (#$ . 28360) nil])
#@22 

(fn &optional ARG)
(defalias 'idlwave-help-find-first-header #[256 "\301\212eb\210\302\301\303#\203\304\224\262
)\211\203\211b\210\305\304!\207\306\307!\207" [idlwave-doclib-start nil re-search-forward t 0 recenter error "No DocLib Header in current file"] 6 (#$ . 28793) nil])
#@38 Jump to the DocLib Header.

(fn ARG)
(defalias 'idlwave-help-find-header #[257 "\211\203\301\302!\207\302\303
\304\"\207" [idlwave-help-in-header idlwave-help-find-first-header nil idlwave-help-toggle-header-match-and-def top] 4 (#$ . 29084) "P"])
#@26 

(fn &optional ARG TOP)
(defalias 'idlwave-help-toggle-header-match-and-def #[512 "\303	\203\303\n\262
\202:\304\305\203\"@A@\3068\303F\202#\"\262
\211\203/\307\202:\310\311\312\3068@\"\"\210\211\205D\211b\210\313\314!\207" [idlwave-help-args idlwave-help-in-header idlwave-help-def-pos nil apply idlwave-help-find-in-doc-header 2 t error "Cannot find doclib header for routine %s" idlwave-make-full-name recenter 0] 10 (#$ . 29341) nil])
#@139 Fontify the Help buffer as source code.
Useful when source code is displayed as help.  See the option
`idlwave-help-fontify-source-code'.
(defalias 'idlwave-help-fontify #[0 "\305\306\307!\205\310 p\311\312#\216\313\n!\210\314\304!\210\315\316!\203(\316 \202*\317 )\266\202*\207" [font-lock-verbose major-mode idlwave-mode-syntax-table idlwave-font-lock-defaults font-lock-defaults idlwave-mode called-interactively-p interactive syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table make-local-variable fboundp font-lock-ensure font-lock-fontify-buffer] 6 (#$ . 29807) nil])
#@32 

(fn NAME TYPE CLASS KEYWORD)
(defalias 'idlwave-help-error #[1028 "\301\302\204\n\203\303\"\206\304\203\305\306\226\"\202 \307\203(\307\202)\310$\207" [idlwave-html-help-location error "Can't find help on %s%s %s" idlwave-make-full-name "<unknown>" format ", keyword %s" "" "(help location unknown)"] 10 (#$ . 30448)])
#@48 Show the help frame, creating it if necessary.
(defalias 'idlwave-help-show-help-frame #[0 "\302!\204\303	!\304\305\"\210\306!\207" [idlwave-help-frame idlwave-help-frame-parameters frame-live-p make-frame modify-frame-parameters ((tool-bar-lines . 0)) select-frame] 3 (#$ . 30793)])
#@62 Return the IDLWAVE Help buffer.  Make it first if necessary.
(defalias 'idlwave-help-get-help-buffer #[0 "\300\301!\211\204\302\301!\262
r\211q\210\303 \210)\207" [get-buffer "*IDLWAVE Help*" get-buffer-create idlwave-help-mode] 3 (#$ . 31089)])
#@20 

(fn REGEXP LIST)
(defalias 'idlwave-grep #[514 "\300
\203\301@\"\203
@
B\262

A\262\202
\211\237\207" [nil string-match] 6 (#$ . 31343)])
#@14 

(fn ENTRY)
(defalias 'idlwave-entry-has-help #[257 "\211\205\300
8@\207" [5] 3 (#$ . 31497)])
#@63 Does this have help associated with it?

(fn NAME TYPE CLASS)
(defalias 'idlwave-has-help #[771 "\300\301 $\302
!\207" [idlwave-best-rinfo-assoc idlwave-routines idlwave-entry-has-help] 8 (#$ . 31601)])
(defvar idlwave-help-assistant-process nil)
(defvar idlwave-help-assistant-socket nil)
#@85 The command, rooted at `idlwave-system-directory', which invokes the
IDL assistant.
(defvar idlwave-help-assistant-command (byte-code "\301>\203\302\207\303\207" [system-type (ms-dos windows-nt) "bin/bin.x86/idl_assistant.exe" "bin/idl_assistant"] 2) (#$ . 31900))
(defalias 'idlwave-help-assistant-available #[0 "\203\301=\207\302\303 !\203\301\202\304\211\207" [idlwave-help-assistant-available t file-executable-p idlwave-help-assistant-command not-available] 2])
(defalias 'idlwave-help-assistant-command #[0 "\301\302 \"\207" [idlwave-help-assistant-command expand-file-name idlwave-sys-dir] 3])
#@87 Start the IDL Assistant, loading link FULL-LINK, if passed.

(fn &optional FULL-LINK)
(defalias 'idlwave-help-assistant-start #[256 "\203
\303!\304=?\205\200\305 \306 	\307>\205\310\311\312\"D\205$\313D\244\314C\203/\315!\210\316\317\320\314\321&\322\n\323\324\"\"\210\325\n\326\"\204N\327\330!\210\211\242\204W\327\331!\207\322\n\314\"\210\332\333\314\334\242$\303!\304=\203x\335\336\337Q\"\266\340\207\341 \210\327\342!\266\204\207" [idlwave-help-assistant-socket system-type idlwave-help-assistant-process process-status open idlwave-html-help-location idlwave-help-assistant-command (ms-dos windows-nt) "-profile" expand-file-name "idl.adp" "-file" nil delete-process apply start-process "IDL_ASSISTANT_PROC" "-server" set-process-filter make-closure #[514 "\300\301!\240\207" [V0 string-to-number] 5 "\n\n(fn PROC STRING)"] accept-process-output 15 error "Failed binding IDL_ASSISTANT socket" "Unable to open IDL_ASSISTANT" open-network-stream "IDL_ASSISTANT_SOCK" "localhost" process-send-string "setHelpPath " "\n" t idlwave-help-assistant-close "Cannot communicate with IDL_ASSISTANT"] 12 (#$ . 32520)])
(defalias 'idlwave-help-assistant-raise #[0 "\301 \210\302\303\"\207" [idlwave-help-assistant-socket idlwave-help-assistant-start process-send-string "raise\n"] 3])
#@23 

(fn &optional LINK)
(defalias 'idlwave-help-assistant-open-link #[256 "\301 \302\211\211\211\211\211\303\304	\"\203#\305\211\224O\262\305\225\302O\262\202'\306\307!\210\310\311P\"\262\312!\203=\313\262\202M\310\226\311P\"\262\312!\262P\262
\314\205X
!\262
\203x\204k\315\316\317Q\"\210\315\320\317Q\"\266\202\202\315\321\317Q\"\266\322 \207" [idlwave-help-assistant-socket idlwave-html-help-location nil string-match "\\.html" 0 error "Malformed help link" expand-file-name ".html" file-exists-p t idlwave-help-assistant-start process-send-string "openLink " "\n" "searchIndexNoOpen " "searchIndexAndOpen " idlwave-help-assistant-raise] 13 (#$ . 33835)])
#@58 The history of help topics selected with the minibuffer.
(defvar idlwave-help-assistant-help-with-topic-history nil (#$ . 34542))
#@63 Prompt for and provide help with TOPIC.

(fn &optional TOPIC)
(defalias 'idlwave-help-assistant-help-with-topic #[256 "\303
\204 \304 \210\305\306\307\"\306\310	\"\n#\262
\311\312\303\211\211\313&\262
\2050
\314\230?\2050\315\316P!\207" [idlwave-system-routines idlwave-executive-commands-alist idlwave-system-class-info nil idlwave-routines append mapcar #[257 "\300
8
@P\207" [2] 3 "\n\n(fn X)"] #[257 "\300
@P\207" ["."] 3 "\n\n(fn X)"] idlwave-completing-read "Help Topic: " idlwave-help-assistant-help-with-topic-history "" idlwave-help-assistant-open-link ".html"] 9 (#$ . 34678) nil])
(defalias 'idlwave-help-assistant-close #[0 "\205&\302!\303=\205&	\203\304	\305\"\210\306	!\210\307!\210\306!\210\310\211\211\207" [idlwave-help-assistant-process idlwave-help-assistant-socket process-status run process-send-string "quit\n" delete-process stop-process nil] 4])
(defvar idlwave-help-browse-url-available t)
(make-obsolete-variable 'idlwave-help-browse-url-available nil "28.1")
#@20 Obsolete variable.
(defvar idlwave-help-use-hh nil (#$ . 35688))
(make-obsolete-variable 'idlwave-help-use-hh nil "28.1")
#@55 Obsolete variable.  See `idlwave-html-help-location'.
(defvar idlwave-help-directory "" (#$ . 35816))
(byte-code "\300\301\302\303#\210\304\305!\210\304\306!\207" [make-obsolete-variable idlwave-help-directory nil "28.1" provide idlw-help idlwave-help] 4)