浏览代码

org-list: forgot a default case in org-list-struct

Nicolas Goaziou 14 年之前
父节点
当前提交
349196def4
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org-list.el

+ 2 - 1
lisp/org-list.el

@@ -792,7 +792,8 @@ Assume point is at an item."
 		     (push (cons 0 (funcall end-before-blank)) end-lst-2)))
 	     ((<= ind (nth 1 (car itm-lst-2)))
 	      (push (cons ind (point)) end-lst-2)
-	      (forward-line 1))))))
+	      (forward-line 1))
+	     (t (forward-line 1))))))
       (setq struct (append itm-lst (cdr (nreverse itm-lst-2))))
       (setq end-lst (append end-lst (cdr (nreverse end-lst-2))))
       ;; 3. Correct ill-formed lists by ensuring top item is the least