mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-383

Browse source 
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.
This commit is contained in:
Miles Bader 2005-06-10 10:43:04 +00:00
parent 9bd4fb3fb8
commit 10853fc39e
2 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -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):

8
lisp/strokes.el
View file

@ -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)))))