[elpa] externals/auctex a6e53e53d8 09/43: Refine management of mode redirection

[Tassilo Horn]

branch: externals/auctex
commit a6e53e53d8667fae04412d4365b5d1de0743c3f4
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>

    Refine management of mode redirection
    
    * tex-site.el.in (TeX-modes-set): Add redirection only when there
    isn't the same one.
    Delete only AUCTeX mode redirection.
---
 tex-site.el.in | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tex-site.el.in b/tex-site.el.in
index a17709fd4d..59318bd9ce 100644
--- a/tex-site.el.in
+++ b/tex-site.el.in
@@ -114,7 +114,8 @@ Otherwise, use advice facility."
             dst (cdr entry))
       (if (memq elt value)
           (if (boundp 'major-mode-remap-alist)
-              (push (cons elt dst) major-mode-remap-alist)
+              (or (eq (cdr-safe (assq elt major-mode-remap-alist)) dst)
+                  (push (cons elt dst) major-mode-remap-alist))
             ;; COMPATIBILITY for Emacs<29
             (advice-add elt :override dst
                         ;; COMPATIBILITY for Emacs 28.[12]
@@ -124,7 +125,7 @@ Otherwise, use advice facility."
                         '((depth . -10))))
         (if (boundp 'major-mode-remap-alist)
             (setq major-mode-remap-alist
-                  (assq-delete-all elt major-mode-remap-alist))
+                  (delete entry major-mode-remap-alist))
           ;; COMPATIBILITY for Emacs<29
           (advice-remove elt dst))))))