[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f469024: Use delete-char instead of delete-backward
From: |
Vibhav Pant |
Subject: |
[Emacs-diffs] master f469024: Use delete-char instead of delete-backward-char. |
Date: |
Wed, 18 Mar 2015 19:46:29 +0000 |
branch: master
commit f469024eea692a163beb98a824b5cc0a4e8bcda8
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>
Use delete-char instead of delete-backward-char.
* lisp/leim/quail/hangul.el
* lisp/progmodes/cperl-mode.el: Use delete-char instead of
delete-backward-char, fixes compilation warnings.
---
lisp/ChangeLog | 6 ++++++
lisp/leim/quail/hangul.el | 4 ++--
lisp/progmodes/cperl-mode.el | 6 +++---
3 files changed, 11 insertions(+), 5 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de940c3..e75f81b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-03-19 Vibhav Pant <address@hidden>
+
+ * lisp/leim/quail/hangul.el
+ * lisp/progmodes/cperl-mode.el: Use delete-char instead of
+ delete-backward-char, fixes compilation warnings.
+
2015-03-18 Michael Albinus <address@hidden>
* net/tramp-sh.el (tramp-do-directory-files-and-attributes-with-stat):
diff --git a/lisp/leim/quail/hangul.el b/lisp/leim/quail/hangul.el
index 243fa04..12d7358 100644
--- a/lisp/leim/quail/hangul.el
+++ b/lisp/leim/quail/hangul.el
@@ -351,7 +351,7 @@ Other parts are the same as a `hangul3-input-method-cho'."
(aset hangul-queue i 0))
(if (notzerop (apply '+ (append hangul-queue nil)))
(hangul-insert-character hangul-queue)
- (delete-backward-char 1)))
+ (delete-char -1)))
(defun hangul-to-hanja-conversion ()
"Convert the previous hangul character to the corresponding hanja character.
@@ -363,7 +363,7 @@ When a Korean input method is off, convert the following
hangul character."
(if (and (overlayp quail-overlay) (overlay-start quail-overlay))
(progn
(setq hanja-character (hangul-to-hanja-char (preceding-char)))
- (setq delete-func (lambda () (delete-backward-char 1))))
+ (setq delete-func (lambda () (delete-char -1))))
(setq hanja-character (hangul-to-hanja-char (following-char)))
(setq delete-func (lambda () (delete-char 1))))
(when hanja-character
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 3b8742e..f207016 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -2281,8 +2281,8 @@ to nil."
(search-backward ")")
(if (eq last-command-event ?\()
(progn ; Avoid "if (())"
- (delete-backward-char 1)
- (delete-backward-char -1))))
+ (delete-char -1)
+ (delete-char 1))))
(if delete
(cperl-putback-char cperl-del-back-ch))
(if cperl-message-electric-keyword
@@ -2588,7 +2588,7 @@ Will untabify if `cperl-electric-backspace-untabify' is
non-nil."
(delete-region (point) p))
(if cperl-electric-backspace-untabify
(backward-delete-char-untabify arg)
- (delete-backward-char arg)))))
+ (delete-char (- arg))))))
(put 'cperl-electric-backspace 'delete-selection 'supersede)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f469024: Use delete-char instead of delete-backward-char.,
Vibhav Pant <=