Browse Source

org-list: fix insertion of item with indent-tabs-mode is non-nil

* lisp/org-list.el (org-list-insert-item): when computing size of item
  being inserted, function has to take into account that indentation
  may not only be made of spaces.
Nicolas Goaziou 14 năm trước cách đây
mục cha
commit
7b211c86e7
1 tập tin đã thay đổi với 4 bổ sung1 xóa
  1. 4 1
      lisp/org-list.el

+ 4 - 1
lisp/org-list.el

@@ -1172,7 +1172,10 @@ This function modifies STRUCT."
 	   ;;    BEFOREP and SPLIT-LINE-P. The difference of size
 	   ;;    between what was cut and what was inserted in buffer
 	   ;;    is stored in SIZE-OFFSET.
-	   (ind (org-list-get-ind item struct))
+	   (ind (let ((ind-ref (org-list-get-ind item struct)))
+		  (if (not indent-tabs-mode)
+		      ind-ref
+		    (+ (/ ind-ref tab-width) (mod ind-ref tab-width)))))
 	   (bullet (org-list-bullet-string (org-list-get-bullet item struct)))
 	   (box (when checkbox "[ ]"))
 	   (text-cut