moose-functions.el

(defun dsedivec/called-via-key-binding (cmd)
  "Returns non-nil if `this-command-keys' is bound to CMD."
  (eq (key-binding (this-command-keys)) cmd))


(defun moose/popup-count-words-region (start end)
  "Get word count for positive length active region."
  (interactive "r")
  (cond ((and (use-region-p)
              (dsedivec/called-via-key-binding #'moose/popup-count-words-region))
         (progn (let ((print-escape-newlines t))
           (popup-tip (concat (number-to-string (count-words start end)) " words")))
                (message "huh")))
        ((dsedivec/called-via-key-binding #'moose/popup-count-words-region) (insert (this-command-keys)))))