lisp to silently ignore all accidental trackpad input ... i wish there was a programmatic way to build these mouse symbols (they're not symbols!)

notrackpad.el

(dolist (k '([mouse-1] [down-mouse-1] [drag-mouse-1] [double-mouse-1] [triple-mouse-1]
             [mouse-2] [down-mouse-2] [drag-mouse-2] [double-mouse-2] [triple-mouse-2]
             [mouse-3] [down-mouse-3] [drag-mouse-3] [double-mouse-3] [triple-mouse-3]
             [mouse-4] [down-mouse-4] [drag-mouse-4] [double-mouse-4] [triple-mouse-4]
             [mouse-5] [down-mouse-5] [drag-mouse-5] [double-mouse-5] [triple-mouse-5]
             [mouse-6] [down-mouse-6] [drag-mouse-6] [double-mouse-6] [triple-mouse-6]
             [mouse-7] [down-mouse-7] [drag-mouse-7] [double-mouse-7] [triple-mouse-7]
 
             [M-mouse-1] [M-down-mouse-1] [M-drag-mouse-1] [M-double-mouse-1] [M-triple-mouse-1]
             [M-mouse-2] [M-down-mouse-2] [M-drag-mouse-2] [M-double-mouse-2] [M-triple-mouse-2]
             [M-mouse-3] [M-down-mouse-3] [M-drag-mouse-3] [M-double-mouse-3] [M-triple-mouse-3]
             [M-mouse-4] [M-down-mouse-4] [M-drag-mouse-4] [M-double-mouse-4] [M-triple-mouse-4]
             [M-mouse-5] [M-down-mouse-5] [M-drag-mouse-5] [M-double-mouse-5] [M-triple-mouse-5]
             [M-mouse-6] [M-down-mouse-6] [M-drag-mouse-6] [M-double-mouse-6] [M-triple-mouse-6]
             [M-mouse-7] [M-down-mouse-7] [M-drag-mouse-7] [M-double-mouse-7] [M-triple-mouse-7]

             [s-mouse-1] [s-down-mouse-1] [s-drag-mouse-1] [s-double-mouse-1] [s-triple-mouse-1]
             [s-mouse-2] [s-down-mouse-2] [s-drag-mouse-2] [s-double-mouse-2] [s-triple-mouse-2]
             [s-mouse-3] [s-down-mouse-3] [s-drag-mouse-3] [s-double-mouse-3] [s-triple-mouse-3]
             [s-mouse-4] [s-down-mouse-4] [s-drag-mouse-4] [s-double-mouse-4] [s-triple-mouse-4]
             [s-mouse-5] [s-down-mouse-5] [s-drag-mouse-5] [s-double-mouse-5] [s-triple-mouse-5]
             [s-mouse-6] [s-down-mouse-6] [s-drag-mouse-6] [s-double-mouse-6] [s-triple-mouse-6]
             [s-mouse-7] [s-down-mouse-7] [s-drag-mouse-7] [s-double-mouse-7] [s-triple-mouse-7]


             [C-mouse-1] [C-down-mouse-1] [C-drag-mouse-1] [C-double-mouse-1] [C-triple-mouse-1]
             [C-mouse-2] [C-down-mouse-2] [C-drag-mouse-2] [C-double-mouse-2] [C-triple-mouse-2]
             [C-mouse-3] [C-down-mouse-3] [C-drag-mouse-3] [C-double-mouse-3] [C-triple-mouse-3]
             [C-mouse-4] [C-down-mouse-4] [C-drag-mouse-4] [C-double-mouse-4] [C-triple-mouse-4]
             [C-mouse-5] [C-down-mouse-5] [C-drag-mouse-5] [C-double-mouse-5] [C-triple-mouse-5]
             [C-mouse-6] [C-down-mouse-6] [C-drag-mouse-6] [C-double-mouse-6] [C-triple-mouse-6]
             [C-mouse-7] [C-down-mouse-7] [C-drag-mouse-7] [C-double-mouse-7] [C-triple-mouse-7]



             ))
  (global-set-key k 'ignore)
)

; additionally...  (updated 2/1/2014)
; disable maps related to the mode-line
(setq mode-line-coding-system-map nil mode-line-column-line-number-mode-map
nil mode-line-input-method-map nil)