Mercurial > emacs
diff lisp/strokes.el @ 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 | 9eb015fb8f5c |
| children | 22c5a8628828 a1b34dec1104 |
line wrap: on
line diff
--- 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)))))