瀏覽代碼

org-list: remove left-over commented code and clean white space

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

+ 1 - 3
lisp/org-list.el

@@ -75,7 +75,7 @@
 
 ;;; Code:
 
-(eval-when-compile 
+(eval-when-compile
   (require 'cl))
 (require 'org-macs)
 (require 'org-compat)
@@ -1804,8 +1804,6 @@ Initial position of cursor is restored after the changes."
 		((and (match-string 3) new-box)
 		 (replace-match new-box nil nil nil 3))
 		((match-string 3)
-		 ;; (goto-char (or (match-end 2) (match-end 1)))
-		 ;; (skip-chars-backward " \t")
 		 (looking-at ".*?\\([ \t]*\\[[ X-]\\]\\)")
 		 (replace-match "" nil nil nil 1))
 		(t (let ((counterp (match-end 2)))