emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 3ffcf0e: Call delete-backward-space interactively.


From: Vibhav Pant
Subject: [Emacs-diffs] master 3ffcf0e: Call delete-backward-space interactively.
Date: Thu, 19 Mar 2015 20:15:23 +0000

branch: master
commit 3ffcf0e3dedb94e065733dc0a5923d7fef42de49
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>

    Call delete-backward-space interactively.
    
    * lisp/progmodes/cperl-mode.el (cperl-electric-backspace):
     Call delete-backward-space interactively instead of delete-char.
    
    * lisp/Changelog: Fix previous changelog.
---
 lisp/ChangeLog               |   11 +++++++++--
 lisp/progmodes/cperl-mode.el |    2 +-
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2500e3..df2211b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-03-19  Vibhav Pant  <address@hidden>
+
+       * lisp/progmodes/cperl-mode.el (cperl-electric-backspace):
+       Call delete-backward-space interactively instead of delete-char.
+
 2015-03-19  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/pcase.el (pcase-lambda): Rewrite.
@@ -62,8 +67,10 @@
 
 2015-03-19  Vibhav Pant  <address@hidden>
 
-       * lisp/leim/quail/hangul.el
-       * lisp/progmodes/cperl-mode.el: Use delete-char instead of
+       * lisp/leim/quail/hangul.el (hangul-delete-backward-char)
+       (hangul-to-hanja-conversion):
+       * lisp/progmodes/cperl-mode.el (cperl-electric-keyword)
+       (cperl-electric-backspace): Use delete-char instead of
        delete-backward-char, fixes compilation warnings.
 
 2015-03-18  Michael Albinus  <address@hidden>
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index f207016..2acfc10 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -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-char (- arg))))))
+       (call-interactively 'delete-backward-char)))))
 
 (put 'cperl-electric-backspace 'delete-selection 'supersede)
 



reply via email to

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