فهرست منبع

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 سال پیش
والد
کامیت
f7dbea5989
1فایلهای تغییر یافته به همراه6 افزوده شده و 2 حذف شده
  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)