awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Don't let 'jk' escape mess with electric indent

Browse Source
This commit is contained in:
Henrik Lissner
2016-03-23 12:00:17 -04:00
parent 28a720e626
commit c89da6ed6c
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
core/core-defuns.el
View File

@ -241,10 +241,16 @@ key-chord-define."
((null evt) (message "")) ((null evt) (message ""))
((and (integerp evt) (or (char-equal evt ?k) ((and (integerp evt) (or (char-equal evt ?k)
(char-equal evt ?K))) (char-equal evt ?K)))
(if (evil-replace-state-p) (if (evil-replace-state-p)
(evil-replace-backspace) (evil-replace-backspace)
(delete-char -1)) (delete-char -1))
(set-buffer-modified-p modified) (set-buffer-modified-p modified)
(when (and (bound-and-true-p electric-indent-mode)
narf-electric-indent-words
(eolp)
(looking-back (concat "\\<" (regexp-opt narf-electric-indent-words) "\\>")))
(indent-according-to-mode))
(push 'escape unread-command-events)) (push 'escape unread-command-events))
(t (t
(setq unread-command-events (append unread-command-events (list evt))))))))) (setq unread-command-events (append unread-command-events (list evt)))))))))