ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Small refactoring 

* lisp/org.el (org-toggle-item): Do not call `org-list-struct' twice
  and fix checkboxes after modifying one of them.

This patch is relative to 213c2a6aa0.
This commit is contained in:
Nicolas Goaziou 2014-01-13 17:58:16 +01:00
parent 6ea3dee45d
commit ae0f1c56a7
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org.el
View File

@ -20684,13 +20684,11 @@ With a prefix argument ARG, change the region in a single item."
(when (< level ref-level) (setq ref-level level))
(replace-match bul t t)
(org-indent-line-to (+ start-ind (* delta bul-len)))
(if (or done todo)
(let* ((struct0 (org-list-struct))
(struct (org-list-struct))
(parents (org-list-parents-alist struct))
(item (car (assoc (point) struct))))
(org-list-set-checkbox item struct (if done "[X]" "[ ]"))
(org-list-struct-apply-struct struct struct0)))
(when (or done todo)
(let ((struct (org-list-struct)))
(org-list-set-checkbox (point) struct (if done "[X]" "[ ]"))
(org-list-write-struct struct
(org-list-parents-alist struct))))
;; Ensure all text down to END (or SECTION-END) belongs
;; to the newly created item.
(let ((section-end (save-excursion