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

Silence byte-compiler

This commit is contained in:
Nicolas Goaziou 2017-12-31 15:16:12 +01:00
parent 20491f2e7c
commit a374b8b92a
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
View File

@ -20324,7 +20324,6 @@ This command does many different things, depending on context:
;; first item in the list. Without an argument, repair the ;; first item in the list. Without an argument, repair the
;; list. ;; list.
(let* ((begin (org-element-property :contents-begin context)) (let* ((begin (org-element-property :contents-begin context))
(beginm (move-marker (make-marker) begin))
(struct (org-element-property :structure context)) (struct (org-element-property :structure context))
(old-struct (copy-tree struct)) (old-struct (copy-tree struct))
(first-box (save-excursion (first-box (save-excursion
@ -20348,8 +20347,7 @@ This command does many different things, depending on context:
(org-list-set-checkbox begin struct new-box))) (org-list-set-checkbox begin struct new-box)))
(org-list-write-struct (org-list-write-struct
struct (org-list-parents-alist struct) old-struct) struct (org-list-parents-alist struct) old-struct)
(org-update-checkbox-count-maybe) (org-update-checkbox-count-maybe)))
(save-excursion (goto-char beginm) (org-list-send-list 'maybe))))
((or `property-drawer `node-property) ((or `property-drawer `node-property)
(call-interactively #'org-property-action)) (call-interactively #'org-property-action))
(`radio-target (`radio-target