182 |
:group 'idlwave-online-help |
:group 'idlwave-online-help |
183 |
:type 'string) |
:type 'string) |
184 |
|
|
185 |
(defface idlwave-help-link-face |
(defface idlwave-help-link |
186 |
'((((min-colors 88) (class color)) (:foreground "Blue1")) |
'((((min-colors 88) (class color)) (:foreground "Blue1")) |
187 |
(((class color)) (:foreground "Blue")) |
(((class color)) (:foreground "Blue")) |
188 |
(t (:weight bold))) |
(t (:weight bold))) |
189 |
"Face for highlighting links into IDLWAVE online help." |
"Face for highlighting links into IDLWAVE online help." |
190 |
:group 'idlwave-online-help) |
:group 'idlwave-online-help) |
191 |
|
;; backward-compatibility alias |
192 |
|
(put 'idlwave-help-link-face 'face-alias 'idlwave-help-link) |
193 |
|
|
194 |
(defvar idlwave-help-activate-links-aggressively nil |
(defvar idlwave-help-activate-links-aggressively nil |
195 |
"Obsolete variable.") |
"Obsolete variable.") |
588 |
(defun idlwave-highlight-linked-completions () |
(defun idlwave-highlight-linked-completions () |
589 |
"Highlight all completions for which help is available and attach link. |
"Highlight all completions for which help is available and attach link. |
590 |
Those words in `idlwave-completion-help-links' have links. The |
Those words in `idlwave-completion-help-links' have links. The |
591 |
`idlwave-help-link-face' face is used for this." |
`idlwave-help-link' face is used for this." |
592 |
(if idlwave-highlight-help-links-in-completion |
(if idlwave-highlight-help-links-in-completion |
593 |
(with-current-buffer (get-buffer "*Completions*") |
(with-current-buffer (get-buffer "*Completions*") |
594 |
(save-excursion |
(save-excursion |
595 |
(let* ((case-fold-search t) |
(let* ((case-fold-search t) |
596 |
(props (list 'face 'idlwave-help-link-face)) |
(props (list 'face 'idlwave-help-link)) |
597 |
(info idlwave-completion-help-info) ; global passed in |
(info idlwave-completion-help-info) ; global passed in |
598 |
(what (nth 0 info)) ; what was completed, or a func |
(what (nth 0 info)) ; what was completed, or a func |
599 |
(class (nth 3 info)) ; any class |
(class (nth 3 info)) ; any class |