From 10853fc39e93be98900110bfa2634375279b08d4 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 10 Jun 2005 10:43:04 +0000 Subject: [PATCH] Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-383 Remove "-face" suffix from strokes-char face 2005-06-10 Miles Bader * 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. --- lisp/ChangeLog | 8 ++++++-- lisp/strokes.el | 8 +++++--- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4b10762b872..8feae6eb7e1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2005-06-10 Miles Bader + * 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 f1121d1fee5..644ec2c4f62 100644 --- 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 ;; 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))))) -- 2.39.5