add match-paren function
authorJoerg Jaspert <joerg@debian.org>
Wed, 1 Jan 2014 21:19:37 +0000 (22:19 +0100)
committerJoerg Jaspert <joerg@debian.org>
Wed, 1 Jan 2014 21:19:37 +0000 (22:19 +0100)
.emacs.d/elisp/local/ganneff.el

index 57e94bc..fa3a530 100644 (file)
 ;;;###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 ()