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

[Bastien Guerry <bzg@altern.org>]

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 <Stromeko@stromeko.net>
> X-Patchwork-Id: 245
> Message-Id: <201008271956.43528.Stromeko@stromeko.net>
> To: emacs-orgmode@gnu.org
> 
> * 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)))
>