Mercurial > emacs
changeset 10107:2af74ff52cd0
At compile time, discard any defsubr definitions
in the Emacs doing the compilation.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 04 Dec 1994 16:51:38 +0000 |
| parents | d2d5fe5acc24 |
| children | 2844db63605f |
| files | lisp/faces.el |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.