(defun free-keys-change-buffer (buffer)
    "Change the buffer for which the bindings are displayed to
    BUFFER and update the display."
    (interactive "bShow free bindings for buffer: ")
    (free-keys nil (get-buffer-create buffer)))