Emacs> Use % to jump to the matching parenthesis/brackets

Found the following while working on other emacs configurations, works great for when your code gets out of hand:

;;; Use "%" to jump to the matching parenthesis.
(defun goto-match-paren (arg)
"Go to the matching parenthesis if on parenthesis, otherwise insert
the character typed."
(interactive "p")
(cond ((looking-at "\s(") (forward-list 1) (backward-char 1))
((looking-at "\s)") (forward-char 1) (backward-list 1))
(t (self-insert-command (or arg 1))) ))
(global-set-key "%" `goto-match-paren)