瀏覽代碼

Merge branch 'maint'

Nicolas Goaziou 9 年之前
父節點
當前提交
a5f83857c1
共有 1 個文件被更改,包括 2 次插入4 次删除
  1. 2 4
      lisp/org-table.el

+ 2 - 4
lisp/org-table.el

@@ -4564,11 +4564,9 @@ overwritten, and the table is not marked as requiring realignment."
 		 (org-table-blank-field))
 	    t)
 	   (eq N 1)
-	   (looking-at "[^|\n]*  +|"))
+	   (looking-at "[^|\n]* \\( \\)|"))
       (let (org-table-may-need-update)
-	(goto-char (1- (match-end 0)))
-	(org-delete-backward-char 1)
-	(goto-char (match-beginning 0))
+	(delete-region (match-beginning 1) (match-end 1))
 	(self-insert-command N))
     (setq org-table-may-need-update t)
     (let* (orgtbl-mode