changeset 63219:cf36e45beb9c

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-383 Remove "-face" suffix from strokes-char face 2005-06-10 Miles Bader <miles@gnu.org> * lisp/strokes.el (strokes-char): Remove "-face" suffix from face name. (strokes-char-face): New backward-compatibility alias for renamed face. (strokes-encode-buffer): Use renamed strokes-char face.
author Miles Bader <miles@gnu.org>
date Fri, 10 Jun 2005 10:43:04 +0000
parents d70b83f4f6a7
children b14224937156
files lisp/ChangeLog lisp/strokes.el
diffstat 2 files changed, 11 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Jun 10 10:24:02 2005 +0000
+++ b/lisp/ChangeLog	Fri Jun 10 10:43:04 2005 +0000
@@ -1,5 +1,9 @@
 2005-06-10  Miles Bader  <miles@gnu.org>
 
+	* strokes.el (strokes-char): Remove "-face" suffix from face name.
+	(strokes-char-face): New backward-compatibility alias for renamed face.
+	(strokes-encode-buffer): Use renamed strokes-char face.
+
 	* pcvs-info.el (cvs-header, cvs-filename, cvs-unknown)
 	(cvs-handled, cvs-need-action, cvs-marked, cvs-msg):
 	Remove "-face" suffix from face names.
@@ -75,8 +79,8 @@
 	* whitespace.el (whitespace-highlight): Remove "-face" suffix from
 	face name.
 	(whitespace-highlight-the-space): Use renamed face.
-	(whitespace-highlight-face): New backward-compatibility aliases
-	for renamed face.
+	(whitespace-highlight-face): New backward-compatibility alias for
+	renamed face.
 
 	* woman.el (woman-italic, woman-bold, woman-unknown)
 	(woman-addition, woman-symbol-face):
--- a/lisp/strokes.el	Fri Jun 10 10:24:02 2005 +0000
+++ b/lisp/strokes.el	Fri Jun 10 10:43:04 2005 +0000
@@ -1,6 +1,6 @@
 ;;; strokes.el --- control Emacs through mouse strokes
 
-;; Copyright (C) 1997, 2000, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 2000, 2002, 2005 Free Software Foundation, Inc.
 
 ;; Author: David Bakhash <cadet@alum.mit.edu>
 ;; Maintainer: FSF
@@ -1418,10 +1418,12 @@
 ;; This is the stuff that will eventually be used for composing letters in
 ;; any language, compression, decompression, graphics, editing, etc.
 
-(defface strokes-char-face '((t (:background "lightgray")))
+(defface strokes-char '((t (:background "lightgray")))
   "Face for strokes characters."
   :version "21.1"
   :group 'strokes)
+;; backward-compatibility alias
+(put 'strokes-char-face 'face-alias 'strokes-char)
 
 (put 'strokes 'char-table-extra-slots 0)
 (defconst strokes-char-table (make-char-table 'strokes) ;
@@ -1695,7 +1697,7 @@
 	    (delete-char 1)
 	    (add-text-properties start (point)
 				 (list 'type 'stroke-string
-				       'face 'strokes-char-face
+				       'face 'strokes-char
 				       'stroke-glyph glyph
 				       'display nil))))
 	(message "Encoding strokes in %s...done" buffer)))))