From e0f5357e370c39b33ec4cf653a2c81eade6f2583 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Cl=C3=A9ment=20Pit--Claudel?= <clement.pitclaudel@live.com>
Date: Tue, 8 Sep 2015 10:08:35 -0400
Subject: [PATCH] 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 file changed, 2 insertions(+)

diff --git a/nameless.el b/nameless.el
index 26b102414..c2837e2b3 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\\)"))
-- 
2.39.2