From 8d74c849623c57191e77f7c53c0ca751b3fd11eb Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 27 Mar 2012 23:50:52 +0200 Subject: [PATCH] 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