Skip over characters following point
This commit is contained in:
parent
9e78bdae06
commit
d86ee42c09
1 changed files with 15 additions and 0 deletions
|
@ -1389,6 +1389,21 @@
|
||||||
'oni:move-beginning-of-dwim)
|
'oni:move-beginning-of-dwim)
|
||||||
#+END_SRC
|
#+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
|
* All the rest
|
||||||
|
|
||||||
This still needs to be sorted out and documented, haven't had time
|
This still needs to be sorted out and documented, haven't had time
|
||||||
|
|
Loading…
Reference in a new issue