[AUCTeX-diffs] [elpa] externals/auctex b641204 1/8: Improve handling for parentheses with electric-pair-mode (bug#47936)

[Tassilo Horn]

branch: externals/auctex
commit b64120410f1a7a7c6231cbb50c54b22d00569288
Author: Philip K <philipk@posteo.net>
Commit: Tassilo Horn <tsdh@gnu.org>

    Improve handling for parentheses with electric-pair-mode (bug#47936)
    
    * latex.el (LaTeX-insert-corresponding-right-macro-and-brace): Improve
    handling for parentheses with electric-pair-mode (bug#47936).
---
 latex.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/latex.el b/latex.el
index 83d50ca..c6e0a62 100644
--- a/latex.el
+++ b/latex.el
@@ -2954,7 +2954,7 @@ Normally bound to keys \(, { and [."
                 (funcall f))))))
 
 (defun LaTeX-insert-corresponding-right-macro-and-brace
-  (lmacro lbrace &optional optional prompt)
+    (lmacro lbrace &optional optional prompt)
   "Insert right macro and brace correspoinding to LMACRO and LBRACE.
 Left-right association is determined through
 `LaTeX-left-right-macros-association' and `TeX-braces-association'.
@@ -2979,6 +2979,10 @@ is nil, consult user which brace should be used."
     (if rmacro
         (insert TeX-esc rmacro))
     (cond
+     ((and electric-pair-mode
+           (string= (char-to-string last-command-event) lbrace))
+      ;; Do nothing as `electric-pair-mode' closes for us.
+      nil)
      ((and TeX-arg-right-insert-p rbrace)
       (insert rbrace))
      (rmacro
@@ -2987,7 +2991,7 @@ is nil, consult user which brace should be used."
                 optional prompt
                 (format "Which brace (default %s)"
                         (or rbrace "."))) TeX-left-right-braces
-                        nil nil nil nil (or rbrace ".")))))))
+               nil nil nil nil (or rbrace ".")))))))
 
 (defun LaTeX--find-preceding-left-macro-name ()
   "Return the left macro name just before the point, if any.