[AUCTeX-diffs] Changes to auctex/tex.el

[Ralf Angeli]

Index: auctex/tex.el
diff -u auctex/tex.el:5.548 auctex/tex.el:5.549
--- auctex/tex.el:5.548 Thu Nov 24 16:03:16 2005
+++ auctex/tex.el       Wed Nov 30 09:31:42 2005
@@ -4491,6 +4491,15 @@
       (if q-after-q
          (insert (cond ((bobp)
                         ?\")
+                       ((save-excursion
+                          (TeX-looking-at-backward
+                           (concat (regexp-quote open-quote) "\\|"
+                                   (regexp-quote close-quote))
+                           (max (length open-quote) (length close-quote))))
+                        (delete-backward-char (length (match-string 0)))
+                        "\"\"")
+                       ((< (save-excursion (skip-chars-backward "\"")) -1)
+                        ?\")
                        ((not (= (preceding-char) ?\"))
                         ?\")
                        ((save-excursion