(put 'XXXX-face 'face-alias 'XXXX) usage

[Dan Nicolaescu]

Does it make any sense to use (put 'XXXX-face 'face-alias 'XXXX)
for faces that did not exist in a previous released version of Emacs? 
This just increases memory usage for no good reason. 
There's an important number of such forms in CVS right now (see below).

May I delete this code? 


-*- mode: grep; default-directory: "~/build/Emacs-CVS/emacs/lisp/" -*-
find . -name \*.el -print0 | xargs -0 -e grep -nH face-alias
./play/gomoku.el:169:(put 'gomoku-font-lock-O-face 'face-alias 'gomoku-O)
./play/gomoku.el:176:(put 'gomoku-font-lock-X-face 'face-alias 'gomoku-X)
./play/mpuz.el:66:(put 'mpuz-unsolved-face 'face-alias 'mpuz-unsolved)
./play/mpuz.el:74:(put 'mpuz-solved-face 'face-alias 'mpuz-solved)
./play/mpuz.el:82:(put 'mpuz-trivial-face 'face-alias 'mpuz-trivial)
./play/mpuz.el:89:(put 'mpuz-text-face 'face-alias 'mpuz-text)
./ruler-mode.el:225:(put 'ruler-mode-default-face 'face-alias 
'ruler-mode-default)
./ruler-mode.el:239:(put 'ruler-mode-pad-face 'face-alias 'ruler-mode-pad)
./ruler-mode.el:249:(put 'ruler-mode-margins-face 'face-alias 
'ruler-mode-margins)
./ruler-mode.el:259:(put 'ruler-mode-fringes-face 'face-alias 
'ruler-mode-fringes)
./ruler-mode.el:269:(put 'ruler-mode-column-number-face 'face-alias 
'ruler-mode-column-number)
./ruler-mode.el:279:(put 'ruler-mode-fill-column-face 'face-alias 
'ruler-mode-fill-column)
./ruler-mode.el:289:(put 'ruler-mode-comment-column-face 'face-alias 
'ruler-mode-comment-column)
./ruler-mode.el:299:(put 'ruler-mode-goal-column-face 'face-alias 
'ruler-mode-goal-column)
./ruler-mode.el:309:(put 'ruler-mode-tab-stop-face 'face-alias 
'ruler-mode-tab-stop)
./ruler-mode.el:320:(put 'ruler-mode-current-column-face 'face-alias 
'ruler-mode-current-column)
./strokes.el:1427:(put 'strokes-char-face 'face-alias 'strokes-char)
./emacs-lisp/testcover.el:158:(put 'testcover-nohits-face 'face-alias 
'testcover-nohits)
./emacs-lisp/testcover.el:165:(put 'testcover-1value-face 'face-alias 
'testcover-1value)
./buff-menu.el:83:(put 'Buffer-menu-buffer-face 'face-alias 'Buffer-menu-buffer)
./progmodes/flymake.el:862:(put 'flymake-errline-face 'face-alias 
'flymake-errline)
./progmodes/flymake.el:870:(put 'flymake-warnline-face 'face-alias 
'flymake-warnline)
./progmodes/idlw-help.el:197:(put 'idlwave-help-link-face 'face-alias 
'idlwave-help-link)
./progmodes/which-func.el:143:(put 'which-func-face 'face-alias 'which-func)
./progmodes/idlw-shell.el:538:  (put 'idlwave-shell-bp-face 'face-alias 
'idlwave-shell-bp))
./progmodes/idlw-shell.el:558:  (put 'idlwave-shell-disabled-bp-face 
'face-alias 'idlwave-shell-disabled-bp))
./progmodes/compile.el:485:(put 'compilation-warning-face 'face-alias 
'compilation-warning)
./progmodes/compile.el:500:(put 'compilation-info-face 'face-alias 
'compilation-info)
./progmodes/gdb-ui.el:1300:(put 'breakpoint-enabled-bitmap-face 'face-alias 
'breakpoint-enabled)
./progmodes/gdb-ui.el:1311:(put 'breakpoint-disabled-bitmap-face 'face-alias 
'breakpoint-disabled)
./progmodes/ld-script.el:43:(put 'ld-script-location-counter-face 'face-alias 
'ld-script-location-counter)
./compare-w.el:130:(put 'compare-windows-face 'face-alias 'compare-windows)
./mh-e/mh-customize.el:2159:(put 'mh-folder-body-face 'face-alias 
'mh-folder-body)
./mh-e/mh-customize.el:2176:(put 'mh-folder-cur-msg-face 'face-alias 
'mh-folder-cur-msg)
./mh-e/mh-customize.el:2190:(put 'mh-folder-cur-msg-number-face 'face-alias 
'mh-folder-cur-msg-number)
./mh-e/mh-customize.el:2204:(put 'mh-folder-date-face 'face-alias 
'mh-folder-date)
./mh-e/mh-customize.el:2218:(put 'mh-folder-followup-face 'face-alias 
'mh-folder-followup)
./mh-e/mh-customize.el:2232:(put 'mh-folder-msg-number-face 'face-alias 
'mh-folder-msg-number)
./mh-e/mh-customize.el:2252:(put 'mh-folder-refiled-face 'face-alias 
'mh-folder-refiled)
./mh-e/mh-customize.el:2268:(put 'mh-folder-subject-face 'face-alias 
'mh-folder-subject)
./mh-e/mh-customize.el:2277:(put 'mh-folder-tick-face 'face-alias 
'mh-folder-tick)
./mh-e/mh-customize.el:2299:(put 'mh-folder-to-face 'face-alias 'mh-folder-to)
./mh-e/mh-customize.el:2317:(put 'mh-index-folder-face 'face-alias 
'mh-index-folder)
./mh-e/mh-customize.el:2332:(put 'mh-letter-header-field-face 'face-alias 
'mh-letter-header-field)
./mh-e/mh-customize.el:2352:(put 'mh-show-cc-face 'face-alias 'mh-show-cc)
./mh-e/mh-customize.el:2366:(put 'mh-show-date-face 'face-alias 'mh-show-date)
./mh-e/mh-customize.el:2380:(put 'mh-show-header-face 'face-alias 
'mh-show-header)
./mh-e/mh-customize.el:2389:(put 'mh-show-pgg-good-face 'face-alias 
'mh-show-pgg-good)
./mh-e/mh-customize.el:2400:(put 'mh-show-pgg-unknown-face 'face-alias 
'mh-show-pgg-unknown)
./mh-e/mh-customize.el:2409:(put 'mh-show-pgg-bad-face 'face-alias 
'mh-show-pgg-bad)
./mh-e/mh-customize.el:2416:(put 'mh-show-signature-face 'face-alias 
'mh-show-signature)
./mh-e/mh-customize.el:2433:(put 'mh-show-to-face 'face-alias 'mh-show-to)
./mh-e/mh-customize.el:2447:(put 'mh-show-from-face 'face-alias 'mh-show-from)
./mh-e/mh-customize.el:2455:(put 'mh-show-xface-face 'face-alias 'mh-show-xface)
./mh-e/mh-customize.el:2473:(put 'mh-speedbar-folder-face 'face-alias 
'mh-speedbar-folder)
./mh-e/mh-customize.el:2484:(put 'mh-speedbar-selected-folder-face 'face-alias 
'mh-speedbar-selected-folder)
./mh-e/mh-customize.el:2491:(put 'mh-speedbar-folder-with-unseen-messages-face 
'face-alias 'mh-speedbar-folder-with-unseen-messages)
./mh-e/mh-customize.el:2498:(put 
'mh-speedbar-selected-folder-with-unseen-messages-face 'face-alias 
'mh-speedbar-selected-folder-with-unseen-messages)
./textmodes/sgml-mode.el:256:(put 'sgml-namespace-face 'face-alias 
'sgml-namespace)
./textmodes/table.el:695:(put 'table-cell-face 'face-alias 'table-cell)
Grep finished (matches found) at Sat Aug  6 12:16:42


The above does not include the gnus/*.el files. Should changes to Gnus
be done in the Emacs CVS, or submitted to the Gnus maintainers?