Mercurial > emacs
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)))))