diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-11-23 17:30:59 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-11-24 00:07:39 +0100 |
commit | 367827f00589c5b9eb917f132676a4848ab905e0 (patch) | |
tree | 91ca3ae9754421ae225d4709670aaa1b339b7418 | |
parent | 203bf5870f7b27b96fb3e4adbd06cf37a38d7512 (diff) | |
download | org-mode-367827f00589c5b9eb917f132676a4848ab905e0.tar.gz |
Fix failing test
* lisp/org.el (org-indent-region): Fix failing test.
-rwxr-xr-x | lisp/org.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/org.el b/lisp/org.el index f9281ab..762ec20 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -22831,7 +22831,8 @@ assumed to be significant there." (org-with-wide-buffer (goto-char element-end) (skip-chars-backward " \r\t\n") - (line-beginning-position)))))) + (line-beginning-position))) + t))) ;; Do not change items indentation individually as it ;; might break the list as a whole. On the other ;; hand, when at a plain list, indent it as a whole. @@ -22853,10 +22854,8 @@ assumed to be significant there." ;; `org-src-tab-acts-natively' is non-nil. (when (and (< (point) end) org-src-tab-acts-natively) (ignore-errors - (let ((start (1+ (- (point) cbeg))) - (end (- (min cend end) cbeg))) - (org-babel-do-in-edit-buffer - (indent-region start end)))))) + (org-babel-do-in-edit-buffer + (indent-region (point-min) (point-max)))))) (t (org-indent-region (point) (min cend end)))) (goto-char (min cend end)) (when (< (point) end) (funcall indent-to ind element-end))) |