Skip over characters following point

1 files changed, 15 insertions, 0 deletions

diff --git a/emacs/init.org b/emacs/init.org
index 24df753..a91b41d 100644
--- a/emacs/init.org
+++ b/emacs/init.org
@@ -1389,6 +1389,21 @@
                     'oni:move-beginning-of-dwim)
   #+END_SRC
 
+* Skip equal characters
+
+  When using, for example, =smartparens-mode= it can get confusing
+  which characters get overwritten when. Usually I'll want to skip
+  the character I type if it directly follows =point=.
+
+  #+BEGIN_SRC emacs-lisp
+    (defadvice self-insert-command (around oni:skip-if-equal activate)
+      "Skip over a character if it immediately follows point."
+      (if (and (eq (char-after) last-command-event)
+               (not (memq last-command-event '(?\  ?\n))))
+          (forward-char)
+        ad-do-it))
+  #+END_SRC
+
 * All the rest
 
   This still needs to be sorted out and documented, haven't had time