From: Eshel Yaron 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)))