emacs-diffs
[Top][All Lists]
Advanced

[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)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]