Mercurial > emacs
comparison lisp/progmodes/idlw-shell.el @ 63450:87216f91a211
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-413
Remove "-face" suffix from idlwave faces
2005-06-14 Miles Bader <miles@gnu.org>
* 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.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 14 Jun 2005 23:20:55 +0000 |
| parents | 1fca8244172a |
| children | 82d080bf4f42 e58cb448e07c a1b34dec1104 |
comparison
equal
deleted
inserted
replaced
| 63449:d6d67f85ab76 | 63450:87216f91a211 |
|---|---|
| 508 (const :tag "Glyph or face." t))) | 508 (const :tag "Glyph or face." t))) |
| 509 | 509 |
| 510 (defvar idlwave-shell-use-breakpoint-glyph t | 510 (defvar idlwave-shell-use-breakpoint-glyph t |
| 511 "Obsolete variable. See `idlwave-shell-mark-breakpoints.") | 511 "Obsolete variable. See `idlwave-shell-mark-breakpoints.") |
| 512 | 512 |
| 513 (defcustom idlwave-shell-breakpoint-face 'idlwave-shell-bp-face | 513 (defcustom idlwave-shell-breakpoint-face 'idlwave-shell-bp |
| 514 "*The face for breakpoint lines in the source code. | 514 "*The face for breakpoint lines in the source code. |
| 515 Allows you to choose the font, color and other properties for | 515 Allows you to choose the font, color and other properties for |
| 516 lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'." | 516 lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'." |
| 517 :group 'idlwave-shell-highlighting-and-faces | 517 :group 'idlwave-shell-highlighting-and-faces |
| 518 :type 'symbol) | 518 :type 'symbol) |
| 519 | 519 |
| 520 (if idlwave-shell-have-new-custom | 520 (if (not idlwave-shell-have-new-custom) |
| 521 ;; We have the new customize - use it to define a customizable face | 521 ;; Just copy the underline face to be on the safe side. |
| 522 (defface idlwave-shell-bp-face | 522 (copy-face 'underline 'idlwave-shell-bp) |
| 523 '((((class color)) (:foreground "Black" :background "Pink")) | 523 ;; We have the new customize - use it to define a customizable face |
| 524 (t (:underline t))) | 524 (defface idlwave-shell-bp |
| 525 "Face for highlighting lines with breakpoints." | 525 '((((class color)) (:foreground "Black" :background "Pink")) |
| 526 :group 'idlwave-shell-highlighting-and-faces) | 526 (t (:underline t))) |
| 527 ;; Just copy the underline face to be on the safe side. | 527 "Face for highlighting lines with breakpoints." |
| 528 (copy-face 'underline 'idlwave-shell-bp-face)) | 528 :group 'idlwave-shell-highlighting-and-faces) |
| 529 ;; backward-compatibility alias | |
| 530 (put 'idlwave-shell-bp-face 'face-alias 'idlwave-shell-bp)) | |
| 529 | 531 |
| 530 (defcustom idlwave-shell-disabled-breakpoint-face | 532 (defcustom idlwave-shell-disabled-breakpoint-face |
| 531 'idlwave-shell-disabled-bp-face | 533 'idlwave-shell-disabled-bp |
| 532 "*The face for disabled breakpoint lines in the source code. | 534 "*The face for disabled breakpoint lines in the source code. |
| 533 Allows you to choose the font, color and other properties for | 535 Allows you to choose the font, color and other properties for |
| 534 lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'." | 536 lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'." |
| 535 :group 'idlwave-shell-highlighting-and-faces | 537 :group 'idlwave-shell-highlighting-and-faces |
| 536 :type 'symbol) | 538 :type 'symbol) |
| 537 | 539 |
| 538 (if idlwave-shell-have-new-custom | 540 (if (not idlwave-shell-have-new-custom) |
| 539 ;; We have the new customize - use it to define a customizable face | 541 ;; Just copy the underline face to be on the safe side. |
| 540 (defface idlwave-shell-disabled-bp-face | 542 (copy-face 'underline 'idlwave-shell-disabled-bp) |
| 541 '((((class color)) (:foreground "Black" :background "gray")) | 543 ;; We have the new customize - use it to define a customizable face |
| 542 (t (:underline t))) | 544 (defface idlwave-shell-disabled-bp |
| 543 "Face for highlighting lines with breakpoints." | 545 '((((class color)) (:foreground "Black" :background "gray")) |
| 544 :group 'idlwave-shell-highlighting-and-faces) | 546 (t (:underline t))) |
| 545 ;; Just copy the underline face to be on the safe side. | 547 "Face for highlighting lines with breakpoints." |
| 546 (copy-face 'underline 'idlwave-shell-disabled-bp-face)) | 548 :group 'idlwave-shell-highlighting-and-faces) |
| 549 ;; backward-compatibility alias | |
| 550 (put 'idlwave-shell-disabled-bp-face 'face-alias 'idlwave-shell-disabled-bp)) | |
| 547 | 551 |
| 548 | 552 |
| 549 (defcustom idlwave-shell-expression-face 'secondary-selection | 553 (defcustom idlwave-shell-expression-face 'secondary-selection |
| 550 "*The face for `idlwave-shell-expression-overlay'. | 554 "*The face for `idlwave-shell-expression-overlay'. |
| 551 Allows you to choose the font, color and other properties for | 555 Allows you to choose the font, color and other properties for |