diff options
| author | Miles Bader <miles@gnu.org> | 2005-06-10 10:43:04 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2005-06-10 10:43:04 +0000 |
| commit | 10853fc39e93be98900110bfa2634375279b08d4 (patch) | |
| tree | 0dd66f1d90c8a1972162c1f13a805a6efaf36caa /lisp/strokes.el | |
| parent | 9bd4fb3fb87f2a26a1d2cb514d8d1fff374e5a9f (diff) | |
| download | emacs-10853fc39e93be98900110bfa2634375279b08d4.tar.gz | |
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.
Diffstat (limited to 'lisp/strokes.el')
| -rw-r--r-- | lisp/strokes.el | 8 |
1 files changed, 5 insertions, 3 deletions
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 <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))))) |