Pārlūkot izejas kodu

lisp/org.el: Indent list items in drawers correctly

* lisp/org.el (org-fixup-indentation): Indent list items in drawers
correctly, by respecting existing relative indentation.
Bastien Guerry 4 gadi atpakaļ
vecāks
revīzija
43f6ced0da
1 mainītis faili ar 3 papildinājumiem un 1 dzēšanām
  1. 3 1
      lisp/org.el

+ 3 - 1
lisp/org.el

@@ -7393,7 +7393,9 @@ Assume point is at a heading or an inlinetask beginning."
 	   (col (+ (current-indentation) diff)))
        (when (wholenump col)
 	 (while (< (point) end-marker)
-	   (indent-line-to col)
+           (if (natnump diff)
+	       (insert (make-string diff 32))
+             (delete-char (abs diff)))
 	   (forward-line)))))
    (catch 'no-shift
      (when (or (zerop diff) (not (eq org-adapt-indentation t)))