diff options
| author | Magnar Sveen <magnars@gmail.com> | 2019-03-26 08:27:02 +0100 |
|---|---|---|
| committer | Magnar Sveen <magnars@gmail.com> | 2019-03-26 08:27:02 +0100 |
| commit | 5a93da555a8ab807c878275dd364bb71f1c4c2db (patch) | |
| tree | 02b58078520e71a9e74e130ab8a2e776cd75b25c | |
| parent | 672e7c1842234f8c2d68bd98dc539e2180f69317 (diff) | |
The unnecessary org-mode unfolds turns out to be necessary
Reverted this since (require 'org) breaks spacemacs for some reason.
This reverts commit 53233a0bbaffe5094dd91152bcfce7b027aefd3c.
| -rw-r--r-- | expand-region-core.el | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/expand-region-core.el b/expand-region-core.el index b958d20..ce3c9e1 100644 --- a/expand-region-core.el +++ b/expand-region-core.el @@ -28,7 +28,6 @@ (eval-when-compile (require 'cl)) (require 'expand-region-custom) -(require 'org) (declare-function er/expand-region "expand-region") (defvar er/history '() @@ -97,16 +96,15 @@ moving point or mark as little as possible." (setq start (point))) (while try-list - (org-save-outline-visibility t - (save-mark-and-excursion - (ignore-errors - (funcall (car try-list)) - (when (and (region-active-p) - (er--this-expansion-is-better start end best-start best-end)) - (setq best-start (point)) - (setq best-end (mark)) - (when (and er--show-expansion-message (not (minibufferp))) - (message "%S" (car try-list))))))) + (save-mark-and-excursion + (ignore-errors + (funcall (car try-list)) + (when (and (region-active-p) + (er--this-expansion-is-better start end best-start best-end)) + (setq best-start (point)) + (setq best-end (mark)) + (when (and er--show-expansion-message (not (minibufferp))) + (message "%S" (car try-list)))))) (setq try-list (cdr try-list))) (setq deactivate-mark nil) |