Support delete-section; fixes #682.

racket-hash-lang-delete-backward-char should delete the selection when delete-selection-mode is enabled.
greghendershott · Nov 30, 2023 · 3cadfa3 · 3cadfa3
1 parent c1bcc33
commit 3cadfa3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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