Check the current bfr-mode of a bfrstate object.
Same as bfr-mode-is, but gets the bfr mode object from a
bfrstate object. If no bfrstate object is supplied, the variable named
Function:
(defun bfrstate-mode-is-fn (key bfrstate) (cons 'bfr-mode-is (cons key (cons (cons 'bfrstate->mode (cons bfrstate 'nil)) 'nil))))