瀏覽代碼

Silence byte-compiler

Nicolas Goaziou 7 年之前
父節點
當前提交
a374b8b92a
共有 1 個文件被更改,包括 1 次插入3 次删除
  1. 1 3
      lisp/org.el

+ 1 - 3
lisp/org.el

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