From 006611cda9efde7ea594ac32cfbc2071b16ba1d0 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Wed, 26 Feb 2025 20:47:28 +0100 Subject: [PATCH] (lisp-delete-backward): Fix handling of closing string quote --- lisp/emacs-lisp/lisp-mode.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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))) -- 2.39.5