jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Fix #264 - disable autoindent on yank for python-mode

Browse source
This commit is contained in:
Bozhidar Batsov 2013-02-10 18:12:57 +02:00
parent 438f8673e2
commit 29e156f967
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
core/prelude-editor.el
View file

@ -290,9 +290,13 @@
;; automatically indenting yanked text if in programming-modes ;; automatically indenting yanked text if in programming-modes
(defvar yank-indent-modes (defvar yank-indent-modes
'(clojure-mode scala-mode python-mode LaTeX-mode TeX-mode) '(LaTeX-mode TeX-mode)
"Modes in which to indent regions that are yanked (or yank-popped). Only "Modes in which to indent regions that are yanked (or yank-popped).
modes that don't derive from `prog-mode' should be listed here.") Only modes that don't derive from `prog-mode' should be listed here.")
(defvar yank-indent-blacklisted-modes
'(python-mode slim-mode haml-mode)
"Modes for which auto-indenting is suppressed.")
(defvar yank-advised-indent-threshold 1000 (defvar yank-advised-indent-threshold 1000
"Threshold (# chars) over which indentation does not automatically occur.") "Threshold (# chars) over which indentation does not automatically occur.")
@ -306,6 +310,7 @@ modes that don't derive from `prog-mode' should be listed here.")
"If current mode is one of 'yank-indent-modes, "If current mode is one of 'yank-indent-modes,
indent yanked text (with prefix arg don't indent)." indent yanked text (with prefix arg don't indent)."
(if (and (not (ad-get-arg 0)) (if (and (not (ad-get-arg 0))
(not (member major-mode yank-indent-blacklisted-modes))
(or (derived-mode-p 'prog-mode) (or (derived-mode-p 'prog-mode)
(member major-mode yank-indent-modes))) (member major-mode yank-indent-modes)))
(let ((transient-mark-mode nil)) (let ((transient-mark-mode nil))
@ -315,6 +320,7 @@ indent yanked text (with prefix arg don't indent)."
"If current mode is one of 'yank-indent-modes, "If current mode is one of 'yank-indent-modes,
indent yanked text (with prefix arg don't indent)." indent yanked text (with prefix arg don't indent)."
(if (and (not (ad-get-arg 0)) (if (and (not (ad-get-arg 0))
(not (member major-mode yank-indent-blacklisted-modes))
(or (derived-mode-p 'prog-mode) (or (derived-mode-p 'prog-mode)
(member major-mode yank-indent-modes))) (member major-mode yank-indent-modes)))
(let ((transient-mark-mode nil)) (let ((transient-mark-mode nil))