Mercurial > emacs
changeset 63455:1589bde025e5
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-414
Remove "-face" suffix from sh-script faces
2005-06-14 Miles Bader <miles@gnu.org>
* lisp/progmodes/sh-script.el (sh-heredoc): Remove "-face" suffix from
face name.
(sh-heredoc-face): New backward-compatibility alias for renamed face.
(sh-heredoc-face): Use renamed sh-heredoc face.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Tue, 14 Jun 2005 23:56:03 +0000 |
parents | 5233e324a036 |
children | 68bd40c50926 |
files | lisp/ChangeLog lisp/progmodes/sh-script.el |
diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jun 14 23:36:31 2005 +0000 +++ b/lisp/ChangeLog Tue Jun 14 23:56:03 2005 +0000 @@ -1,5 +1,10 @@ 2005-06-14 Miles Bader <miles@gnu.org> + * progmodes/sh-script.el (sh-heredoc): Remove "-face" suffix from + face name. + (sh-heredoc-face): New backward-compatibility alias for renamed face. + (sh-heredoc-face): Use renamed sh-heredoc face. + * progmodes/idlw-help.el (idlwave-help-link): Remove "-face" suffix from face name. (idlwave-help-link-face):
--- a/lisp/progmodes/sh-script.el Tue Jun 14 23:36:31 2005 +0000 +++ b/lisp/progmodes/sh-script.el Tue Jun 14 23:56:03 2005 +0000 @@ -792,7 +792,7 @@ ;; Font-Lock support -(defface sh-heredoc-face +(defface sh-heredoc '((((min-colors 88) (class color) (background dark)) (:foreground "yellow1" :weight bold)) @@ -806,7 +806,9 @@ (:weight bold))) "Face to show a here-document" :group 'sh-indentation) -(defvar sh-heredoc-face 'sh-heredoc-face) +;; backward-compatibility alias +(put 'sh-heredoc-face 'face-alias 'sh-heredoc) +(defvar sh-heredoc-face 'sh-heredoc) (defface sh-escaped-newline '((t :inherit font-lock-string-face)) "Face used for (non-escaped) backslash at end of a line in Shell-script mode."