anchor.diff:                                    :collect `((,char :press :meta :control :shift) key-press)))
      :resize-callback 'resize-callback))
   
  +(defun maybe-update-cache-font (lem-pane)
  +  (unless (lem-pane-normal-font lem-pane)
  +    (change-font lem-pane (car *default-font-spec*) (cdr *default-font-spec*))))
  +
  +(defun change-font (lem-pane family size)
  +  (let ((normal-font (gp:find-best-font
  +                      lem-pane
  +                      (gp:make-font-description :family family
  +                                                :size size
  +                                                :weight :normal)))
  +        (bold-font (gp:find-best-font
  +                    lem-pane
  +                    (gp:make-font-description :family family
  +                                              :size size
  +                                              :weight :bold))))
  +    (setf (lem-pane-normal-font lem-pane) normal-font)
  +    (setf (lem-pane-bold-font lem-pane) bold-font)
  +    (setf (lem-pane-string-extent lem-pane)
  +          (multiple-value-list (gp:get-string-extent lem-pane "a" normal-font)))))
  +
   (defmethod capi:interface-keys-style ((lem-pane lem-pane)) :emacs)
  -
  -(defmethod (setf capi:simple-pane-font) :after (font (lem-pane lem-pane))
  -  (setf (lem-pane-font lem-pane) font)
  -  (setf (lem-pane-bold-font lem-pane)
  -        (gp:make-font-description :size (gp:font-description-attribute-value font :size)
  -                                  :family (gp:font-description-attribute-value font :family)
  -                                  :weight :bold)))
   
   (defun resize-callback (lem-pane &rest args)
     (declare (ignore args))
  
positive.code:                      0 0))))
  
  (defun lem-pane-char-size (lem-pane)
    (multiple-value-bind (left top right bottom)
        (gp:get-string-extent lem-pane "a")
      (values (- right left)
              (+ (abs top) bottom))))
  
  
negative.code:    :change-background))
  (in-package :lem-capi.lem-pane)
  
  (defvar *default-font-spec*
    #+win32 (cons "Consolas" 10)
    #+linux (cons "DejaVu Sans Mono" 10.5)
    #+macosx (cons "Osaka" 10))
  
  (defclass lem-pane (capi:output-pane)
    ((normal-font
      :initform nil
      :accessor lem-pane-normal-font)
     (bold-font
      :initform nil
      :accessor lem-pane-bold-font)
     (string-extent
      :initform nil
      :accessor lem-pane-string-extent)
     (pixmap
      :initform nil
      :accessor lem-pane-pixmap))
    (:default-initargs
     :foreground :black
     :background :white
     :input-model '((:gesture-spec key-press)
  