anchor.diff:  
   (defun draw-string (lem-pane string x y foreground background &key underline bold reverse)
     (when reverse (rotatef foreground background))
  -  (let ((font (gp:find-best-font
  -               lem-pane
  -               (if bold
  -                   (lem-pane-bold-font lem-pane)
  -                   (lem-pane-font lem-pane)))))
  -    (multiple-value-bind (left top right bottom)
  -        (gp:get-string-extent lem-pane "a" font)
  +  (maybe-update-cache-font lem-pane)
  +  (let ((font (if bold
  +                  (lem-pane-bold-font lem-pane)
  +                  (lem-pane-normal-font lem-pane))))
  +    (destructuring-bind (left top right bottom)
  +        (lem-pane-string-extent lem-pane)
         (let* ((char-width (- right left))
                (char-height (+ (abs top) bottom))
                (x (* x char-width))
  
positive.code:                                   :collect `((,char :press :meta :control :shift) key-press)))
     :resize-callback 'resize-callback))
  
  (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))
  
negative.code:                      0 0))))
  
  (defun lem-pane-char-size (lem-pane)
    (maybe-update-cache-font lem-pane)
    (destructuring-bind (left top right bottom)
        (lem-pane-string-extent lem-pane)
      (values (- right left)
              (+ (abs top) bottom))))
  
  