Mercurial > emacs
comparison lisp/strokes.el @ 64993:fb2cad4cfb30
* mh-customize.el: Do not use face-alias compatibility for
faces that did not appear in the previous Emacs release.
* buff-menu.el:
* compare-w.el:
* emacs-lisp/testcover.el:
* play/gomoku.el:
* play/mpuz.el:
* progmodes/flymake.el:
* progmodes/gdb-ui.el:
* progmodes/idlw-help.el:
* progmodes/idlw-shell.el:
* progmodes/ld-script.el:
* progmodes/which-func.el:
* ruler-mode.el:
* strokes.el:
* textmodes/sgml-mode.el:
* textmodes/table.el: Do not use face-alias for backward
compatibility for faces that did not appear in the previous Emacs
release.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Mon, 15 Aug 2005 21:29:32 +0000 |
parents | 41bb365f41c4 |
children | 4d1085b02d64 2d92f5c9d6ae |
comparison
equal
deleted
inserted
replaced
64992:ca80d536ea6d | 64993:fb2cad4cfb30 |
---|---|
1422 | 1422 |
1423 (defface strokes-char '((t (:background "lightgray"))) | 1423 (defface strokes-char '((t (:background "lightgray"))) |
1424 "Face for strokes characters." | 1424 "Face for strokes characters." |
1425 :version "21.1" | 1425 :version "21.1" |
1426 :group 'strokes) | 1426 :group 'strokes) |
1427 ;; backward-compatibility alias | |
1428 (put 'strokes-char-face 'face-alias 'strokes-char) | |
1429 | 1427 |
1430 (put 'strokes 'char-table-extra-slots 0) | 1428 (put 'strokes 'char-table-extra-slots 0) |
1431 (defconst strokes-char-table (make-char-table 'strokes) ; | 1429 (defconst strokes-char-table (make-char-table 'strokes) ; |
1432 "The table which stores values for the character keys.") | 1430 "The table which stores values for the character keys.") |
1433 (aset strokes-char-table ?0 0) | 1431 (aset strokes-char-table ?0 0) |