# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 786559898 0
# Node ID 2af74ff52cd04b2e15d5f2749b248872ab4e0f10
# Parent  d2d5fe5acc24b07cf0414720bb7d143bfb06d9c6
At compile time, discard any defsubr definitions
in the Emacs doing the compilation.

diff -r d2d5fe5acc24 -r 2af74ff52cd0 lisp/faces.el
--- a/lisp/faces.el	Sun Dec 04 14:37:24 1994 +0000
+++ b/lisp/faces.el	Sun Dec 04 16:51:38 1994 +0000
@@ -24,6 +24,21 @@
 
 ;;; Code:
 
+(eval-when-compile
+ ;; These used to be defsubsts, now they're subrs.  Avoid losing if we're
+ ;; being compiled with an old Emacs that still has defsubrs in it.
+ (put 'face-name 'byte-optimizer nil)
+ (put 'face-id 'byte-optimizer nil)
+ (put 'face-font 'byte-optimizer nil)
+ (put 'face-foreground 'byte-optimizer nil)
+ (put 'face-background 'byte-optimizer nil)
+ (put 'face-stipple 'byte-optimizer nil)
+ (put 'face-underline-p 'byte-optimizer nil)
+ (put 'set-face-font 'byte-optimizer nil)
+ (put 'set-face-foreground 'byte-optimizer nil)
+ (put 'set-face-background 'byte-optimizer nil)
+ (put 'set-stipple 'byte-optimizer nil)
+ (put 'set-face-underline-p 'byte-optimizer nil))
 
 ;;;; Functions for manipulating face vectors.