awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-28 16:51:08 -05:00
Code Issues Packages Projects Releases Wiki Activity

Clean up

Browse Source
This commit is contained in:
Henrik Lissner
2015-12-10 16:15:09 -05:00
parent 7c37162d9b
commit 6049bee001
9 changed files with 32 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
core/core-evil.el
View File

@@ -51,12 +51,6 @@
(evil-define-key 'normal evil-command-window-mode-map [escape] 'kill-buffer-and-window)
;; Monkey-patch an error triggered randomly during column-selection; is caused
;; by `evil-move-to-column' receiving a float.
(defun narf*evil-move-to-column-fix (args)
(mapcar (lambda (i) (if (numberp i) (truncate i) i)) args))
(advice-add 'evil-move-to-column :filter-args 'narf*evil-move-to-column-fix)
;; modes to map to different default states
(dolist (mode-map '((cider-repl-mode . emacs)
(comint-mode . emacs)
@@ -92,11 +86,11 @@
(narf-minibuffer-quit)))
;; Monkey-patch an error triggered randomly during column-selection caused
;; by `extract-rectangle-line' receiving a float:
;; by `evil-move-to-column' receiving a float:
;; evil-move-to-column: Wrong type argument: wholenump, 12.0
(defun narf*evil-extract-rectangle-line-fix (args)
(defun narf*evil-move-to-column-fix (args)
(mapcar (lambda (i) (if (numberp i) (truncate i) i)) args))
(advice-add 'extract-rectangle-line :filter-args 'narf*evil-extract-rectangle-line-fix)
(advice-add 'evil-move-to-column :filter-args 'narf*evil-move-to-column-fix)
;; buffer-local ex commands, thanks to:
;; http://emacs.stackexchange.com/questions/13186