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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b10762b8722a3cf173c6dc5fb43fadf33f0239b..8feae6eb7e1014b68867d275066e6b8d04172042 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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):

diff --git a/lisp/strokes.el b/lisp/strokes.el
index f1121d1fee5e99f7967493557457938086a692a3..644ec2c4f628e4eb62ece8d331cee5d87f76ab8f 100644 (file)
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -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 @@ Encode/decode your strokes with \\[strokes-encode-buffer],
 ;; 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 @@ Optional FORCE non-nil will ignore the buffer's read-only status."
            (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)))))