summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2005-06-15 00:17:41 +0000
committerMiles Bader <miles@gnu.org>2005-06-15 00:17:41 +0000
commita5d370313684626a2ec1f0f24e54db6499b1c651 (patch)
treee4e8d86bac466fe7b988dd94e566a200dd40bda7
parente4c067b5d5d0f373d7f5796e7ceb5bf06f1ddca3 (diff)
downloademacs-a5d370313684626a2ec1f0f24e54db6499b1c651.tar.gz
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.
-rw-r--r--lisp/ChangeLog8
-rw-r--r--lisp/progmodes/ld-script.el8
2 files changed, 12 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7cae0df4661..884b9e0023a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/progmodes/ld-script.el b/lisp/progmodes/ld-script.el
index 120cae538d5..ef24604ba7b 100644
--- a/lisp/progmodes/ld-script.el
+++ b/lisp/progmodes/ld-script.el
@@ -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