Function: mwheel--mods-equal

mwheel--mods-equal is a byte-compiled function defined in mwheel.el.gz.

Signature

(mwheel--mods-equal MODS1 MODS2)

Documentation

Return non-nil if the two sets of modifiers are equal.

Ordering is significant, but click and multiplicity modifiers are ignored.

Source Code

;; Defined in /usr/src/emacs/lisp/mwheel.el.gz
(defun mwheel--mods-equal (mods1 mods2)
  "Return non-nil if the two sets of modifiers are equal.
Ordering is significant, but click and multiplicity modifiers are ignored."
  (while (cond
          ((memq (car mods1) '(click double triple))
           (setq mods1 (cdr mods1))
           t)
          ((memq (car mods2) '(click double triple))
           (setq mods2 (cdr mods2))
           t)
          ((and mods1 mods2 (eq (car mods1) (car mods2)))
           (setq mods1 (cdr mods1))
           (setq mods2 (cdr mods2))
           t)))
  (equal mods1 mods2))