anchor.diff:             (setf *keyboard-modifier-state*
                    (if (key-releasep event)
                        (remove (second modifier) *keyboard-modifier-state*)
  -                     (list* (second modifier) *keyboard-modifier-state*))))
  +                     (list* (second modifier) *keyboard-modifier-state*)))
  +           (when (and (key-releasep event)
  +                      (eql (second modifier) :meta))
  +             (setf *m-tab-active* nil
  +                   *m-tab-list* '())))
             (t ;; Normal key, try to translate it.
              (let ((translated (convert-scancode-to-key *current-keymap* scancode *keyboard-modifier-state*)))
                (when translated
  
positive.code:                           *clip-rect-height* (mezzano.supervisor:framebuffer-height *main-screen*)
                            *clip-rect-x* 0
                            *clip-rect-y* 0)))
                   ;; Otherwise, dispatch to active window.
                   (*active-window*
                    (send-event *active-window*
  
negative.code:       (send-event win (make-instance 'window-activation-event
                                       :window win
                                       :state t)))
      (when (and *m-tab-active*
                 (allow-m-tab win))
        (push win *m-tab-list*))
      (setf *clip-rect-width* (mezzano.supervisor:framebuffer-width *main-screen*)
            *clip-rect-height* (mezzano.supervisor:framebuffer-height *main-screen*)
            *clip-rect-x* 0
  