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."