# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1118794661 0
# Node ID fe2fc708f3ef5d8b971a5c55f8b334999e0e30fe
# Parent  3265e9c7ab3d0898c596b759965f9a4cf8580fd0
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-419

Remove "-face" suffix from ld-script faces

2005-06-14  Miles Bader  <miles@gnu.org>

   * lisp/progmodes/ld-script.el (ld-script-location-counter):
   Remove "-face" suffix from face name.
   (ld-script-location-counter-face):
   New backward-compatibility alias for renamed face.
   (ld-script-location-counter-face): Use renamed face.

diff -r 3265e9c7ab3d -r fe2fc708f3ef lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jun 15 00:14:58 2005 +0000
+++ b/lisp/ChangeLog	Wed Jun 15 00:17:41 2005 +0000
@@ -1,9 +1,15 @@
 2005-06-14  Miles Bader  <miles@gnu.org>
 
+	* progmodes/ld-script.el (ld-script-location-counter):
+	Remove "-face" suffix from face name.
+	(ld-script-location-counter-face): 
+	New backward-compatibility alias for renamed face.
+	(ld-script-location-counter-face): Use renamed face.
+
 	* progmodes/cperl-mode.el (cperl-nonoverridable, cperl-array)
 	(cperl-hash): Remove "-face" suffix from face names.
 	(cperl-nonoverridable-face, cperl-array-face, cperl-hash-face):
-	New backward-compatibility alias for renamed faces.
+	New backward-compatibility aliases for renamed faces.
 	(cperl-find-pods-heres, cperl-init-faces, cperl-ps-print-init)
 	(cperl-ps-print-face-properties): Use renamed cperl-mode faces.
 
diff -r 3265e9c7ab3d -r fe2fc708f3ef lisp/progmodes/ld-script.el
--- a/lisp/progmodes/ld-script.el	Wed Jun 15 00:14:58 2005 +0000
+++ b/lisp/progmodes/ld-script.el	Wed Jun 15 00:17:41 2005 +0000
@@ -1,6 +1,6 @@
 ;;; ld-script.el --- GNU linker script editing mode for Emacs
 
-;; Copyright (C) 2003 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2005 Free Software Foundation, Inc.
 
 ;; Author: Masatake YAMATO<jet@gyve.org>
 ;; Keywords: languages, faces
@@ -34,11 +34,13 @@
   :prefix "ld-script-"
   :group 'languages)
 
-(defvar ld-script-location-counter-face 'ld-script-location-counter-face)
-(defface ld-script-location-counter-face
+(defvar ld-script-location-counter-face 'ld-script-location-counter)
+(defface ld-script-location-counter
   '((t (:weight bold :inherit font-lock-builtin-face)))
   "Face for location counter in GNU ld script."
   :group 'ld-script)
+;; backward-compatibility alias
+(put 'ld-script-location-counter-face 'face-alias 'ld-script-location-counter)
 
 ;; Syntax rules
 (defvar ld-script-mode-syntax-table