[elpa] externals/objed 96c6b8f 065/216: Add DEL key for in buffer replacement, fixes #6

[Stefan Monnier]

branch: externals/objed
commit 96c6b8f64abe7d090bda9f0d0f3c63ee3622996c
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Add DEL key for in buffer replacement, fixes #6
---
 README.asc | 5 ++---
 objed.el   | 7 +++++++
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/README.asc b/README.asc
index ca52750..bcbec38 100644
--- a/README.asc
+++ b/README.asc
@@ -297,6 +297,8 @@ commands" below):
 |===
 |Shortcut |Purpose
 
+|kbd:[DEL]
+|Delete current object(s) and switch to insert.
 
 |kbd:[k]
 |Kill current object(s).
@@ -310,9 +312,6 @@ commands" below):
 |kbd:[y]
 |Yank last killed text at point. On repeat, cycle through `kill-ring`
 
-|kbd:[w]
-|Copy current object(s).
-
 |kbd:[\\]
 |Indent object(s).
 
diff --git a/objed.el b/objed.el
index 7624672..257c5e9 100644
--- a/objed.el
+++ b/objed.el
@@ -721,6 +721,8 @@ object as an argument."
     (define-key map "k" 'objed-kill)
     (define-key map "w" 'objed-copy)
     (define-key map "d" 'objed-delete)
+    (define-key map (kbd "DEL") 'objed-del-insert)
+
     (define-key map "y" 'objed-yank)
 
     (define-key map (kbd "C-x TAB") 'objed-indent-rigidly)
@@ -2025,6 +2027,11 @@ append it to the `kill-ring'."
   (setq this-command 'kill-region)
   (message "Copied to `kill-ring.'"))
 
+(defun objed-del-insert ()
+  "Delete current object and exit to insert state."
+  (interactive)
+  (delete-region (objed--beg) (objed--end))
+  (objed--exit-objed))
 
 (defvar objed--electric-event nil
   "Saves the event used for `objed-electric'.")