From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 26 Feb 2025 19:47:28 +0000 (+0100)
Subject: (lisp-delete-backward): Fix handling of closing string quote
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=006611cda9efde7ea594ac32cfbc2071b16ba1d0;p=emacs.git

(lisp-delete-backward): Fix handling of closing string quote
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 353034d5eb3..a4e9a88aebf 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -814,7 +814,11 @@ font-lock keywords will not be case sensitive."
                ;; Previous character is escaped.
                (delete-char -2))
            ;; Not in a string.
-           (lisp-delete-backward-1)))
+           (if (save-excursion (nth 3 (syntax-ppss (1- (point)))))
+               ;; After closing quote.
+               (backward-char)
+             ;; Quoted quote or comment.
+             (lisp-delete-backward-1))))
         (?\\
          (if (nth 5 (syntax-ppss))
              (delete-region (1- (point)) (1+ (point)))