Support strings for electric pairs (bug#78053)

This add support for insert string pairs in 'electric-pairs-mode'.
* lisp/elec-pair.el (electric-pair-pairs)
(electric-pair-text-pairs): Add new defcustom types.
(electric-pair-syntax-info)
(electric-pair-post-self-insert-function): Add support for
strings.

* etc/NEWS: Announce changes.

* test/lisp/electric-tests.el: Add new tests.

1 files changed, 27 insertions, 0 deletions

diff --git a/test/lisp/electric-tests.el b/test/lisp/electric-tests.el
index ad7506f68ff..4468559cf38 100644
--- a/test/lisp/electric-tests.el
+++ b/test/lisp/electric-tests.el
@@ -549,6 +549,33 @@ baz\"\""
                 (electric-pair-mode 1)
                 (electric-indent-mode 1)
                 (electric-layout-mode 1)))
+
+;;; String pairs
+;;; TODO: add more tests
+;;;
+
+;; NOTE: Currently string pairs do not support insert pairs in region
+;;       or delete them with electric-pair-delete-pair
+
+(ert-deftest electric-pair-strings-pairs ()
+  (save-electric-modes
+    (with-temp-buffer
+      (setq-local electric-pair-pairs `((,(regexp-quote "/*") . "*/")))
+      (electric-pair-local-mode)
+      (insert "/")
+      (let ((last-command-event ?\*))
+        (ert-simulate-command '(self-insert-command 1)))
+      (should (equal "/**/" (buffer-string))))))
+
+(ert-deftest electric-pair-strings-pairs-with-space ()
+  (save-electric-modes
+    (with-temp-buffer
+      (setq-local electric-pair-pairs `((,(regexp-quote "/*") " */" t)))
+      (electric-pair-local-mode)
+      (insert "/")
+      (let ((last-command-event ?\*))
+        (ert-simulate-command '(self-insert-command 1)))
+      (should (equal "/*  */" (buffer-string))))))
 
 
 ;;; Backspacing