add match-paren function

diff --git a/.emacs.d/elisp/local/ganneff.el b/.emacs.d/elisp/local/ganneff.el
index 57e94bc..fa3a530 100644 (file)
--- a/.emacs.d/elisp/local/ganneff.el
+++ b/.emacs.d/elisp/local/ganneff.el
@@ -23,6 +23,15 @@
 ;;;###autoload
 (defun ido-disable-line-trucation () (set (make-local-variable 'truncate-lines) nil))
 
+; match-paren will either jump to the "other" paren or simply insert %
+; #+BEGIN_SRC emacs-lisp tangle:yes
+;;;###autoload
+(defun match-paren (arg)
+  "Go to the matching parenthesis if on parenthesis otherwise insert %."
+  (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)))))
 
 ;;;###autoload
 (defun sacha/isearch-yank-current-word ()