From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 4 Dec 1994 16:51:38 +0000 (+0000)
Subject: At compile time, discard any defsubr definitions
X-Git-Tag: emacs-19.34~5748
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39b3b754b579f1e18510a78bc6271779a5fc17bd;p=emacs.git

At compile time, discard any defsubr definitions
in the Emacs doing the compilation.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index cb5b6af7d97..520ddce2b10 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -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.