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.

diff --git a/nameless.el b/nameless.el
index 26b1024148d0e970c282396752c86e6afde9d45b..c2837e2b3724bd01bd00d426bcf8c74705fc3d4a 100644 (file)
--- 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\\)"))