diff options
| author | Richard M. Stallman | 1994-12-04 16:51:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-12-04 16:51:38 +0000 |
| commit | 39b3b754b579f1e18510a78bc6271779a5fc17bd (patch) | |
| tree | 9cc819fb2b674f8793ea9c3477bfe698ee8c89d2 | |
| parent | e230790596cc7662d5a778435c6588daae979918 (diff) | |
| download | emacs-39b3b754b579f1e18510a78bc6271779a5fc17bd.tar.gz emacs-39b3b754b579f1e18510a78bc6271779a5fc17bd.zip | |
At compile time, discard any defsubr definitions
in the Emacs doing the compilation.
| -rw-r--r-- | lisp/faces.el | 15 |
1 files changed, 15 insertions, 0 deletions
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 @@ | |||
| 24 | 24 | ||
| 25 | ;;; Code: | 25 | ;;; Code: |
| 26 | 26 | ||
| 27 | (eval-when-compile | ||
| 28 | ;; These used to be defsubsts, now they're subrs. Avoid losing if we're | ||
| 29 | ;; being compiled with an old Emacs that still has defsubrs in it. | ||
| 30 | (put 'face-name 'byte-optimizer nil) | ||
| 31 | (put 'face-id 'byte-optimizer nil) | ||
| 32 | (put 'face-font 'byte-optimizer nil) | ||
| 33 | (put 'face-foreground 'byte-optimizer nil) | ||
| 34 | (put 'face-background 'byte-optimizer nil) | ||
| 35 | (put 'face-stipple 'byte-optimizer nil) | ||
| 36 | (put 'face-underline-p 'byte-optimizer nil) | ||
| 37 | (put 'set-face-font 'byte-optimizer nil) | ||
| 38 | (put 'set-face-foreground 'byte-optimizer nil) | ||
| 39 | (put 'set-face-background 'byte-optimizer nil) | ||
| 40 | (put 'set-stipple 'byte-optimizer nil) | ||
| 41 | (put 'set-face-underline-p 'byte-optimizer nil)) | ||
| 27 | 42 | ||
| 28 | ;;;; Functions for manipulating face vectors. | 43 | ;;;; Functions for manipulating face vectors. |
| 29 | 44 | ||