/[emacs]/emacs/lisp/progmodes/idlw-help.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/idlw-help.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by lute, Thu May 26 16:39:27 2005 UTC revision 1.6 by miles, Tue Jun 14 23:20:55 2005 UTC
# Line 182  support." Line 182  support."
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.")
# Line 586  Needs additional info stored in global ` Line 588  Needs additional info stored in global `
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

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26