At compile time, discard any defsubr definitions

in the Emacs doing the compilation.

diff --git a/lisp/faces.el b/lisp/faces.el
index cb5b6af7d972075e5bbf2bf1d7789ea7c1533849..520ddce2b10c85e87705d887738fa28d1c90918f 100644 (file)
--- 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))
 \f
 ;;;; Functions for manipulating face vectors.