From 2a94e997f4d618832f8b030c4374b6ba0af90229 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 27 Mar 2012 23:24:33 +0200 Subject: [PATCH 1/2] Revert "Use `delete-char' instead of `delete-backward-char'" This reverts commit 00040e708c68af0ada8ae17a74485304d3d5a817. See this email by Achim Gratz: http://comments.gmane.org/gmane.emacs.orgmode/52717 --- lisp/org-table.el | 2 +- lisp/org.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-table.el b/lisp/org-table.el index d9e9c306c..688628105 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -4154,7 +4154,7 @@ overwritten, and the table is not marked as requiring realignment." (looking-at "[^|\n]* +|")) (let (org-table-may-need-update) (goto-char (1- (match-end 0))) - (delete-char -1) + (delete-backward-char 1) (goto-char (match-beginning 0)) (self-insert-command N)) (setq org-table-may-need-update t) diff --git a/lisp/org.el b/lisp/org.el index 9e9a51e78..ee015f2cb 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17626,7 +17626,7 @@ overwritten, and the table is not marked as requiring realignment." (looking-at "[^|\n]* |")) (let (org-table-may-need-update) (goto-char (1- (match-end 0))) - (delete-char -1) + (delete-backward-char 1) (goto-char (match-beginning 0)) (self-insert-command N))) (t From 8d74c849623c57191e77f7c53c0ca751b3fd11eb Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 27 Mar 2012 23:50:52 +0200 Subject: [PATCH 2/2] Use `backward-delete-char' instead of `delete-backward-char' to silent compiler. * org-table.el (orgtbl-self-insert-command): Use `backward-delete-char' instead of `delete-backward-char' as this last command gets caught by the compiler which says to not use it in programs. `backward-delete-char' is just an alias for `delete-backward-char' which is internally remapped to `org-delete-backward-char' for optimization purpose. * org.el (org-self-insert-command): Ditto. --- lisp/org-table.el | 2 +- lisp/org.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-table.el b/lisp/org-table.el index 688628105..a13b06338 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -4154,7 +4154,7 @@ overwritten, and the table is not marked as requiring realignment." (looking-at "[^|\n]* +|")) (let (org-table-may-need-update) (goto-char (1- (match-end 0))) - (delete-backward-char 1) + (backward-delete-char 1) (goto-char (match-beginning 0)) (self-insert-command N)) (setq org-table-may-need-update t) diff --git a/lisp/org.el b/lisp/org.el index ee015f2cb..d0703ee3a 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17626,7 +17626,7 @@ overwritten, and the table is not marked as requiring realignment." (looking-at "[^|\n]* |")) (let (org-table-may-need-update) (goto-char (1- (match-end 0))) - (delete-backward-char 1) + (backward-delete-char 1) (goto-char (match-beginning 0)) (self-insert-command N))) (t