ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix failing test 

* lisp/org.el (org-indent-region): Fix failing test.
This commit is contained in:
Nicolas Goaziou 2014-11-23 17:30:59 +01:00
parent 203bf5870f
commit 367827f005
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org.el
View File

@ -22831,7 +22831,8 @@ assumed to be significant there."
(org-with-wide-buffer (org-with-wide-buffer
(goto-char element-end) (goto-char element-end)
(skip-chars-backward " \r\t\n") (skip-chars-backward " \r\t\n")
(line-beginning-position)))))) (line-beginning-position)))
t)))
;; Do not change items indentation individually as it ;; Do not change items indentation individually as it
;; might break the list as a whole. On the other ;; might break the list as a whole. On the other
;; hand, when at a plain list, indent it as a whole. ;; 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. ;; `org-src-tab-acts-natively' is non-nil.
(when (and (< (point) end) org-src-tab-acts-natively) (when (and (< (point) end) org-src-tab-acts-natively)
(ignore-errors (ignore-errors
(let ((start (1+ (- (point) cbeg))) (org-babel-do-in-edit-buffer
(end (- (min cend end) cbeg))) (indent-region (point-min) (point-max))))))
(org-babel-do-in-edit-buffer
(indent-region start end))))))
(t (org-indent-region (point) (min cend end)))) (t (org-indent-region (point) (min cend end))))
(goto-char (min cend end)) (goto-char (min cend end))
(when (< (point) end) (funcall indent-to ind element-end))) (when (< (point) end) (funcall indent-to ind element-end)))