diff options
author | David Maus <dmaus@ictsoc.de> | 2011-06-01 06:53:21 +0200 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2011-06-01 08:30:20 +0200 |
commit | 00040e708c68af0ada8ae17a74485304d3d5a817 (patch) | |
tree | 5d4ec1e524da77499bf127a7518fe252bd88332f | |
parent | f4f20ad5c830a169c7713cb99bfd4127c9c3b32d (diff) | |
download | org-mode-00040e708c68af0ada8ae17a74485304d3d5a817.tar.gz |
Use `delete-char' instead of `delete-backward-char'
* org.el (org-self-insert-command): Use `delete-char' instead of
`delete-backward-char'.
* org-table.el (orgtbl-self-insert-command): Dto.
According to the doc string `delete-backward-char' "is meant for
interactive use only; from Lisp, better use `delete-char' with a
negated argument."
-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 30c4ddd..20b89c3 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -4030,7 +4030,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) + (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 88976e2..c2b18c6 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -16921,7 +16921,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) + (delete-char -1) (goto-char (match-beginning 0)) (self-insert-command N))) (t |