comparison lisp/strokes.el @ 63219:cf36e45beb9c

Revision: [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-383 Remove "-face" suffix from strokes-char face 2005-06-10 Miles Bader <[e-mail]> * 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.

63218:d70b83f4f6a7

;;; strokes.el --- control Emacs through mouse strokes

;; Copyright (C) 1997, 2000, 2002 Free Software Foundation, Inc.

;; Author: David Bakhash <[e-mail]>
;; Maintainer: FSF
;; Keywords: lisp, mouse, extensions

;;;; strokes-xpm stuff (later may be separate)...

;; 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) ;
  "The table which stores values for the character keys.")
(aset strokes-char-table ?0 0)

		  glyph  (get-text-property start 'display))
	    (insert "+/" (get-text-property (point) 'data) ?/)
	    (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)))))

(defun strokes-xpm-for-compressed-string (compressed-string &optional bufname)

63219:cf36e45beb9c

;;; strokes.el --- control Emacs through mouse strokes

;; Copyright (C) 1997, 2000, 2002, 2005 Free Software Foundation, Inc.

;; Author: David Bakhash <[e-mail]>
;; Maintainer: FSF
;; Keywords: lisp, mouse, extensions

;;;; strokes-xpm stuff (later may be separate)...

;; 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) ;
  "The table which stores values for the character keys.")
(aset strokes-char-table ?0 0)

		  glyph  (get-text-property start 'display))
	    (insert "+/" (get-text-property (point) 'data) ?/)
	    (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)))))

(defun strokes-xpm-for-compressed-string (compressed-string &optional bufname)