stassats

(defvar key-stats-commands ())

(defun key-stats-record-command ()
  (when (and (stringp (this-command-keys))
             (not (eql this-command 'self-insert-command)))
    (let* ((keys (this-command-keys))
           (keys-list (assoc major-mode key-stats-commands))
           (command (assoc keys (cdr keys-list))))
      (cond (command
             (incf (cdr command)))