Lines Matching +defs:pos +defs:visible +defs:in +defs:window
18 ;; This file is distributed in the hope that it will be useful,
33 ;; information, in the file idlw-rinfo.el. The HTML help file
69 is used in preference to the old idlwave-html-help-location."
111 "Whether the browser will display locally in an Emacs window.
115 must be explicitly set non-nil in order for the variable
132 If you do not set the frame width here, the value specified in
139 "Maximum number of items per pane in popup menus.
146 Online help works only for system routines which are described in the
153 `window-start' in the help window. Also, the variable
155 which will be displayed in the mode line of the help window. If
163 in blue (indicating the availability of system documentation).
178 "*Non-nil means, try to find help in routine header when displaying source.
179 Routines which are not documented in the system manual use their source as
181 the help item in the first routine doclib header above the routine definition.
189 "*A regexp for the heading word to search for in doclib headers
196 "*A regexp for the heading word to search for in doclib headers
222 "Used for the special mode line in the idlwave-help-mode.")
224 (defvar idlwave-help-window-configuration nil)
230 "The keymap used in idlwave-help-mode.")
259 (defvar idlwave-help-def-pos)
261 (defvar idlwave-help-in-header)
298 (set (make-local-variable 'idlwave-help-def-pos) nil)
300 (set (make-local-variable 'idlwave-help-in-header) nil)
341 (defvar idlwave-last-context-help-pos)
352 (equal idlwave-last-context-help-pos marker))
355 (setq idlwave-last-context-help-pos marker)
440 ;; A class -- system OR in-text help (via class__define).
442 (or (idlwave-in-quote) ; e.g. obj_new
454 ;; A class structure tag (self.BLAH) -- only in-text help available
457 class-with found-in)
462 (setq found-in (idlwave-class-found-in class-with))
468 (if found-in
469 (cons (concat found-in "__define") class-with)
475 ;; A regular structure tag -- only in text, and if
486 ;; A routine keyword -- in text or system help
546 "Display online help on an item in the *Completions* buffer.
547 Needs additional info stored in global `idlwave-completion-help-info'."
548 (let* ((cw (selected-window))
549 (info idlwave-completion-help-info) ; global passed in
566 (select-window cw)
628 (defvar idlwave-highlight-help-links-in-completion)
632 Those words in `idlwave-completion-help-links' have links. The
634 (if idlwave-highlight-help-links-in-completion
639 (info idlwave-completion-help-info) ; global passed in
653 ;; Look for special link property passed in help-links
691 ((window-configuration-p idlwave-help-window-configuration)
692 (set-window-configuration idlwave-help-window-configuration)
693 (select-window (previous-window)))
697 (defvar default-toolbar-visible-p)
699 (defun idlwave-help-display-help-window (&optional pos-or-func)
700 "Display the help window.
701 Move window start to POS-OR-FUNC, if passed as a position, or call it
703 (let ((cw (selected-window))
705 (if (and window-system idlwave-help-use-dedicated-frame)
709 ;; Do it in this frame and save the window configuration
710 (if (not (get-buffer-window buf nil))
711 (setq idlwave-help-window-configuration
712 (current-window-configuration)))
714 (select-window (get-buffer-window buf)))
716 (if pos-or-func
717 (if (functionp pos-or-func)
718 (funcall pos-or-func)
719 (goto-char pos-or-func)
721 (select-window cw)))
742 `t', first look up the optional arguments in the routine info list to
782 (let* ((cw (selected-window))
783 (help-pos (save-excursion
788 (if help-pos
789 (idlwave-help-display-help-window help-pos)
791 (select-window cw)))
814 (idlwave-help-display-help-window '(lambda () (browse-url full-link))))
818 ;; A special help routine for source-level syntax help in files.
824 "Provide help for routines not documented in the IDL manuals. Works
840 file header-pos def-pos in-buf)
849 (setq idlwave-help-def-pos nil
851 idlwave-help-in-header nil
856 (setq in-buf ; structure-tag completion is always in current buffer
860 ;; see if file is in a visited buffer, insert those contents
861 (if in-buf
863 (setq file (buffer-file-name in-buf))
865 (insert-buffer-substring in-buf))
872 (if (and idlwave-help-fontify-source-code (not in-buf))
878 (setq def-pos
894 ;; location within the file has been recorded in
907 idlwave-help-def-pos def-pos)
913 (goto-char (or def-pos (point-max)))
914 (setq header-pos (idlwave-help-find-in-doc-header
916 idlwave-help-in-header header-pos)))
918 (if (or header-pos def-pos)
922 (goto-char (or header-pos def-pos)))
929 "Find the definition of routine CLASS::NAME in current buffer.
947 (defun idlwave-help-find-in-doc-header (name type class keyword
949 "Find the requested help in the doc-header above point.
953 given. Returns the point which should be window start of the help
954 window. If EXACT is non-nil, the full help position must be found -
1028 dstart dend name-pos kwds-pos kwd-pos)
1036 (if (setq name-pos (re-search-forward name-re dend t))
1042 (goto-char name-pos)
1045 (setq kwds-pos (match-beginning 0)))
1053 (setq kwd-pos (match-beginning 0))
1061 (throw 'exit (or kwd-pos kwds-pos name-pos dstart)))
1077 (let (pos)
1078 (if idlwave-help-in-header
1081 (setq idlwave-help-in-header nil)
1082 (setq pos idlwave-help-def-pos))
1084 (setq pos (idlwave-help-find-in-doc-header
1089 (if pos
1090 (setq idlwave-help-in-header t)
1094 (if pos
1096 (goto-char pos)
1101 (let (pos)
1105 (setq pos (match-beginning 0))))
1106 (if pos
1108 (goto-char pos)
1110 (error "No DocLib Header in current file"))))
1117 (setq idlwave-help-in-header nil)
1123 pos)
1124 (if idlwave-help-in-header
1127 (setq idlwave-help-in-header nil)
1128 (setq pos idlwave-help-def-pos))
1130 (setq pos (apply 'idlwave-help-find-in-doc-header
1134 (if pos
1135 (setq idlwave-help-in-header t)
1139 (if pos
1141 (goto-char pos)
1186 ;; (set-specifier menubar-visible-p sval)
1187 (set-specifier default-toolbar-visible-p sval)))
1289 ;; Open a link (file name with anchor, no leading path) in the assistant.