|
|
@ -350,14 +350,14 @@ indent yanked text (with prefix arg don't indent)." |
|
|
(yank-advised-indent-function (region-beginning) (region-end))))) |
|
|
(yank-advised-indent-function (region-beginning) (region-end))))) |
|
|
|
|
|
|
|
|
(defadvice yank-pop (after yank-pop-indent activate) |
|
|
(defadvice yank-pop (after yank-pop-indent activate) |
|
|
"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)) |
|
|
|
|
|
(not (member major-mode yank-indent-blacklisted-modes)) |
|
|
|
|
|
(or (derived-mode-p 'prog-mode) |
|
|
|
|
|
(member major-mode yank-indent-modes))) |
|
|
|
|
|
|
|
|
(when (and (not (ad-get-arg 0)) |
|
|
|
|
|
(not (member major-mode yank-indent-blacklisted-modes)) |
|
|
|
|
|
(or (derived-mode-p 'prog-mode) |
|
|
|
|
|
(member major-mode yank-indent-modes))) |
|
|
(let ((transient-mark-mode nil)) |
|
|
(let ((transient-mark-mode nil)) |
|
|
(yank-advised-indent-function (region-beginning) (region-end))))) |
|
|
|
|
|
|
|
|
(yank-advised-indent-function (region-beginning) (region-end))))) |
|
|
|
|
|
|
|
|
;; abbrev config |
|
|
;; abbrev config |
|
|
(add-hook 'text-mode-hook 'abbrev-mode) |
|
|
(add-hook 'text-mode-hook 'abbrev-mode) |
|
|
|