Flag to temporary disable keypression?

[jcs090218]

Like inhibit-message, is there a way to temporary make keypression not to log any keystrokes? Maybe like,

(let ((keypression-log-p nil))
  ;; Do something here.
  )

Thanks!