[Emacs-diffs] Changes to emacs/lisp/strokes.el

[Miles Bader]

Index: emacs/lisp/strokes.el
diff -c emacs/lisp/strokes.el:1.19 emacs/lisp/strokes.el:1.20
*** emacs/lisp/strokes.el:1.19  Wed Oct 27 15:03:15 2004
--- emacs/lisp/strokes.el       Fri Jun 10 10:43:03 2005
***************
*** 1,6 ****
  ;;; strokes.el --- control Emacs through mouse strokes
  
! ;; Copyright (C) 1997, 2000, 2002 Free Software Foundation, Inc.
  
  ;; Author: David Bakhash <address@hidden>
  ;; Maintainer: FSF
--- 1,6 ----
  ;;; strokes.el --- control Emacs through mouse strokes
  
! ;; Copyright (C) 1997, 2000, 2002, 2005 Free Software Foundation, Inc.
  
  ;; Author: David Bakhash <address@hidden>
  ;; Maintainer: FSF
***************
*** 1418,1427 ****
  ;; 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")))
    "Face for strokes characters."
    :version "21.1"
    :group 'strokes)
  
  (put 'strokes 'char-table-extra-slots 0)
  (defconst strokes-char-table (make-char-table 'strokes) ;
--- 1418,1429 ----
  ;; This is the stuff that will eventually be used for composing letters in
  ;; any language, compression, decompression, graphics, editing, etc.
  
! (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,1701 ****
            (delete-char 1)
            (add-text-properties start (point)
                                 (list 'type 'stroke-string
!                                      'face 'strokes-char-face
                                       'stroke-glyph glyph
                                       'display nil))))
        (message "Encoding strokes in %s...done" buffer)))))
--- 1697,1703 ----
            (delete-char 1)
            (add-text-properties start (point)
                                 (list 'type 'stroke-string
!                                      'face 'strokes-char
                                       'stroke-glyph glyph
                                       'display nil))))
        (message "Encoding strokes in %s...done" buffer)))))