Browse Source

Fix small bug in org-toggle-item

* 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.
Nicolas Goaziou 14 years ago
parent
commit
f7dbea5989
1 changed files with 6 additions and 2 deletions
  1. 6 2
      lisp/org.el

+ 6 - 2
lisp/org.el

@@ -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)