diff options
author | Bastien Guerry <bzg@altern.org> | 2012-03-27 23:50:52 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-03-27 23:50:52 +0200 |
commit | 8d74c849623c57191e77f7c53c0ca751b3fd11eb (patch) | |
tree | 7bf0cd1020fe10ce25b2cfb418e5443bc3f97667 | |
parent | 2a94e997f4d618832f8b030c4374b6ba0af90229 (diff) | |
download | org-mode-8d74c849623c57191e77f7c53c0ca751b3fd11eb.tar.gz |
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.
-rw-r--r-- | lisp/org-table.el | 2 | ||||
-rw-r--r-- | lisp/org.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el index 6886281..a13b063 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 ee015f2..d0703ee 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 |