# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1118793363 0
# Node ID 1589bde025e5e90fb3889d73ba5719740c05974b
# Parent  5233e324a036dff5d55fb4b42c38c1102dd2d124
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.

diff -r 5233e324a036 -r 1589bde025e5 lisp/ChangeLog
--- 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):
diff -r 5233e324a036 -r 1589bde025e5 lisp/progmodes/sh-script.el
--- 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."