diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-01-02 14:25:10 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-01-02 14:25:58 +0100 |
| commit | 8bc5d40264cb7d0ef7c3538edc82bdf40f5dcc55 (patch) | |
| tree | 0ec746c33779bfc00b9e23d0f1bb8f41b4955c8f | |
| parent | ad4d4227f0b1cc5906ba6cf902c48ae94fdcdb5d (diff) | |
| download | org-mode-8bc5d40264cb7d0ef7c3538edc82bdf40f5dcc55.tar.gz | |
Fix `org-toggle-heading'
* lisp/org.el (org-toggle-heading): Ensure partial list conversion to
headlines do not get broken by missing newline characters.
| -rwxr-xr-x | lisp/org.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index b426afd..c600f2f 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -21615,10 +21615,11 @@ number of stars to add." (when (org-at-item-p) ;; Pay attention to cases when region ends before list. (let* ((struct (org-list-struct)) - (list-end (min (org-list-get-bottom-point struct) (1+ end)))) + (list-end + (min (org-list-get-bottom-point struct) (1+ end)))) (save-restriction (narrow-to-region (point) list-end) - (insert (org-list-to-subtree (org-list-to-lisp t))))) + (insert (org-list-to-subtree (org-list-to-lisp t)) "\n"))) (setq toggled t)) (forward-line))) ;; Case 3. Started at normal text: make every line an heading, |