diff options
| author | Vibhav Pant <vibhavp@gmail.com> | 2015-03-20 01:43:37 +0530 |
|---|---|---|
| committer | Vibhav Pant <vibhavp@gmail.com> | 2015-03-20 01:43:37 +0530 |
| commit | 3ffcf0e3dedb94e065733dc0a5923d7fef42de49 (patch) | |
| tree | bcc8547fbca92f6bb0301dd0b8cedc0dfb813a89 /lisp | |
| parent | ccf00107f7aa8897cde017bec3717ecc350515f7 (diff) | |
| download | emacs-3ffcf0e3dedb94e065733dc0a5923d7fef42de49.tar.gz emacs-3ffcf0e3dedb94e065733dc0a5923d7fef42de49.tar.bz2 emacs-3ffcf0e3dedb94e065733dc0a5923d7fef42de49.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 11 | ||||
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 2 |
2 files changed, 10 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a2500e3fadc..df2211be169 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-03-19 Vibhav Pant <vibhavp@gmail.com> + + * lisp/progmodes/cperl-mode.el (cperl-electric-backspace): + Call delete-backward-space interactively instead of delete-char. + 2015-03-19 Stefan Monnier <monnier@iro.umontreal.ca> * emacs-lisp/pcase.el (pcase-lambda): Rewrite. @@ -62,8 +67,10 @@ 2015-03-19 Vibhav Pant <vibhavp@gmail.com> - * 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 <michael.albinus@gmx.de> diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index f207016187d..2acfc104cf3 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) |