[nongnu] elpa/racket-mode 3cadfa322d 2/2: Support delete-section; fixes #682.

[ELPA Syncer]

branch: elpa/racket-mode
commit 3cadfa322d8036234a6427a8687869e6657c00fa
Author: Greg Hendershott <git@greghendershott.com>
Commit: Greg Hendershott <git@greghendershott.com>

    Support delete-section; fixes #682.
    
    racket-hash-lang-delete-backward-char should delete the selection when
    delete-selection-mode is enabled.
---
 racket-hash-lang.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/racket-hash-lang.el b/racket-hash-lang.el
index f251f7d0d7..b2dea56e74 100644
--- a/racket-hash-lang.el
+++ b/racket-hash-lang.el
@@ -768,13 +768,14 @@ You may customize this default initialization in
          (racket--hash-lang-plain-self-insert close-char))))))
 
 (defun racket-hash-lang-delete-backward-char ()
-  "Delete previous character, and when between a pair, following character."
+  "Delete previous character, and following character when matching pair."
   (interactive)
   (pcase (assq (char-before) racket-hash-lang-pairs)
     (`(,_open ,close . ,_ )
      (when (eq close (char-after))
        (delete-char 1))))
   (delete-char -1))
+(put 'racket-hash-lang-delete-backward-char 'delete-selection 'supersede)
 
 ;;; Fill