[Accepted] [Orgmode] inside table, delete-backward-char must not insert spaces when overwrite mode is on

[Bastien Guerry]

Patch 245 (http://patchwork.newartisans.com/patch/245/) is now "Accepted".

Maintainer comment: none

This relates to the following submission:

http://mid.gmane.org/%3C201008271956.43528.Stromeko%40stromeko.net%3E

Here is the original message containing the patch:

> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [Orgmode] inside table,
>       delete-backward-char must not insert spaces when overwrite mode is on
> Date: Fri, 27 Aug 2010 22:56:43 -0000
> From: Achim Gratz <address@hidden>
> X-Patchwork-Id: 245
> Message-Id: <address@hidden>
> To: address@hidden
> 
> * 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.
> 
> ---
> lisp/org.el |    8 +++++---
>  1 files changed, 5 insertions(+), 3 deletions(-)
> 
> diff --git a/lisp/org.el b/lisp/org.el
> index bc62633..41f35d4 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -16597,9 +16597,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)))
>