diff options
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-graph.el | 2 | ||||
| -rw-r--r-- | lisp/calc/calc-help.el | 2 | ||||
| -rw-r--r-- | lisp/calc/calc-incom.el | 6 | ||||
| -rw-r--r-- | lisp/calc/calc.el | 2 |
4 files changed, 6 insertions, 6 deletions
diff --git a/lisp/calc/calc-graph.el b/lisp/calc/calc-graph.el index 9af89ab6c3a..9fefaa73d79 100644 --- a/lisp/calc/calc-graph.el +++ b/lisp/calc/calc-graph.el @@ -433,7 +433,7 @@ (while (memq (preceding-char) '(?\s ?\t)) (forward-char -1)) (if (eq (preceding-char) ?\,) - (delete-backward-char 1)))) + (delete-char -1)))) (with-current-buffer calcbuf (setq cache-env (list calc-angle-mode calc-complex-mode diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el index baae194561a..47c95130641 100644 --- a/lisp/calc/calc-help.el +++ b/lisp/calc/calc-help.el @@ -128,7 +128,7 @@ C-w Describe how there is no warranty for Calc." (dig2 (char-after (match-beginning 3)))) (delete-region (match-end 1) (match-end 0)) (goto-char (match-beginning 1)) - (delete-backward-char 1) + (delete-char -1) (delete-char 5) (insert (format "%c .. %c" (min dig1 dig2) (max dig1 dig2))))) (goto-char (point-min))))) diff --git a/lisp/calc/calc-incom.el b/lisp/calc/calc-incom.el index 6244c0d97e1..43811721146 100644 --- a/lisp/calc/calc-incom.el +++ b/lisp/calc/calc-incom.el @@ -176,9 +176,9 @@ (defun calc-digit-dots () (if (eq calc-prev-char ?.) (progn - (delete-backward-char 1) + (delete-char -1) (if (calc-minibuffer-contains ".*\\.\\'") - (delete-backward-char 1)) + (delete-char -1)) (setq calc-prev-char 'dots last-command-event 32) (if calc-prev-prev-char @@ -188,7 +188,7 @@ (erase-buffer)) (exit-minibuffer))) ;; just ignore extra decimal point, anticipating ".." - (delete-backward-char 1))) + (delete-char -1))) (defun calc-dots () (interactive) diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 73a865cab1a..587e376245b 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -2386,7 +2386,7 @@ See calc-keypad for details." (progn (require 'calc-ext) (calc-digit-dots)) - (delete-backward-char 1) + (delete-char -1) (beep) (calc-temp-minibuffer-message " [Bad format]")))))) (setq calc-prev-prev-char calc-prev-char |