tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Fix small bug in org-toggle-item

Browse source 
* lisp/org.el (org-toggle-item): when used on normal text, ensure
  every line in region is included in the new item, regardless of its
  original indentation.
This commit is contained in:
Nicolas Goaziou 2011-01-24 19:15:22 +01:00
parent 0850948dea
commit f7dbea5989
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org.el
View file

@ -17602,12 +17602,16 @@ an item."
;; shift indentation of others lines to set them as item's
;; body.
(let* ((bul (org-list-bullet-string "-"))
(bul-len (length bul)))
(bul-len (length bul))
(ref-ind (org-get-indentation)))
(skip-chars-forward " \t")
(insert bul)
(beginning-of-line 2)
(while (and (< (setq l (1+ l)) l2) (< (point) end))
(org-indent-line-to (+ (org-get-indentation) bul-len))
;; Ensure that lines less indented than first one
;; still get included in item body.
(org-indent-line-to (+ (max ref-ind (org-get-indentation))
bul-len))
(beginning-of-line 2)))))))))
(defun org-toggle-heading (&optional nstars)