(defun font-larger (n)
  "Increase default font size by one step or, with prefix argument n,
  by n steps."
  (interactive "p")
  (set-face-attribute 'default nil
		      :height (+ (face-attribute 'default :height)
				 (* (or n 1) 10))))

(defun font-smaller (n)
  "Decrease default font size by one step or, with prefix argument n,
  by n steps."
  (interactive "p")
  (set-face-attribute 'default nil
		      :height (- (face-attribute 'default :height)
				 (* (or n 1) 10))))
(global-set-key "\M-+" 'font-larger)
(global-set-key "\M-_" 'font-smaller)

;;
;; Set the "%" key to flash to matching paren/brace/bracket
;;
(global-set-key "%" '(lambda (c) (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 c 1))))))