[AUCTeX-diffs] GNU AUCTeX branch, master, updated. e5fa92a61ffa684e040652184f2af478dd1c1329

[Ikumi Keita]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  e5fa92a61ffa684e040652184f2af478dd1c1329 (commit)
      from  5f99bc292940f12d8d8034e548045a6dee6fb8de (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit e5fa92a61ffa684e040652184f2af478dd1c1329
Author: Andrea Greselin <greselin.andrea@gmail.com>
Date:   Sat Jan 8 19:07:25 2022 +0900

    Make TeX-insert-quote robust for corner case (bug#52852)
    
    * tex.el (TeX-insert-quote): Go back only when there's enough room to
    do so.
    
    Copyright-paperwork-exempt: yes

diff --git a/tex.el b/tex.el
index 3cf8f65e..03027d69 100644
--- a/tex.el
+++ b/tex.el
@@ -6169,14 +6169,16 @@ With prefix argument FORCE, always inserts \" 
characters."
                        ?\")
                       ((= (preceding-char) ?\")
                        ?\")
-                      ((save-excursion
-                         (forward-char (- (length open-quote)))
-                         (looking-at (regexp-quote open-quote)))
+                      ((and (<= (length open-quote) (- (point) (point-min)))
+                            (save-excursion
+                              (forward-char (- (length open-quote)))
+                              (looking-at (regexp-quote open-quote))))
                        (delete-char (- (length open-quote)))
                        ?\")
-                      ((save-excursion
-                         (forward-char (- (length close-quote)))
-                         (looking-at (regexp-quote close-quote)))
+                      ((and (<= (length open-quote) (- (point) (point-min)))
+                            (save-excursion
+                              (forward-char (- (length close-quote)))
+                              (looking-at (regexp-quote close-quote))))
                        (delete-char (- (length close-quote)))
                        ?\")
                       ((save-excursion

-----------------------------------------------------------------------

Summary of changes:
 tex.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX