From f469024eea692a163beb98a824b5cc0a4e8bcda8 Mon Sep 17 00:00:00 2001 From: Vibhav Pant Date: Thu, 19 Mar 2015 06:45:58 +0530 Subject: [PATCH] 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 de940c304a..e75f81ba75 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2015-03-19 Vibhav Pant + + * 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 * 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 243fa04257..12d7358841 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 3b8742ee84..f207016187 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) -- 2.39.2