From b28df58ce5da592a41c23a1563fd68446ed80aa4 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 18 Feb 2014 13:14:36 -0500 Subject: [PATCH] * lisp/delsel.el (delete-char): Restore incorrectly erased property. Fixes: debbugs:16795 --- lisp/ChangeLog | 20 ++++++++++++-------- lisp/delsel.el | 3 +++ 2 files changed, 15 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e797663b70..b47c19be1f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-02-18 Stefan Monnier + + * delsel.el (delete-char): Restore incorrectly erased property + (bug#16795). + 2014-02-18 Juanma Barranquero * frameset.el (frameset--restore-frame): When a frame is being reused @@ -17,19 +22,18 @@ 2014-02-17 Alan Mackenzie Connect electric-indent-mode up with CC Mode. Bug #15478. - * progmodes/cc-mode.el (c-initialize-cc-mode): add CC Mode hooks + * progmodes/cc-mode.el (c-initialize-cc-mode): Add CC Mode hooks to electric-indent-{,local-}-mode. - (c-basic-common-init): Set electric-indent-inhibit. Initialise - c-electric-flag from electric-indent-mode. + (c-basic-common-init): Set electric-indent-inhibit. + Initialise c-electric-flag from electric-indent-mode. (c-electric-indent-mode-hook, c-electric-indent-local-mode-hook): - New hook functions which propagate electric-indent-mode to CC - Mode. + New hook functions which propagate electric-indent-mode to CC mode. * progmodes/cc-cmds.el (c-toggle-electric-state): When C-c C-l is - hit, toggle electric-indent-local-moode. + hit, toggle electric-indent-local-mode. - * electric.el (electric-indent-mode-has-been-called): New - variable. + * electric.el (electric-indent-mode-has-been-called): + New variable. 2014-02-17 Juanma Barranquero diff --git a/lisp/delsel.el b/lisp/delsel.el index 92f60c8786..ab71e60644 100644 --- a/lisp/delsel.el +++ b/lisp/delsel.el @@ -181,6 +181,9 @@ See `delete-selection-helper'." (put 'yank 'delete-selection 'yank) (put 'clipboard-yank 'delete-selection 'yank) (put 'insert-register 'delete-selection t) +;; delete-backward-char and delete-forward-char already delete the selection by +;; default, but not delete-char. +(put 'delete-char 'delete-selection 'supersede) (put 'reindent-then-newline-and-indent 'delete-selection t) (put 'newline-and-indent 'delete-selection t) -- 2.20.1