diff options
author | Miles Bader <[email protected]> | 2005-06-14 23:20:55 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 2005-06-14 23:20:55 +0000 |
commit | 57267a95653775cd08890841b0e110405ccb6d41 (patch) | |
tree | fe7cb39737a9e7746706c58221cc657be8b8851e /lisp/progmodes/idlw-help.el | |
parent | ded09abd8d271f642d52d373b7ff726cfaefdb4e (diff) |
Revision: [email protected]/emacs--cvs-trunk--0--patch-413
Remove "-face" suffix from idlwave faces
2005-06-14 Miles Bader <[email protected]>
* lisp/progmodes/idlw-help.el (idlwave-help-link):
Remove "-face" suffix from face name.
(idlwave-help-link-face):
New backward-compatibility alias for renamed face.
(idlwave-highlight-linked-completions): Use renamed idlwave-help faces.
* lisp/progmodes/idlw-shell.el (idlwave-shell-bp-face)
(idlwave-shell-disabled-bp): Remove "-face" suffix from face names.
(idlwave-shell-bp-face, idlwave-shell-disabled-bp):
New backward-compatibility aliases for renamed faces.
(idlwave-shell-disabled-breakpoint-face)
(idlwave-shell-breakpoint-face): Use renamed idlwave-shell faces.
Diffstat (limited to 'lisp/progmodes/idlw-help.el')
-rw-r--r-- | lisp/progmodes/idlw-help.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el index 6c2cb00bbd..ba31e6e0ef 100644 --- a/lisp/progmodes/idlw-help.el +++ b/lisp/progmodes/idlw-help.el @@ -182,12 +182,14 @@ support." :group 'idlwave-online-help :type 'string) -(defface idlwave-help-link-face +(defface idlwave-help-link '((((min-colors 88) (class color)) (:foreground "Blue1")) (((class color)) (:foreground "Blue")) (t (:weight bold))) "Face for highlighting links into IDLWAVE online help." :group 'idlwave-online-help) +;; backward-compatibility alias +(put 'idlwave-help-link-face 'face-alias 'idlwave-help-link) (defvar idlwave-help-activate-links-aggressively nil "Obsolete variable.") @@ -586,12 +588,12 @@ Needs additional info stored in global `idlwave-completion-help-info'." (defun idlwave-highlight-linked-completions () "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' face is used for this." +`idlwave-help-link' face is used for this." (if idlwave-highlight-help-links-in-completion (with-current-buffer (get-buffer "*Completions*") (save-excursion (let* ((case-fold-search t) - (props (list 'face 'idlwave-help-link-face)) + (props (list 'face 'idlwave-help-link)) (info idlwave-completion-help-info) ; global passed in (what (nth 0 info)) ; what was completed, or a func (class (nth 3 info)) ; any class |