[slime-devel] Emacs font strangeness

[Brian Downing]

On Sat, Nov 08, 2003 at 10:03:12AM +0100, Helmut Eller wrote:
> The problem is caused by some code that tried to be clever and used
> the font name of the default "highlight" face for the
> "slime-highlight-face".  This seems to work for X windows, but
> apparently breaks horribly on Mac OS. 

It does work now, thanks.  I think it would have broken horribly for
any platform if people changed their fonts at runtime.

Having looked at the code and seen the reason for this, would something
like this be too complicated and horrible?

(defun slime-maybe-inherit (inherit-from otherwise)
  (if (>= emacs-major-version 21)
      `(t (:inherit ,inherit-from))
      otherwise))

(defface slime-highlight-face
  (slime-maybe-inherit 'highlight
                       `((((class color) (background light))
                          (:background "darkseagreen2"))
                         (((class color) (background dark))
                          (:background "darkolivegreen"))
                         (t (:inverse-video t))))
  "Face for compiler notes while selected."
  :group 'slime)

or even the old...

(defface slime-highlight-face
  (slime-maybe-inherit 'highlight
                       (slime-face-attributes 'highlight))
  "Face for compiler notes while selected."
  :group 'slime)

-bcd