branch: master
commit e0f5357e370c39b33ec4cf653a2c81eade6f2583
Author: Clément Pit--Claudel <clement.pitclau...@live.com>
Commit: Clément Pit--Claudel <clement.pitclau...@live.com>
Add a missing 'delete-selection property
This is needed for delete-selection-mode to work properly:
> Commands which will delete the selection need a 'delete-selection
> property on their symbols; commands which insert text but don't have
> this property won't delete the selection.
---
nameless.el | 2 ++
1 files changed, 2 insertions(+), 0 deletions(-)
diff --git a/nameless.el b/nameless.el
index 26b1024..c2837e2 100644
--- a/nameless.el
+++ b/nameless.el
@@ -194,6 +194,8 @@ configured, or if `nameless-current-name' is nil."
(or (nameless-insert-name 'noerror)
(call-interactively #'self-insert-command))))
+(put 'nameless-insert-name-or-self-insert 'delete-selection t)
+
(defun nameless--name-regexp (name)
"Return a regexp of the current name."
(concat "\\_<@?\\(" (regexp-quote name) "-\\)\\(\\s_\\|\\sw\\)"))
