Преглед на файлове

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)