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 năm trước cách đây
mục cha
commit
f7dbea5989
1 tập tin đã thay đổi với 6 bổ sung2 xóa
  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)