diff options
author | Achim Gratz <Stromeko@stromeko.net> | 2010-08-27 22:56:43 +0000 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2010-09-05 22:29:14 +0200 |
commit | bd8a0a6f395d83fb8c15a5c0feeb4ee60093ff40 (patch) | |
tree | 0da5bb3d9f051f3c1e6f67b2da053e286d76a471 | |
parent | 872d401fb375695ad53c9762a08d3be65df7c616 (diff) | |
download | org-mode-bd8a0a6f395d83fb8c15a5c0feeb4ee60093ff40.tar.gz |
inside table, delete-backward-char must not insert spaces when overwrite mode is on
* lisp/org.el (org-delete-backward-char): check for nil overwrite-mode before inserting
spaces.
TINYCHANGE
There's probably a different/better way to do this, but this seemed the least intrusive.
This patch is in the public domain.
-rw-r--r-- | lisp/org.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el index a814cf4..09281cc 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -16574,9 +16574,11 @@ because, in this case the deletion might narrow the column." (noalign (looking-at "[^|\n\r]* |")) (c org-table-may-need-update)) (backward-delete-char N) - (skip-chars-forward "^|") - (insert " ") - (goto-char (1- pos)) + (if (not overwrite-mode) + (progn + (skip-chars-forward "^|") + (insert " ") + (goto-char (1- pos)))) ;; noalign: if there were two spaces at the end, this field ;; does not determine the width of the column. (if noalign (setq org-table-may-need-update c))) |